Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Comprobar si el protector de pantalla - salvapantallas - está activo - Delphi
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

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A