这个问题回答多次了。
CONST CM_TRAYICON = CM_BASE + 84;
....
private
{ Private declarations }
IconData:TNotifyIconData;
procedure OnIconNotify(var Msg: TMessage);message CM_TRAYICON;
....
procedure TMainFM.OnIconNotify(var Msg: TMessage);
Var
MPoint:TPoint;
begin
Case Msg.LParam of
WM_LBUTTONDBLCLK:
begin
Visible := True;
Application.Restore;
Application.BringToFront;
Shell_NotifyIcon(NIM_DELETE, @IconData);
end;
WM_RBUTTONUP:
begin
GetCursorPos(MPoint);
PopMenu.Popup(MPoint.x,MPoint.y);
end;
end;
end;
procedure TMainFM.PopMenuPopup(Sender: TObject);
begin
mn_Minimize.Enabled:=Visible;
mn_Restore.Enabled:=NOT Visible;
end;
procedure TMainFM.AppMinimized(Var Msg: TMessage);
begin
if Msg.WParam =SC_MINIMIZE then
begin
with IconData do begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Handle;
uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
hIcon := LoadIcon(hInstance,'MAINICON');
StrPLCopy(szTip, GetShortHint(' 程序运行中...'), SizeOf(szTip) - 1);
uCallbackMessage := CM_TRAYICON;
uID := 0;
end;
Shell_NotifyIcon(NIM_ADD, @IconData);
Hide;
end
else
DefWindowProc(Handle,WM_SYSCOMMAND,Msg.wparam,Msg.LParam);
end;
procedure TMainFM.FormDestroy(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, @IconData);
end;
