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