先将 Application 最小化时执行 OnMin
用以下程序:
procedure TfrmDesktop.OnMin(Sender:TObject);
var
NT:TNotifyIconData;
begin
with NT do Begin
cbSize:=SizeOf(TNotifyIconData);
Wnd:=Handle;
UID:=My_Tray_Icon;
uFlags:=Nif_Message or Nif_Icon or Nif_Tip;
uCallBackMessage:=WM_Traynotify;
hIcon:=loadicon(hinstance,'notifyicon');;
szTip:='翱翔空间 http://go.163.com/~hoversoft';
end;
Shell_NotifyIcon(Nim_ADD,@NT);
ShowWindow(Application.handle,SW_Hide);
end;