怎么模拟点击托盘图标

Question

怎么模拟点击(或者其他方法)托盘图标
单击右键如下图然后点击消费查询。。

Answer 1

  function RightClickProcessTray(const ProcessID: THandle): Boolean;
  var
    h: THandle;
    p: PTBBUTTON;
    i: Integer;
    b: _TBBUTTON;
    hTray: Cardinal;
    dw: Cardinal;
    TrayPid: Cardinal;
    TempPid: Cardinal;
    IcoHwnd: Cardinal;
    r: TRect;
    point: TPoint;
  begin
    Result := False;    hTray := FindWindow('Shell_TrayWnd', nil);
    hTray := FindWindowEx(hTray, 0, 'TrayNotifyWnd', nil);
    hTray := FindWindowEx(hTray, 0, 'SysPager', nil);
    hTray := FindWindowEx(hTray, 0, 'ToolbarWindow32', nil);
    GetWindowThreadProcessId(hTray, TrayPid);
    h := OpenProcess(PROCESS_ALL_ACCESS, False, TrayPid);
    p := VirtualAllocEx(h, nil, SizeOf(b) + SizeOf(r), MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE);    for i := 0 to SendMessage(hTray, TB_BUTTONCOUNT, 0, 0) - 1 do
    begin
      ZeroMemory(@b, SizeOf(b));
      WriteProcessMemory(h, p, @b, SizeOf(b), dw);
      SendMessage(hTray, TB_GETBUTTON, i, LPARAM(p));
      ReadProcessMemory(h, p, @b, SizeOf(b), dw);
      ReadProcessMemory(h, Pointer(b.dwData), @IcoHwnd, 4, dw);//返回到本地的结构中dwData成员表示托盘图标句柄所在的位置
      GetWindowThreadProcessId(IcoHwnd, TempPid);
      if TempPid = ProcessID then
      begin
        SendMessage(hTray, TB_GETITEMRECT, i, LPARAM(LPARAM(p) + SizeOf(b)));
        ReadProcessMemory(h, Pointer(LPARAM(p) + SizeOf(b)), @r, SizeOf(r), dw);
        Windows.ClientToScreen(hTray, point);
        point.X := point.X + r.Left;
        point.Y := point.Y + r.Top;
        SetCursorPos(point.X, point.Y);//菜单弹出位置
        {按下右键弹出菜单，不能松开右键，否则可能弹出系统任务栏菜单}
        Result := (0 = SendMessage(hTray, WM_RBUTTONDOWN, MK_RBUTTON, MAKELPARAM(r.Left, r.Top)));
        Break;
      end;
    end;    VirtualFreeEx(h, p, 0, MEM_RELEASE);
    CloseHandle(h);
  end;
问题如果解决请及时结帖:)

Answer 2

2L 代码有问题，我测试的任务管理器是可以的，但其他程序好像不行，其他程序鼠标右键好像要弹起。在 
Result := (0 = SendMessage(hTray, WM_RBUTTONDOWN, MK_RBUTTON, MAKELPARAM(r.Left, r.Top)));
下面加一行
Result := (0 = SendMessage(hTray, WM_RBUTTONUP, 0, MAKELPARAM(r.Left, r.Top)));

Answer 3

能不能发个VC的代码啊？Delphi看不懂啊