Uhr verstekcken

[Tzuxy]

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

[Die Muhkuh]

Zitat von Tzuxy:

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.

Hi Werner,

sag doch mal WAS nicht geht. Passiert überhaupt nix? Meckert der Compiler?

[Tubos]

Zitat:

Hab schon im Forum gesucht und einen Beirtrag gefunden, aber der klappt nicht. Glaub hab was in der Uses vergessen.

Wenn du wirklich eine Unit vergessen hast, dann müsste ein Compilerfehler kommen.
Wenn der Code nicht funktioniert, ist das ein anderes Problem

[Tzuxy]

Es steht da:
Variable'WindowHandle_TrayNotifyWnd' might not have been initialized
Variable 'WindowHandle_TrayClockWClass' might not have been initialized

[MathiasSimmack]

Das sind Warnungen, keine Fehler, und bedeuten, dass die benutzten Variablen nicht initialisiert wurden. Wenn du beide vor deinem Codeschnippsel auf Null setzt, verschwinden die Warnungen. Aber ob das deinem Code hilft, weiß ich nicht.

[Sprint]

Zitat von Tzuxy:

Hallo,
weiß jemand wie ich dir Uhr in der taskleiste verstecken und natürlich dann wieder sichtabr machen?

Delphi-Quellcode:

procedure ShowClock(Show: Boolean);
var
  ShellTrayWnd: HWND;
  TrayNotifyWnd: HWND;
  TrayClockWnd: HWND;
begin

  ShellTrayWnd := FindWindow('Shell_TrayWnd', nil);

  if ShellTrayWnd = 0 then
    Exit;

  TrayNotifyWnd := FindWindowEx(ShellTrayWnd, 0, 'TrayNotifyWnd', nil);

  if TrayNotifyWnd = 0 then
    Exit;

  TrayClockWnd := FindWindowEx(TrayNotifyWnd, 0, 'TrayClockWClass', nil);

  if TrayClockWnd = 0 then
    Exit;

  if Show then
    ShowWindow(TrayClockWnd, SW_SHOW)
  else
    ShowWindow(TrayClockWnd, SW_HIDE);

end; {end procedure}

Macht das gleich wie dein Code. Hatte es nur irgendwann mal geschrieben und hatte es noch auf HDD.