FoxPro/Visual FoxPro - ejecutar mi form principal solo una vez

 
Vista:

ejecutar mi form principal solo una vez

Publicado por marfe (190 intervenciones) el 24/09/2004 02:32:15
hola a todos, como puedo hacer para ejecutar una sola vez mi formulario principal y que la 2da vez me emita un mensaje? Lei en notas anteriores sobre el comando wexist(miform) y lo coloque en el init de mi form, pero al generar el ejecutable no me funciona de esta forma...es decir, me vuelve a abrir el form principal que deseo ejecutar una sola vez,

Ojala puedan darme una mano, gracias desde ya
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:ejecutar mi form principal solo una vez

Publicado por saul (362 intervenciones) el 24/09/2004 16:11:59
* Antes de activar la calculadora:
IF NOT F_ActivaWin("Calculadora")
* La calculadora no está cargada:
RUN /N CALC.EXE
ENDIF

* Y ESTA ES LA FUNCION QUE LO HACE TODO:
*-----------------------------
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