如何得到系统盒中小图标的位置？ (100分)

sxzqcyj · 2001-11-28

找见了吗

sxzqcyj · 2001-12-08

分少可以加

VolerAuVent · 2001-12-09

to:iamfly 找到的话，请也给我一份。 volerauvent@263.net 谢谢。

jomee · 2001-12-09

同意：leejames

花 儿 · 2001-12-09

不点击，就用MouseMove吧：）

delphiwolf · 2001-12-09

我也很想知道，我加200分。

sxzqcyj · 2001-12-26

to：iamfly 期待你的回答

iamfly · 2001-12-26

我也回答不出。那个VC的程序，现在不知在哪个硬盘里，我是找不到了，唉。。。 曾经试过用SOFTICE和W32DASM跟踪一些和SYSTRAY图标有关的程序，跟到应该是和SELECTOBJECT 之类的API函数有关，可是还是不知道怎么去做。。。

sxzqcyj · 2001-12-27

to：iamfly 虽然找不到了，但我还是特别感谢你！ 谢谢！ TO ：ALL 还有朋友知道吗？

delphiwolf · 2001-12-28

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/Shell/Functions/Shell_NotifyIcon.asp

delphiwolf · 2001-12-28

var    nid: TNotifyIconData; begin      nid.cbSize:=sizeof(TNotifyIconData);      nid.uID:=197;      nid.Wnd:=Handle;      nid.uFlags:=NIF_INFO;      nid.szInfo:='Info';      nid.szInfoTitle:='Title';      nid.uTimeout:=10;      nid.dwInfoFlags:=NIIF_INFO;      Shell_NotifyIconA(NIM_ADD,@nid);

iamfly · 2001-12-28

拜托，楼上的两位，你们弄清楚别人的问题再说。现在sxzqcyj不是要在SYSTRAY上加或减 个程序的图标，而是想弄清楚别的程序在SYSTRAY加的图标的位置。如果只是要加个图标 那么容易的问题，会放那么久还没人答出来？光是SEARCH一下以前的已答问题都答案一大堆 了。 TO sxzqcyj：我查看一下我的已答问题，找找当初是谁EMAIL给我的，再问问他看看吧：)

sxzqcyj · 2002-01-16

还没答案呢！

sxzqcyj · 2003-09-02

谢谢各位的热心帮助！！！！！ 可我还没有答案呢。

sxzqcyj · 2003-09-02

继续呀，我在等。[

]

Kingron · 2003-09-07

