在Delphi中实现系统状态栏图标(托盘图标)
程序中增加使用该功能时,须在Uses中添加ShellAPI。添加图标时需要的函数是
:Shell_NotifyIconA,它需要2个参数,一个参数是TnotifyIconDataA的结构,该
结构如下:
TnotifyIconDataA = record
cbSize: DWORD;
Wnd: HWND;
uID: UINT;
uFlags: UINT;
uCallbackMessage: UINT;
hIcon: HICON;
szTip: ARRAY[0..63] of AnsiChar;
end;
dwMessage取值为:
NIM_ADD 增加一个新图标
NIM_MODIFY 修改一个已有的图标
NIM_DELETE 删除一个已有的图标