procedure ShowClock(Show : boolean);
var
TrayWnd, TrayNWnd, ClockWnd : Hwnd;
begin
TrayWnd := FindWindow('Shell_TrayWnd', nil);
TrayNWnd := FindWindowEx(TrayWnd,0,'TrayNotifyWnd', nil);
ClockWnd := FindWindowEx(TrayNWnd,0,'TrayClockWClass', nil);
if Show then
ShowWindow(ClockWnd,SW_SHOW)
else
ShowWindow(ClockWnd,SW_HIDE)
end;
|