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

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