RE:Evitar que la aplicacion se ejecute dos veces
-- Aqui va otra mas completa que encontre por alli, solo que no me acuerdo para poner los creditos correspondientes --
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 (el programa ya se esta ejecutando)
_screen.visible = .f.
=Messagebox("No se puede ingrese, el programa ya se encuentra ejecutandose",0+64,"Mensaje")
ShowWindow(nHWD,9)
* LA PONEMOS ENCIMA
SetForegroundWindow(nHWD)
* LA ACTIVAMOS
SetActiveWindow(nHWD)
RETURN .T.
ELSE
* VENTANA NO ACTIVA
RETURN .F.
ENDIF