FoxPro/Visual FoxPro - aplicacion no se ajecute mas de una vez

Tengo una aplicación realizada en VFP, y necesito que la aplicacion no se ejecute mas de una vez, y que salga un mensaje "La aplicación ya esta siendo ejecutada", no se como hacerlo.

Atte
Marcelo

Hola Marcelo:

Casualidad, que en la primera entrega de mi boletin electronico, en la seccion de preguntas esta una rutina que soluciona tu problema.

Puedes descargarlo desde:

http://www.geocities.com/foxperto01/boletin0101

La segunda entrega de ese boletin se hara el Domingo 31 de agosto de 2003.

Prueba y me cuentas.
Saludos

Lo puedes hacer con esto:

DECLARE Long FindWindowEx IN User32 Long hWnd1, Long hWnd2, String lpsz1, String lpsz2

hhWnd=0
hwnd=FindWindowEx(0,0,"MiEjecutable6c000000","")

DO WHILE hwnd<>0
hwnd=FindWindowEx(0,hwnd,"MiEjecutable6c000000","")
hhWnd=hhWnd+1
ENDDO
IF (hhWnd>2)
MSGBOX("Sólo puede ejecutarse una sesión por sistema."+CHR(13)+CHR(13)+"Salga de otras sesiones que tenga abiertas y ejecute nuevamente.",0+16,"¡Atención!")
QUIT
ENDIF