Die Uhr im Tray Ein- und wieder Ausschalten

[Daniel B]

Ausschalten:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
begin
  ShowWindow(FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
    0, 'TrayNotifyWnd', nil), 0, 'TrayClockWClass', nil), SW_HIDE);
end;

Einschalten:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
begin
  ShowWindow(FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
    0, 'TrayNotifyWnd', nil), 0, 'TrayClockWClass', nil), SW_SHOW);
end;

Grüsse, Daniel