prueba con esto, yo lo utilice en NT, 2000, 9x sin problemas.
//Busco si hay una aplicacion
HandleApp := FindWindow('TForm1',nil);
//el nil es por el titulo de la ventana por si quieres
//identificar mas aun la aplicacion
Application.Initialize;
if (HandleApp=0)
then
//no hay una instancia ejecutando
else
//Esta ejecutandose una instancia
Saludos
|