FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Solo una instancia
Sebasti谩n Almir贸n
Posts: 166
Joined: Mon Dec 12, 2005 09:56 AM
Solo una instancia
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

Rafael Clemente
Posts: 365
Joined: Sat Oct 08, 2005 07:59 PM
Solo una instancia
Posted: Fri Jul 07, 2006 12:02 PM
Sebasti谩n:
Yo lo hago as铆:
Code: Select all Collapse
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
Posts: 326
Joined: Sun Oct 09, 2005 05:22 PM
Solo una instancia
Posted: Fri Jul 07, 2006 01: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
Posts: 166
Joined: Mon Dec 12, 2005 09:56 AM
Solo una instancia
Posted: Fri Jul 07, 2006 03:46 PM

Gracias Rafael y Alfredo.

Saludos

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions