Delphi-PRAXiS

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 06:36 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz