procedure TTestForm.BitBtn1Click(Sender: TObject);<br>var<br> Temp: Integer;<br>begin<br> SystemParametersInfo(SPI_ScreenSaverRunning,1,@Temp,0);<br>end;<br><br>procedure TTestForm.BitBtn2Click(Sender: TObject);<br>var<br> Temp: Integer;<br>begin<br> SystemParametersInfo(SPI_ScreenSaverRunning,0,@Temp,0);<br>end;<br>