API可以使用下列程序。
var
FTrayicon: TNotifyIconData;
procedure addicon;
begin
with FTrayIcon do
begin
cbSize:= SizeOf(FTrayIcon);
Wnd:= Handle;
uID:= 1;
uFlags:= NIF_MESSAGE or NIF_ICON or NIF_TIP;
hIcon:= LoadIcon(HInstance, 'MAINICON');
uCallBackMessage := WM_TRAYICON;
szTip:= '???';//这里是HINT提示
end;
Shell_NotifyIcon(NIM_ADD, @FTrayIcon);
end;
procedure Eraseicon;
begin
Shell_NotifyIcon(NIM_DELETE, @FTrayIcon);
end;