第一种方法是使用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;