Systray leeren/disablen

[toms]

Mein WinSpy erzeugt folgenden Code:

Delphi-Quellcode:

var
  wnd: HWND;
begin
  wnd := FindWindow('Shell_TrayWnd','');
  wnd := FindWindowEx(wnd, 0, 'TrayNotifyWnd', nil);
  wnd := FindWindowEx(wnd, 0, 'SysPager', nil);
  wnd := FindWindowEx(wnd, 0, 'ToolbarWindow32', nil);
  if wnd <> 0 then
  begin
     ShowWindow(wnd, SW_HIDE);
  end;
end.