Delphi-PRAXiS - Delphi Die Uhr im Tray Ein- und wieder Ausschalten

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Library: Windows API / MS.NET Framework API (https://www.delphipraxis.net/20-library-windows-api-ms-net-framework-api/)

- - Delphi Die Uhr im Tray Ein- und wieder Ausschalten (https://www.delphipraxis.net/2612-die-uhr-im-tray-ein-und-wieder-ausschalten.html)

Daniel B

30. Jan 2003 18:28

Die Uhr im Tray Ein- und wieder Ausschalten

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 :hi:

Alle Zeitangaben in WEZ +1. Es ist jetzt 15:21 Uhr.