当一个程序需要阻止屏幕保护程序一段时间时，有以下两种方法

SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,FALSE,NULL,0)

当一个程序需要阻止屏幕保护程序一段时间时，有以下两种方法
分类： Delphi / Lazarus 技术资料2011-01-20 21:51 196人阅读 评论(0) 收藏 举报
第一种方法是使用API函数SystemParametersInfo来禁止屏幕保护程序，最来再激活它。     使用这种方法，你只最简单地在Form.OnCreate中加入禁止代码，在Form.OnDestroy加入激活代码：
--------------------------------------------------------------------------------
TMyForm = class(TForm)     ...       procedure FormCreate(Sender: TObject);       procedure FormDestroy(Sender: TObject);     ...   end;  
procedure TMyForm.FormCreate(Sender: TObject);   begin     ...     //Disable screensaver     SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, 0);     ...   end;  
procedure TMyForm.FormDestroy(Sender: TObject);   begin     ...     //Disable screensaver     SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, nil, 0);     ...   end;  
--------------------------------------------------------------------------------
这种方法会导致一个问题：如果程序是由其它原因关闭，并没有触发OnDestroy事件，在这种情况下，屏幕保护程序就再也不会被激活了！ 解决这个问题的方法是在程序的主窗口中拦截WM_SYSCOMMAND消息：当要妄动屏幕保护程序时，Windows向所有的最高层窗口发送这个消息，包含的wParam参数设置为SC_SCREENSAVE。你只要设置这个消息的返回值为一个非零值，则屏幕保护程序将不会启动。 如果你的程序由于未知原因关闭了，那么你的程序将不会响应这个消息，于是屏幕保护程序正常启动。
以下就是这个技巧：
--------------------------------------------------------------------------------
在你的窗体中声明一个消息句柄如下：
TMyForm = class(TForm)     ...     private       procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;     ...       end;  
在实现部分这样做：  
procedure TMyForm.WMSysCommand(var Message: TWMSysCommand);   begin     if Message.Msg = SC_SCREENSAVE then       Message.Result := 1     else       Inherited;   end;