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:

uses ShellAPI, ...

const
 WM_TASKBAREVENT = WM_USER + 1;
  
public
{ Public-Deklarationen }
 procedure TaskBarAddIcon;
 procedure TaskBarRemoveIcon;


procedure TForm1.TaskBarAddIcon;
var tnid: TNotifyIconData;
    Owner: THandle;
begin
 with tnid do begin
  cbSize := SizeOf(TNotifyIconData);
  Wnd := FindWindow(nil, 'Unbenannt - Editor');
  uID := 1;
  uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
  uCallbackMessage := WM_TASKBAREVENT;
  hIcon := ExtractIcon(Handle, '%SystemRoot%\system32\notepad.exe', 0);
  szTip := 'Editor';
  end;
 Shell_NotifyIcon(NIM_ADD, @tnid);

 Owner := FindWindow(nil, 'Unbenannt - Editor');
 if Owner <> 0 then
  ShowWindow(Owner, SW_HIDE);
end;

procedure TForm1.TaskBarRemoveIcon;
var tnid: TNotifyIconData;
    Owner: THandle;
begin
 with tnid do begin
  cbSize := SizeOf(TNotifyIconData);
  Wnd := FindWindow(nil, 'Unbenannt - Editor');
  uID := 1;
  end;
 Shell_NotifyIcon(NIM_DELETE, @tnid);

 Owner :=  FindWindow(nil, 'Unbenannt - Editor');
 if Owner <> 0 then 
  ShowWindow(Owner, SW_NORMAL);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 TaskBarAddIcon;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 TaskBarRemoveIcon;
end;