FoxPro/Visual FoxPro - Uso del vbasic en vfox 6.0

Hola gracias por tomar en cuenta mi inquietud. Tengo un codigo que bajé de la web de visual basic 6.0 que evita que un ejecutable se ejecute más de una vez, o sea que le usuario no puede correrlo más de una vez por más que haga clic sobre el ícono. Cómo le hago para correr dicho codigo en un sistema hecho en visual fox 6.0???
Gracias por tu soporte

TAIKOS

Si dejas el código de VB lo puedo ver y te digo como. En principio de digo que en VFP una forma sería más o menos algo así:

DECLARE Long FindWindow IN User32 String lpClassName, String lpWindowName
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

Puede que resulte:
¿No has probado que cuando la aplicacion se inicia acitive un switch en una tabla cliente y cuando se cierre la aplicacion desactive dicho switch? Asi, al intentar abrir por segunda vez la aplicacion encontrara el switch activado y forzara a un QUIT. La tabla cliente solo esta vigente en tu PC de modo que circuncribes el problema solo a una interaccion de tipo local.
Que te vaya bien,
TITO

Gracias por tu respuesta. No la he puesto en practica aún.

Saludos
TAIKOS

Esa opción la había pensado pero sucede que si la aplicación se cae o se cae el Windows o simplemente se corta la luz, queda grabado en la tabla cliente que el sistema está activo cuando no es así.
De está manera como se cuentan ventanas activas no sucede.