Uhr verstecken

[Jens Schumann]

Hallo,
wie wäre es damit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  WindowHandle_TrayWnd         : hWnd;
  WindowHandle_TrayNotifyWnd   : hWnd;
  WindowHandle_TrayClockWClass : hWnd;
begin
  WindowHandle_TrayWnd:=FindWindow('Shell_TrayWnd', nil);
  If WindowHandle_TrayWnd<>0 then
    WindowHandle_TrayNotifyWnd := FindWindowEx(WindowHandle_TrayWnd, 0, 'TrayNotifyWnd', nil);
  If WindowHandle_TrayNotifyWnd<>0 then
    WindowHandle_TrayClockWClass := FindWindowEx(WindowHandle_TrayNotifyWnd, 0, 'TrayClockWClass', nil);
  If WindowHandle_TrayClockWClass<>0 then
    ShowWindow(WindowHandle_TrayClockWClass,SW_SHOW);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  WindowHandle_TrayWnd         : hWnd;
  WindowHandle_TrayNotifyWnd   : hWnd;
  WindowHandle_TrayClockWClass : hWnd;
begin
  WindowHandle_TrayWnd:=FindWindow('Shell_TrayWnd', nil);
  If WindowHandle_TrayWnd<>0 then
    WindowHandle_TrayNotifyWnd := FindWindowEx(WindowHandle_TrayWnd, 0, 'TrayNotifyWnd', nil);
  If WindowHandle_TrayNotifyWnd<>0 then
    WindowHandle_TrayClockWClass := FindWindowEx(WindowHandle_TrayNotifyWnd, 0, 'TrayClockWClass', nil);
  If WindowHandle_TrayClockWClass<>0 then
    ShowWindow(WindowHandle_TrayClockWClass,SW_HIDE);
end;