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