Hide /show taskbar clock
Simple function to show and hide taskbar clock.
|
1 2 3 4 5 6 7 8 9 |
<span style="font-weight: bold;">procedure</span> ShowClock(show: <span style="font-weight: bold;">boolean</span>); <span style="font-weight: bold;">var</span> TrayWnd, TrayNWnd, ClockWnd : Hwnd; <span style="font-weight: bold;">begin</span> TrayWnd := FindWindow('Shell_TrayWnd', <span style="font-weight: bold;">nil</span>); TrayNWnd := FindWindowEx(TrayWnd,0, 'TrayNotifyWnd', <span style="font-weight: bold;">nil</span>); ClockWnd := FindWindowEx(TrayNWnd,0, 'TrayClockWClass', <span style="font-weight: bold;">nil</span>); <span style="font-weight: bold;">if</span> show <span style="font-weight: bold;">then</span> ShowWindow(ClockWnd,sw_show) <span style="font-weight: bold;">else</span> ShowWindow(ClockWnd,sw_hide) <span style="font-weight: bold;">end</span>; |