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.