如果自己从头做的话,需要定义一个TNotifyIconData类型变量,这个变量定义在 ShellAPI 单元中。
需要设置这个变量的这几个值。
_NOTIFYICONDATAA = record
cbSize: DWORD;
Wnd: HWND;
uID: UINT;
uFlags: UINT;
uCallbackMessage: UINT;
hIcon: HICON;
szTip: array [0..63] of AnsiChar;
end;
例如:
const WM_NID = WM_USER + 100;
procedure WMNID(var msg: TMessage); message WM_NID;
with NOtifyIcon do
begin
cbsize := SIzeof(TNOtifyIconData); // 记录大小
wnd := self; //窗体句柄
uID := 1; // 图标iD
UFLagS := NIF_MESSAGE or NIF_ICON or NIF_ TIP;
ucallbackMessage:= WM_NID; // 自定义消息
Hicon := application.icon.handle;
szTIP := 'pxb';
{$EXTERNALSYM NIF_MES