Application.MainForm.Show & TForm1.Minimize

[sk0r]

Hi,

Delphi-Quellcode:

procedure TForm1.AppMinimize(Sender: TObject);
begin
  TrayIcon.cbSize := sizeof(TrayIcon);
  TrayIcon.Wnd := Handle;
  TrayIcon.uID := 0;
  TrayIcon.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
  TrayIcon.uCallbackMessage := WM_TRAYICON;
  TrayIcon.hIcon := Application.Icon.Handle;
  TrayIcon.szTip := 'Name';
  Shell_NotifyIcon(NIM_ADD, @TrayIcon);
  Application.MainForm.Hide;
end;

MfG: sk0r