public
{ Public declarations }
Procedure ModifyIcon(aMessage:DWORD);
procedure SysMessage(var message: TMessage); message WM_SYSTRAYMSG;
procedure AppOnMinimize(Sender: TObject);
end;
.....
procedure TfForm.SysMessage(var message: TMessage);
begin
with Message do
begin
if LParam= WM_LBUTTONDOWN then
begin
Application.Restore;
SetForegroundWindow(Handle);
Showwindow(Application.Handle, SW_NORMAL );
Showwindow(Application.Handle, SW_SHOW);
end;
end;
end;
procedure TfForm.FormCreate(Sender: TObject);
begin
ModifyIcon(NIM_ADD);
end;