D7 隐藏状态栏中的时间源代码.rar

Delphi7.0 隐藏状态栏中的时间源代码，常规情况下，windows 的右下角都会显示时间日期，本功能是把状态栏中的时间和日期隐藏掉，隐藏后变成了如测试图所示的效果，看上去怪怪的，嘿嘿，当然本程序也可重新显示时间，单击“显示”按钮即可。在实现方法上，可参见以下代码： 　　//隐藏状态栏时间，单击“隐藏”按钮后执行此代码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 hd:=findwindowex(findwindowex(findwindow('shell_traywnd',nil),0,'traynotifywnd',nil),0,'trayclockwclass',nil); 　　 if hd<>0 then 　　 showwindow(hd,sw_hide) 　　end; 　　//显示状态栏时间，单击“显示”按钮后执行此代码： 　　procedure TForm1.Button2Click(Sender: TObject); 　　begin 　　 hd:=findwindowex(findwindowex(findwindow('shell_traywnd',nil),0,'traynotifywnd',nil),0,'trayclockwclass',nil); 　　 if hd<>0 then 　　 showwindow(hd,sw_show); 　　end;