[TRUCO DELPHI] Activar / Desactivar el Salvapantallas.
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;
Saludos!