RE:Saber si ya está ejecutado el sistema
coloco este codigo en el progama o formulario principal
****
**** Verifica entrada al sistema
****
IF F_ActivaWin("nombre_de_mi_aplicacion)
quit
ENDIF
****
****
****************************************************************************
* Función que verifica ejecución del sistema *
****************************************************************************
****
*-----------------------------
FUNCTION F_ActivaWin(cCaption)
*-----------------------------
****
DECLARE INTEGER FindWindow IN Win32API STRING lpClassName, STRING lpWindowName
DECLARE INTEGER BringWindowToTop IN Win32API INTEGER hwnd
DECLARE INTEGER SendMessage IN Win32API INTEGER hwnd, INTEGER Msg, INTEGER WParam, INTEGER LParam
#DEFINE WM_SYSCOMMAND 274
#DEFINE SC_MAXIMIZE 61488
****
lnHwnd = FindWindow(0, cCaption)
****
IF lnHwnd > 0
BringWindowToTop(lnHwnd) && Mandar la ventana de la aplicación al frente
SendMessage(lnHwnd, WM_SYSCOMMAND, SC_MAXIMIZE ,0) && Maximizar la ventana de la aplicación
RETURN .T.
ELSE
RETURN .F.
ENDIF