CORRIENDO 2 EXE A LA VEZ

[Loren]

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

[Antonio Linares]

Code: Select all  Expand view  RUN

IF IsExeRunning(cFileName(GetModuleFileName(GetInstance())))   msgalert("Program already running!"+CRLF+"This program cannot be started more than one instance!")
   QUIT
ENDIF