Lenguaje de programación Borland Delphi
Añadiremos un formulario y un botón. En el USES del formulario pondremos "Windows". En el evento click del mismo pondremos el siguiente código:
procedure TFormUtilidades.BSalvaPantallasActivoClick(Sender: TObject);
var
SC_Status : integer;
begin
{saber si el salva pantallas está activado}
SystemParametersInfo (SPI_GETSCREENSAVEACTIVE, 0, @SC_Status, 0);
if SC_Status = 1 then
showmessage('Salvapantallas activo')
else
showmessage('Salvapantallas NO activo')
end;
Publicado el: 2003-10-15