这段代码是我测试删 金山词霸 2000 的托盘图标的。成功!!! [8D][8D]
uses
; ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
; h: THandle;
; Buf: array[0..256]of Char;
; id: TNotifyIconData;
begin
; h := $00300348; ; ; ; ; ; ; // 用 WinSight32 追出来的(2000下的WinSight32字体太伤眼了)
; GetWindowText(h, Buf, 256); // 显示一下窗口的标题,看对不对。
; Memo1.Lines.Add(Buf);
; FillChar(id, sizeof(TNotifyIconData), 0);
; id.cbSize := sizeof(TNotifyIconData);
; id.Wnd := h;
; id.uID := $0159; ;// ????? 消息代码是 0x00001100, uID 来自 WParam !!!
; Shell_NotifyIcon(NIM_DELETE, @id);
end;