Системный трей - C++ WinAPI - Ответ 60720

Const WM_NOTIFYTRAYICON = WM_USER+1;
type
  TForm1 = class(TForm)
  Private
    Procedure WMIconNotify(var Msg:TMessage);message WM_NOTIFYTRAYICON;
  Public
    WM_ICONNOTIFY : Word;
  End;
 
var
  Form1: TForm1;
  Tray: TNotifyIconData;
  TrayIcon: TIcon;
 
Implementation
 
Procedure TForm1.WMIconNotify(var Msg:TMessage);
begin
  If Msg.lParam=WM_LBUTTONDOWN then
  begin
    If Poisk.Visible then
    Begin
      Form1.Visible := False;
    End else
    Begin
      Form1.Visible := True;
      Application.BringToFront;
      Form1.SetFocus;
    End;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
Begin
  Application.OnMinimize := ApplicationMinimize;
  TrayIcon := Application.Icon;
  With Tray do
  Begin
    cbSize := SizeOf(TNotifyIconData);
    Wnd := Form1.Handle;
    uID := 1;
    uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
    uCallBackMessage := WM_NOTIFYTRAYICON;
    hIcon := TrayIcon.Handle;
    szTip := ('Название');
  End;
  Shell_NotifyIcon(NIM_ADD, Addr(tray));
End;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Try
    With tray do
    Begin
      cbSize := SizeOf(TNotifyIconData);
      Wnd := Form1.Handle;
      uID := 1;
    End;
    Shell_NotifyIcon(NIM_DELETE, Addr(tray));
  Finally
    Application.Terminate;
  End;
end;