Activar el salvapantallas

[dec]

Hola,

De Zarko Gajic:

Código Delphi [-]
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;