FoxPro/Visual FoxPro - Instancia Unica de Programa

Muy buenos dias a todos, ire directo al grano mi pregunta es la siguiente.

es posible generar un programa que solo se ejecute una vez, es decir que si ya esta cargado no se vuelva a cargar, en visual basic se hace indicandole al programa antes de compilarlo que sera de unica instancia, fox tiene esta opcion?

Esto me lo pasaron y testea que no exista otra ventana con el mismo nombre, pone esto en el principal:

_screen.caption = "Programa Principal"

IF F_ActivaWin(_screen.caption)
messagebox("Programa en ejecución"+chr(13)+chr(13)+;
"Verifique que no este minimizado",64)
return
ENDIF

*-----------------------------
FUNCTION F_ActivaWin(cCaption)
*-----------------------------

LOCAL nHWD
DECLARE INTEGER FindWindow IN WIN32API ;
STRING cNULL, ;
STRING cWinName

DECLARE SetForegroundWindow IN WIN32API ;
INTEGER nHandle

DECLARE SetActiveWindow IN WIN32API ;
INTEGER nHandle

DECLARE ShowWindow IN WIN32API ;
INTEGER nHandle, ;
INTEGER nState

nHWD = FindWindow(0, cCaption)
IF nHWD > 0
* VENTANA YA ACTIVA
* LA "LLAMAMOS":
*ShowWindow(nHWD,9)

* LA PONEMOS ENCIMA
*SetForegroundWindow(nHWD)

* LA ACTIVAMOS
*SetActiveWindow(nHWD)
RETURN .T.
ELSE
* VENTANA NO ACTIVA
RETURN .F.
ENDIF

si lo k busca es k se ejecute una solo vez entonces al salir del programa borra algun archivo control y ya

Jose camilo, con los archivos control que se generan y luego se borran puede pasar que justo cuando estas en el medio del programa se te corte la luz y cuando vuelva y quieras entrar te va a decir que se esta ejecutando.

Si señor, enrrique tiene razon. Hay que usar APIs para controlar las instancias