FoxPro/Visual FoxPro - Instancia Unica de Programa

   
Vista:

Instancia Unica de Programa

Publicado por Jose Dagnover Franco (1 intervención) el 28/04/2008 15:14:37
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?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Instancia Unica de Programa

Publicado por enrique (1041 intervenciones) el 28/04/2008 17:57:31
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Instancia Unica de Programa

Publicado por jose camilo (688 intervenciones) el 29/04/2008 17:04:27
si lo k busca es k se ejecute una solo vez entonces al salir del programa borra algun archivo control y ya
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Instancia Unica de Programa

Publicado por enrique (1041 intervenciones) el 29/04/2008 23:56:55
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Instancia Unica de Programa

Publicado por kong (681 intervenciones) el 30/04/2008 09:45:36
Si señor, enrrique tiene razon. Hay que usar APIs para controlar las instancias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar