Saber si el salvapantallas de windows está ejecutandose

[[ElDioni]]

Hola,

estoy haciendo pruebas y por lo visto lo que se puede saber es si el protector de pantallas esta activo, que no es lo mismo que ejecutandose, o inactivo, quiere decir que si yo tengo desactivado el protector me devuelve false y si lo tengo activado me devuelve true pero no me indica si está corriendo en ese momento. Bueno seguiremos mirando a ver que encuentro.

Saludos.

[Casimiro Notevi]

Cierto, aquí está el parámetro para saber si está corriendo:

Código SQL [-]
Private Sub Timer1_Timer()     
  Dim bRunning As Boolean      ' Beep if the screen saver is running.     
  SystemParametersInfo SPI_GETSCREENSAVERRUNNING, 0, bRunning, False     
  If bRunning Then         
    Beep     
  End If 
End Sub

[[ElDioni]]

Buenas,

al final he visto otro parametro que es el que indica si el salvapantallas está corriendo. El código queda así.

Código Delphi [-]
Procedure ScreenSaverIsRun();
var
aire:boolean;
begin
SystemParametersInfo(SPI_GETSCREENSAVERRUNNING, 0,@aire, 0);
  if aire then
    begin
      label1.Caption:='Salvapantallas corriendo';
    end
  else
    begin
      label1.Caption:='No se está ejecutando el salvapantallas';
    end;
end;

Saludos y gracias por vuestro tiempo.

[[ElDioni]]

Vaya,

tenía el hilo abierto y no he refrescado para darme cuenta de que habías sido más rápido que yo Casimiro, de nuevo gracias por tu tiempo.

Saludos.