Uhr verstekcken

[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.