Thema: Delphi Uhr verstekcken

Einzelnen Beitrag anzeigen

Tzuxy

Registriert seit: 17. Aug 2004
51 Beiträge
 
#1

Uhr verstekcken

  Alt 2. Sep 2004, 19:16
Hallo,
weiß jemand wie ich dir Uhr in der taskleiste verstecken und natürlich dann wieder sichtabr machen?
Hab schon im Forum gesucht und einen Beirtrag gefunden, aber der klappt nicht. Glaub hab was in der Uses vergessen.
Der Code:
Delphi-Quellcode:
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;

mfG Werner
  Mit Zitat antworten Zitat