RE:Como controlar si esta en ejecución otro sistem
Esto lo pones en el principal y verifica que no este abierta otra ventana
IF F_ActivaWin("TITULO VENTANA PROGRAMA DE IMPRESIÓN")
messagebox("Programa en ejecución"+chr(13)+chr(13)+;
"Verifique que no este minimizado",64)
return
ENDIF
READ EVENTS
*-----------------------------
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