RE:Para Windows 98+ y Windows 2000+
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..