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 (http://delphi.about.com/mbiopage.htm) muestra cómo hacer lo que quieres en Activate/Deactivate the Screen Saver (http://delphi.about.com/cs/adptips2001/a/bltip0501_5.htm).


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...