No hay respuestas en este tema

[sir.dev.a.lot]

[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!