FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour CORRIENDO 2 EXE A LA VEZ
Posts: 479
Joined: Fri Feb 16, 2007 10:29 AM
CORRIENDO 2 EXE A LA VEZ
Posted: Sun Mar 18, 2007 10:18 AM
compañeros:
necesito desde mi EXe llamar a otro EXE mediante Winexec, pero antes de llamarlo quiero saber si ya está corriendo. ¿como lo puedo saber?

Intenté con la función GetTasks(), haciendo esto:

funct llamarfun
if AScan( GetTasks(), 'post-it.exe') == 0
winexec('.\post-it\post-it.exe')
else
msginfo('Ya está corriendo')
endif
return

... pero no resultó... siempre abre el EXE. Alguna sugerencia???
mil gracias. LORENZO
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
CORRIENDO 2 EXE A LA VEZ
Posted: Sun Mar 18, 2007 06:55 PM
IF IsExeRunning(cFileName(GetModuleFileName(GetInstance())))   msgalert("Program already running!"+CRLF+"This program cannot be started more than one instance!") 
   QUIT 
ENDIF
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion