Activate/Deactivate 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;
var
        IntActive: byte;
begin
        if Activate then
               IntActive := 1
        else
               IntActive := 0;

        Result := SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, IntActive, nil, 0) ;
end;