Foros Club Delphi - Activar y desactivar el protector de pantalla

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - Activar y desactivar el protector de pantalla (https://www.clubdelphi.com/foros/showthread.php?t=48626)

madiazg

29-09-2007 16:15:08

Activar y desactivar el protector de pantalla

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

dec	29-09-2007 16:19:21

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

01-10-2007 16:18:52

Muchas gracias,
funciona perfectamente.
Saludos...

La franja horaria es GMT +2. Ahora son las 20:41:55.