FoxPro/Visual FoxPro - Como controlar si esta en ejecución otro sistema

Hola amigos, tengo un sistema de ventas que utiliza a otro sistema para imprimir los comprobantes como puedo saber desde el sistema de ventas si el sistema de impresion esta en ejecución ? utilizo VFP8 gracias

La forma mas sencilla seria que el sistema de impresion marque algun registro en alguna tabla cuando sale y cuando entra.

si eso es lo que tengo pero si se corta la corriente me queda marcado como que esta en uso y al correr el sistema de ventas no puedo establecer si el de impresión esta realmente en ejecución de todas maneras gracias por contestar

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

Gracias voy a probarlo.