本工具完整Delphi7源码: http://download.csdn.net/download/friendan/4637961
//程序截图如下:
写此程序的目的:
很多时候,我需要暂时离开电脑,不想关机,又想延长电脑屏幕的寿命,
所以我想到了屏幕保护。众所周知,在系统中设置了屏幕保护后,需要在指定
的一段时间内屏幕保护程序才能运行,而我的需求却是随时都可以启动屏幕保护
程序,因此有了写这款小程序的想法!...
程序的实现原理:
原理很简单啦,其实就是给系统发送一个广播消息,让系统启动屏幕保护程序就可以了。
发送消息,有两个API可以使用, 一个是SendMessage(...),另一个是PostMessage(...),它们的
详细参数,有兴趣的朋友上网查下就可以了。
需要说明的是我在本程序中刚开始使用的API是SendMessage,结果一启动屏幕保护程序,
我的程序就卡死了,后来换成了PostMessage,程序不卡了,功能一切正常。
估计是因为SendMessage发送消息时,直到别的程序处理完消息才返回,
没返回就等待,从而使自身程序失去系统消息响应、卡死了。
而PostMessage发送消息时,不等待线程处理消息就返回,是异步消息模式,因此没有导致程序的卡死。
程序的主要代码如下:
//启动屏幕保护按钮
procedure TForm1.Stx_LaunchClick(Sender: TObject);
begin
RunSSProc();
end;
//
//屏幕保护启动过程
procedure TForm1.RunSSProc();
begin
//暂停一秒,给用户一点时间释放键盘和鼠标
//否则有可能启动屏幕保护失败
Sleep(1000);
//暂时想不通,为什么Delphi可以直接调用以下这行代码
//SendMessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_SCREENSAVE,0);
PostMessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_SCREENSAVE,0);
//经测试用以下这行代码也可以,
//HWND_BROADCAST参数在Delphi中用wnd_Broadcast来代替
//WM_SYSCOMMAND在Delphi中用什么来代替,暂时我还没知道
//SC_SCREENSAVE是个宏,实为61760
//SendMessage(wnd_Broadcast,WM_SYSCOMMAND,61760,0);
end;
![](https://i-blog.csdnimg.cn/blog_migrate/a093afbd4c527d0317d466375f43de72.png)