这个问题和我以前如何得到任务栏按钮的矩形一样啊~~~~~~~~~ 一定有某个没有公开的东西可以做到，不过根据现有的资料无法用简单的方式得到的，可以采取一个笨办法来做到： 首先我们可以很轻松找到SysTray的句柄，用FindWindowEx就可以了，这个不用多说，找到之后，你会发现他其实是一个标准的Toolbar，这样就很简单了，我们可以用ToolbarMessage来做既可： 首先发送TB_BUTTONCOUNT信息得到Button Count，做一个循环： for i:=0 to Count - 1 do begin   发送TB_GETBUTTON，得到第I个Button的Command ID；   发送TB_GETBUTTONTEXT，得到第I个Button的Caption；   判断Caption，如果是我们指定的Button则   begin     发送TB_GETITEMRECT，得到第I个Button的RECT；     退出；   end; end; 需要注意的是，使用上面的消息，所使用的内存空间必须在Shell之内，利用ReadProcessMemoery和WriteProcessMemory既可。 具体的代码自己写吧，我给出我取Taskbar Button的Rect的代码供参考： 我修改了一下，应该可以使用： uses CommCtrl; function GetSysTrayWnd: HWND; begin   Result := FindWindow('Shell_TrayWnd', nil);   Result := FindWindowEx(Result, 0, 'TrayNotifyWnd', nil);   Result := FindWindowEx(Result, 0, 'SysPager', nil);   Result := FindWindowEx(Result, 0, 'ToolbarWindow32', nil); end; function GetTaskBarButtonRect(Title: string): TRect; {   返回指定Title的窗口按钮在任务栏的按钮的矩形区域   例如返回当前程序的任务栏按钮矩形：   GetTaskBarButtonRect(Application.Title); } var   h: HWND;   C, i: integer;   Info: _TBBUTTON;   Item: tagTCITEM;   Buff: PChar;   S: array[0..1024] of char;   PID: THandle;   PRC: THandle;   R: Cardinal; begin   FillChar(Result, SizeOf(Result), 0);   H := GetSysTrayWnd;   if H = 0 then Exit;   GetWindowThreadProcessId(H, @PID);   PRC := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE, False, PID);   Buff := VirtualAllocEx(PRC, nil, 4096, MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE);   if Format('%d.%d',[Win32MajorVersion,Win32MinorVersion]) >= '5.1' then // Is Windows XP or Higher   begin     C := SendMessage(H, TB_BUTTONCOUNT, 0, 0);     for i := 0 to C - 1 do     begin       FillChar(Info, SizeOf(Info), 0);       WriteProcessMemory(PRC, Buff, @Info, SizeOf(Info), R);       SendMessage(H, TB_GETBUTTON, i, integer(Buff));       ReadProcessMemory(PRC, Buff, @Info, SizeOf(Info), R);       SendMessage(H, TB_GETBUTTONTEXT, Info.idCommand, integer(integer(@Buff[0]) + SizeOf(Info)));       ReadProcessMemory(PRC, Pointer(integer(@Buff[0]) + SizeOf(Info)), @S[0], SizeOf(S), R);       Form1.Memo1.Lines.Add(StrPas(S));       if SameText(StrPas(S), Title) and not Boolean(SendMessage(H, TB_ISBUTTONHIDDEN, Info.idCommand, 0)) then       begin         SendMessage(H, TB_GETRECT, Info.idCommand, integer(integer(@Buff[0]) + SizeOf(Info)));         ReadProcessMemory(PRC, Pointer(integer(@Buff[0]) + SizeOf(Info)), @Result, SizeOf(Result), R);         Windows.ClientToScreen(H, Result.TopLeft);         Windows.ClientToScreen(H, Result.BottomRight);         Break;       end;     end;   end   else   begin     C := SendMessage(H, TCM_GETITEMCOUNT, 0, 0);     for i := 0 to C - 1 do     begin       with Item do       begin         mask := TCIF_TEXT;         dwState := 0;         dwStateMask := 0;         cchTextMax := 2048;         pszText := PChar(integer(Buff) + SizeOf(Item) * 4);         iImage := 0;         lParam := 0;       end;       WriteProcessMemory(PRC, Buff, @Item, SizeOf(Item), R);       SendMessage(H, TCM_GETITEM, i, Integer(Buff));       ReadProcessMemory(PRC, Buff, @Item, SizeOf(Item), R);       ReadProcessMemory(PRC, PChar(integer(Buff) + SizeOf(Item) * 4), @S[0], SizeOf(S), R);       if SameText(S, Title) then       begin         SendMessage(H, TCM_GETITEMRECT, i, integer(Buff));         ReadProcessMemory(PRC, Buff, @Result, SizeOf(Result), R);         Windows.ClientToScreen(H, Result.TopLeft);         Windows.ClientToScreen(H, Result.BottomRight);         Break;       end;     end;   end;   VirtualFreeEx(PRC, Buff, 0, MEM_RELEASE);   CloseHandle(PRC); end; procedure TForm1.Button1Click(Sender: TObject); begin   DrawAnimatedRects(Handle, IDANI_CAPTION, BoundsRect, GetTaskBarButtonRect('音量')); end;

Kingron · 2003-09-08

上面的代码在Win2003 CHS下测试通过

phyyun · 2003-09-25

谢谢Kingron。看了你的回复， 我现在能够在2000下显示隐藏托盘图标了。通过sendmessage TB_HIDEBUTTON。 现在有两个问题 1、98下怎么隐藏托盘图标，sendmessage什么，好像是通过SETITEM。 2、但是每次隐藏一个按钮图标，任务栏托盘那图标没了，但图标原来的地方空出来了，隐藏多个就空出多个。必须要应用程序窗口切换一下，任务栏才会刷新。显示图标时也一样。 我想应该可以通过给任务栏发消息让他刷新，但是不知怎么实现，也没找到资料。

Kingron · 2003-09-25

1:98下，请自己调试 2：自己用 var   AID: _NOTIFYICONDATA; begin   AID.cbSize := SizeOf(AID);   AID.Wnd := Handle;   AID.uID := 0;   AID.uFlags := NIF_ICON;   AID.uCallbackMessage := 0;   AID.hIcon := Icon.Handle;   AID.szTip := '';   Shell_NotifyIcon(NIM_ADD, @AID);   Shell_NotifyIcon(NIM_DELETE, @AID); end; 即可。

phyyun · 2003-09-25

好的，谢谢

如何得到系统盒中小图标的位置？ (100分)

sxzqcyj

Unregistered / Unconfirmed

sxzqcyj

Unregistered / Unconfirmed

VolerAuVent

Unregistered / Unconfirmed

jomee

Unregistered / Unconfirmed

花 儿

Unregistered / Unconfirmed

delphiwolf

Unregistered / Unconfirmed

sxzqcyj

Unregistered / Unconfirmed

iamfly

Unregistered / Unconfirmed

sxzqcyj

Unregistered / Unconfirmed

delphiwolf

Unregistered / Unconfirmed

delphiwolf

Unregistered / Unconfirmed

iamfly

Unregistered / Unconfirmed

sxzqcyj

Unregistered / Unconfirmed

sxzqcyj

Unregistered / Unconfirmed

sxzqcyj

Unregistered / Unconfirmed

Kingron

Unregistered / Unconfirmed

Kingron

Unregistered / Unconfirmed

phyyun

Unregistered / Unconfirmed

Kingron

Unregistered / Unconfirmed

phyyun

Unregistered / Unconfirmed

Similar threads

花儿