Delphi - saber si se ha lanzado el salvapantallas

Hola me gustaria saber como puedo preguntar por delphi si se ha activado el salvapantallas o no.

Un saludo ..

A partir de Windows 98 y Windows 2000 puedes llamar a SystemParametersInfo con SPI_GETSCREENSAVERRUNNING para saber si el salvapantallas está corriendo.

Para versiones anteriores de Windows (95/NT), no tengo ni idea.

Ernesto

Lo siento por seguir dando la bara pero SPI_GETSCREENSAVERRUNNING no me lo reconoce mi delphi 3
es normal??
Lo que tendria que poner seria?
if SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, nil, 0) then

Claro, me imagino que Windows98 no estaba para la época que salió Delphi 3... así que no sólo que no tienes declarada la constante SPI_SCREENSAVERRUNNING (a propósito, vale 97) en windows.pas, sino que la ayuda MS SDK no está actualizada.. Bueno, tu código debería ser así:

const
SPI_GETSCREENSAVERRUNNING = 97;
var
Corriendo: LongInt; // Puede ser LongBool
begin
SystemParametersInfo(SPI_GETSCREENSAVERRUNNING, @Corriendo, nil, 0);
if Corriendo <> 0 then
// El salvapantallas está corriendo

Espero que te sirva.

Ernesto

Siento ser el mas pesado del mundo pero , el codigo que me mandaste
me da el siguiente error (trabajando sobre w.2000 Professional):

Incompatibles types: \'Integer\' and \'Pointer\'

De todas maneras muchas gracias por haberte molestado..
Un saludo.

Ah... La función espera como segundo parámetro un entero (que lo interpreta como muchas cosas según el primer parámetro). Haz la conversión:

Integer(@corriendo)

Ernesto

Hola de nuevo , no se como agradecerte ya el que te molestes en contestarme.E puesto todo lo que me mandaste ,solo que la variable
corriendo la he declarado general y la inicializo a 0 en el create, todo
lo demas lo tengo asi , no me da ningun fallo pero , la variable corriendo
he comprobado que no tomo otro valor que el 0 ,auque se halla lanzado el salvapantallas.

Estoi haciendo algo mal??

El codigo lo tengo asi:

procedure TForm1.Timer2Timer(Sender: TObject);
const
SPI_GETSCREENSAVERRUNNING = 97;
begin
SystemParametersInfo(SPI_GETSCREENSAVERRUNNING, integer(@Corriendo), nil, 0);
if Corriendo <> 0 then
showmessage('lanzado');
end;

Un saludo Tino..

Te pido disculpas por mi error. El puntero se pasa como tercer parámetro, no como segundo. Te quedaría así:

procedure TForm1.Timer2Timer(Sender: TObject);
const
SPI_GETSCREENSAVERRUNNING = 97;
var
Corriendo: integer;
begin
SystemParametersInfo(SPI_GETSCREENSAVERRUNNING, 0, @Corriendo, 0);
if Corriendo <> 0 then
showmessage('lanzado');
end;

El único detalle, es que las ventanas de ShowMessage no se verán (serán tapadas por el salvapantallas).

Ernesto

Hola de nuevo , ya he conseguido que me funcione a medias.
He cambiado una cosa para que me pudiera funcionar:
const
SPI_GETSCREENSAVERRUNNING = 114;
Lo vi en una pagina china hoy y asi si que funciona , pero me
parece que solo funciona en el 2000(las pruebas me salieron bien) y no en el 98(no he hecho muchas pruebas).

Esperemos cerrar aqui el capitulo del salvapantallas y muchas gracias
por todas las veces que me has contestado..

Un saludo ..

A SPI_SCREENSAVERRUNNING (97) lo ví en la unidad Windows y pensé que era ese, curiosamente a mí me funcionó (tengo W98), pero acabo de chequear la página de la MSDN Library y allí dice SPI_GETSCREENSAVERRUNNING (114), y que es para W2000 y W98/Me.

Bueno, creo con eso ya te andará. Suerte!!!!! :-)

Ernesto