Solo una instancia

[Sebastián Almirón]

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]

Sebastián:
Yo lo hago así:

Code: Select all  Expand view

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]

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]

Gracias Rafael y Alfredo.

Saludos