隐藏任务条托盘区中的时钟

隐藏任务条托盘区中的时钟

// 隐藏时钟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;