Run default screensaver from a code

10 Mar

Run default screensaver from a code

If you want to run default system screensaver from your application, it’s really easy. Just few lines of code. Here’s how to do it…

Sometimes it can be useful to run a default screensaver from your application. And doing it is simple. Here is short example made as an OnClick event.

procedure TForm1.Button1Click(Sender: TObject);
var b : boolean;
begin
if not SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, @b, 0) then exit;
if not b then exit;
PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
end;