FoxPro/Visual FoxPro - Evitar que la aplicacion se ejecute dos veces

Quiero hacer que una aplicacion en VISUAL FOXPRO 6.0 no se pueda ejecutar mas de una vez, pues al hacerlo me da error en las bases de datos. Y no quiero que trabaje en red... asi como en visual basic que se puede evitar con el objeto app.previnstance...

Hola como estas?

En fox existe un pequeño truco para solucionar este problema.
aqui te va el codigo, debes ponerlo al iniciar tu aplicacion.
******************************************************************************
IF _EstaActiva("El caption de tu aplicacion")
MESSAGEBOX("La aplicación, ya esta activa imposible cargar nuevamente",16,"Error al cargar apliacación")
CANCEL
ENDIF

FUNCTION _EstaActiva(tcCaption)
DECLARE INTEGER FindWindow in WIN32API;
STRING cNULL,;
STRING cWinName
RETU FindWindow(0,tcCaption)# 0
ENDFUNC
******************************************************************************

-- Aqui va otra mas completa que encontre por alli, solo que no me acuerdo para poner los creditos correspondientes --

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 (el programa ya se esta ejecutando)
_screen.visible = .f.
=Messagebox("No se puede ingrese, el programa ya se encuentra ejecutandose",0+64,"Mensaje")
ShowWindow(nHWD,9)

* LA PONEMOS ENCIMA
SetForegroundWindow(nHWD)

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

si deseas resolver tu problema has lo que yo esto es una forma mas sencilla y funcion yo mismo la cree es haci

IF FILE('C:\VENTAS_GB\WOP.WPR')
MESSAGEBOX("La aplicación, ya esta activa imposible cargar nuevamente",16,"Error al cargar apliacación")
QUIT
ELSE
SET PRINTER TO C:\VENTAS_GB\WOP.WPR
SET DEVI TO PRINTER
@0,0 SAY "SI"
SET DEVI TO SCREEN
SET PRINTER TO
ENDIF

solo copialo y reemplaza el nombre de direcctorio por el de tu sistema y mantienes el nombre de archivo o cambias el nombre no importa la cuestion es que en el formulario que cierra tu sistema recuerda borrar el archivo con la misma direccion para que el programa se pueda abrir la primera ves el comando es

DELETE FILE C:\VENTAS_GB\WOP.WPR

ves que sencillo pruebalo y si te funciona bien por ti

Estuve pensando mucho y no encontre la solucion, gracias me funciono perfectamente. Ahora bien por ti tambien!!!!

Gracias JORGE, muy util

Muchisimas gracias!!!, TAN SIMPLE Y TAN EFECTIVA, (despues de 1789422 intentos)

Hola, en realidad no te va a funcionar siempre, el momento en el que por alguna razón el programa se interrumpa, el archivo no se destruirá y cuando quieras ingresar no podrás porque te dirá que el sistema ya está en uso.

Suerte.

Buenos días Fernando!

Concuerdo con el colega Santiago Juan.
Ese truco de crear/eliminar el archivo lo uso para bloquear el sistema. Con un módulo de desbloqueo por interrupciones.
Para lo que requieres mejor usa la Api FInwindow()

Ejemplo:
lCapAct="aquí el caption de la ventana de tu aplicación"&&considera mayúsculas y minúsculas
Declare Integer FindWindow In Win32API Integer, String
IF FindWindow(0,lCapAct)<>0&&si ya esta abierta
*rutina si la encuentra
EndIf

Suerte
zarlu
Chetumal, Quintana Roo, México