如何禁止屏幕保护？

Question

关闭屏幕保护 
 procedure TForm1.Button1Click(Sender: TObject); 
begin 
{Turn it off} 
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 
0, 
nil, 
0); 
{Turn it on} 
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 
1, 
nil, 
0); 
end; 

Answer 1

让系统认为已经处于屏保状态，它就不会再次激活屏保了：
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1 ,nil , 0);