FoxPro/Visual FoxPro - Saber cuando un programa se esta ejecutando

Hola se que para saver si una aplicacion o programa se esta ejecutando, debes de saber el nombre de la clase de la ventana del programa en cuestion, me gustaria que me pasaran un archivo fuente en Vfp que lo haga....muchas gracias por su pronta respuesta.

Buenas.
Hay que utilizar la función de la PAPI der güindow

declare integer FindWindow in user32 string,string

ventana=findwindow(0,"Caption de la aplicación")
if ventana>0
messagebox("No se puede ejecutar más de una sesión del programa.")
quit
endif

Suerte