隐藏任务条托盘区中的时钟
// 隐藏时钟
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;