RE:Saber si un programa se esta ejecutando
ASI SE EJECUTA DESDE EL PROGRAMA INICIAL TUYO.
-----------------------------------------------------------------------------------
IF F_ActivaWin("FACTURACION") && este es el titulo de la venta principal de tu aplicación
messagebox("Programa en ejecución"+chr(13)+chr(13)+;
"Verifique que no este minimizado",48,'Cuidado')
close all
set sysmenu to default
clear events
quit
ENDIF
Esta es la función que hace la verificación:
-----------------------------------------------------------
*-----------------------------
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
RETURN .T.
ELSE
* VENTANA NO ACTIVA
RETURN .F.
ENDIF
Eso es todo.
Buena Suerte.
Alexcoinc