Activar y desactivar el protector de pantalla

[madiazg]

Hola a todos,
¿alguien sabe como desactivar y activar el protector de pantalla?
Saludos...

[dec]

Hola,

Zarko Gajic muestra cómo hacer lo que quieres en Activate/Deactivate the Screen Saver.

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;

[madiazg]

Muchas gracias,
funciona perfectamente.
Saludos...