隐藏任务条托盘区中的时钟计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:28:28
来源 100Test.Com百考试题网

　　// 隐藏时钟procedure TForm1.Button1Click(Sender: TObject).
　　var hn :
　　HWnd.
　　begin
　　hn := FindWindowEx(FindWindowEx(FindWindow(\’Shell_TrayWnd\’,nil),0,
　　\’TrayNotifyWnd\’,nil),0,\’TrayClockWClass\’,nil).
　　if hn