Saber si el salvapantallas de windows está ejecutandose

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