隱藏任務條托盤區中的時鐘

// 隱藏時鐘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;