FiveTech Software tech support forums

Posted: **Fri Jul 07, 2006 11:27 am**

Hola a todos

Una pregunta de novato: ¿ Como hago para que solo se pueda ejecutar una instancia de la aplicación y si intentan ejecutar una segunda muestre un mensaje diciendo que ya está en ejecución ?

Saludos

Posted: **Fri Jul 07, 2006 12:02 pm**

Sebastián:
Yo lo hago así:

Code: Select all

FUNCTION Main()
   IF IsExeRunning(cFileName(HB_ARGV(0)))
      MsgAlert("Solo puede haber una copia del programa en marcha", "Error")
   ELSE
      oApp := App():New()
   ENDIF
RETURN NIL

Saludos,
Rafael

Posted: **Fri Jul 07, 2006 1:42 pm**

Una mas:

oMain:=TWCapture():New("Mi Aplicación")
IF oMain:lCaptured
MsgAlert("No puede ser abierto más de una vez.","Precaución!")
oMain:Restore()
oMain:GoTop()
QUIT
ENDIF

Posted: **Fri Jul 07, 2006 3:46 pm**

Gracias Rafael y Alfredo.

Saludos

FiveTech Software tech support forums

Solo una instancia

Solo una instancia