Ersetzen der TrayClock durch eine eigene grafische Uhr

[scp]

Delphi-Quellcode:

var
  TCWnd : HWND;
  TCRect : TRect;

procedure HideTrayClock;
begin
  GetWindowRect(TCWnd, TCRect);

  // TCWnd = Handle von 'TrayClockWClass'
  SetWindowPos(TCWnd, 0, 0, 0, TCRect.Right - TCRect.Left, 0, SWP_NOZORDER or SWP_NOMOVE);
end;

procedure ShowTrayClock;
begin
  SetWindowPos(TCWnd, 0, 0, 0, TCRect.Right - TCRect.Left, TCRect.Bottom - TCRect.Top, SWP_NOZORDER or SWP_NOMOVE);
end;

So, ist die alte Uhr für Windows noch "Visible", durch die Höhe von 0 ist sie aber auf dem Bildschirm versteckt und der Platz ist noch reserviert.