ACTIVAR Y DESACTIVAR EL PROTECTOR DE PANTALLA

Útil cuando no queramos que el protector se active cuando estamos programando.

DECLARE LONG SystemParametersInfo IN "user32";
  LONG uAction,;
  LONG UParam,;
  LONG lpvParam,;
  LONG fuWinIni

SPI_SETSCREENSAVEACTIVE = 17
SPIF_SENDWININICHANGE = 2

*-- para impedir que se active :
=SystemParametersInfo (SPI_SETSCREENSAVEACTIVE, .F., 0, SPIF_SENDWININICHANGE)

*-- Para volver a restaurarlo como estaba antes de nuestra intervención :
=SystemParametersInfo (SPI_SETSCREENSAVEACTIVE, .T., 0, SPIF_SENDWININICHANGE)

Jorge Mota