1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

procedure TForm1.FormCreate(Sender: TObject);
begin 
  // die noch notwendigen Zuordnungen
  NID.Wnd := self.Handle;
  NID.hIcon := Application.Icon.Handle;
  // "OnMinimize"-Event ändern
  Application.OnMinimize := MinimizeToTNA;
  Application.Minimize;
end;

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  // nur zur Sicherheit 
  Shell_NotifyIcon(NIM_DELETE,@NID); 
end; 

procedure TForm1.MinimizeToTNA(Sender: TObject); 
begin 
  // wenn das TNA-Symbol ezeugt werden konnte, ... 
  if(Shell_NotifyIcon(NIM_ADD,@NID)) then 
  // ... dann weg mit dem Taskbar-Button 
    ShowWindow(Application.Handle,SW_HIDE); 
end; 

procedure TForm1.WndProc(var Message: TMessage); 
begin 
  case Message.Msg of 
    WM_TRAYMSG:
      case Message.lParam of 
          WM_LBUTTONDOWN:
          begin
            // weg mit dem TNA-Symbol! 
            Shell_NotifyIcon(NIM_DELETE,@NID); 
            // den Taskbar-Button wieder anzeigen 
            // (egal, wie der Status von "Shell_NotifyIcon" ist) 
            ShowWindow(Application.Handle,SW_SHOW); 
            // und das hier auch noch, um die Anwendung 
            // zu aktivieren und ggf. in den Vordergrund 
            // zu holen
            Application.Restore; 
          end; 
      end; 
    else
      inherited WndProc(Message); 
  end; 
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  ShowWindow(GetWindow(Handle, GW_OWNER), SW_HIDE);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.OnClose := MinimizeToTNA;
  Application.Close;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

implementation

{$R *.dfm}

const 
  WM_TRAYMSG = WM_USER + 10; 
var 
  NID : TNotifyIconData = ( 
    cbsize           : sizeof(TNotifyIconData);
    uID              : 0;
    uFlags           : NIF_MESSAGE or NIF_ICON or NIF_TIP;
    uCallbackMessage : WM_TRAYMSG;
    szTip            : '';
  );                    

1:

Laufwerk:\Pfad\...\Anwendungsdaten                    

1:

Microsoft\Internet Explorer\Quick Launch