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

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

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