Saber si el salvapantallas de windows está ejecutandose

[Casimiro Noteví]

He encontrado esto en... parece basic , pero de ahí se puede saber ya hacerlo en delphi

Código SQL [-]
Private Sub Form_Load()     
  Dim bActive As Boolean          ' Find out if screen saver is active, and display a suitable message.     
  SystemParametersInfo SPI_GETSCREENSAVEACTIVE, 0, bActive, False     
  If bActive Then         
    Me.Caption = "Screen saver is active"     
  Else         
    Me.Caption = "Screen saver is not active"     
  End If 
End Sub

[[ElDioni]]

Hola,

gracias a los dos por la información, voy a ponerme a investigar un poco a ver si saco petroleo. Ya os contaré.

Saludos.

[[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 Noteví]

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.