Skrytí hodin

Když už jsme se opět trochu "dotkli" Hlavního panelu, ukážeme si teď, jak nechat zmizet hodiny. Pod Windows 9x dojde i k posunu ikon doprava na uvolněné místo, ve Windows 2000 bohužel zůstane prázdné místo. Jednoduchý parametr nám určuje, zda hodiny zobrazit či nezobrazit.
procedure UkazHodiny(ano : 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 ano then ShowWindow(ClockWnd,sw_show)
else ShowWindow(ClockWnd,sw_hide)
end;