隐藏任务条托盘区中的时钟
// 隐藏时钟 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;
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18