Systray leeren/disablen

[PierreB]

Hallo,

so funktioniert es leider nicht:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
wnd: HWND;
begin
wnd := FindWindow('Shell_TrayWnd', nil);
wnd := FindWindowEx(wnd, 0, 'TrayNotifyWnd', nil);
wnd := FindWindowEx(wnd, 0, 'SysPager', nil); // Wenn die Uhr auch weg soll, diese Zeile
if wnd <> 0 then
begin
ShowWindow(wnd,SW_HIDE)
end;
end;

Da passiert gar nix.

Wenn ich diese Zeile weglasse,

Code:

 wnd := FindWindowEx(wnd, 0, 'SysPager', nil);

geht die Uhr samt allen Icons weg. Ich möchte aber das die Uhr da ist und die Icons weg sind...