Activating or deactivating the screen saver

Sometimes you want to deactivate the current screensaver when performing some very long process. You can use this function to activate or deactivate the screensaver. Pass True to activate it, or False to deactivate it.

function ActivateScreenSaver(Activate: boolean): boolean;
{ func to activate or deactivate the screensaver. }
var
  IntActive: byte;
begin
  { False (0) is off, True (1) is on. }
  if Activate then
    IntActive := 1
  else
    IntActive := 0;
  Result := SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, IntActive, nil, 0);
end;


Blue Orb Software
[email protected]