隐藏任务条托盘区中的时钟
2006-02-04 13:31:11 来源:WEB开发网核心提示:隐藏任务条托盘区中的时钟// 隐藏时钟PRocedure TForm1.Button1Click(Sender: TObject);var hn : HWnd;begin hn := FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd',nil),
隐藏任务条托盘区中的时钟
// 隐藏时钟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;
[]
更多精彩
赞助商链接