Solo una instancia

Sebastián Almirón · 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

Rafael Clemente · Post by **Rafael Clemente** » 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

Alfredo Arteaga · Post by **Alfredo Arteaga** » 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

Sebastián Almirón · Post by **Sebastián Almirón** » Fri Jul 07, 2006 3:46 pm

Gracias Rafael y Alfredo.

Saludos