Mega Code Archive

 

Categories / Delphi / System

 

How to determine whether the screen saver is enabled

Title: How to determine whether the screen saver is enabled function ScreenSaverEnabled: Boolean; var status: Bool; begin SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, @status, 0); Result := status = True; end; procedure TForm1.Button1Click(Sender: TObject); begin if ScreenSaverEnabled then Caption := 'Screensaver is enabled.' else Caption := 'Screensaver is disabled.' end;