// 隐藏时钟procedure TForm1.Button1Click(Sender: TObject);
var hn :
HWnd;
begin
hn := FindWindowEx(FindWindowEx(FindWindow(\’Shell_TrayWnd\’,nil),0,
\’TrayNotifyWnd\’,nil),0,\’TrayClockWClass\’,nil);
if hn <> 0 then
ShowWindow(hn,SW_HIDE);
end;
// 重现时钟procedure TForm1.Button2Click(Sender: TObject); var hn : HWnd; begin hn := FindWindowEx(FindWindowEx(FindWindow(\’Shell_TrayWnd\’,nil),0,
\’TrayNotifyWnd\’,nil),0,\’TrayClockWClass\’,nil);
if hn <> 0 then
ShowWindow(hn,SW_SHOW);end;
责任编辑:小草