Systray leeren/disablen

[perle]

Delphi-Quellcode:

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 weg lassen
  if wnd <> 0 then
  begin
    ShowWindow(wnd,SW_HIDE)
  end;
end;