Hoal a todos.
Estoy tratando de determinar si mi aplicacion ya esta corriendo y utilizo la funcion GetTasks(), pero noto que siempre detecta una sola vez la aplicacion a pesar de que la ejecuto varias veces.
Desde ya, muchas gracias.
Jorge Jaurena
p.d. Si alguien sabe como hacer para que funcione el SET DEFAULT TO cuando uso ADS local, me haria un gran favor.
Yo lo hago así:
IF IsExeRunning(cFileName(HB_ARGV(0)))
MsgInfo("Aplicación en marcha")
ENDIF
Saludos,
Rafael
Gracias Rafael
Estaba tambien peleando con el GetTask() y no me funcionaba bien, tu repuesta me cayo como caida del cielo 
Saludos
Gracias por la respuesta. De todas maneras se me ocurrio modificar la funcion GetTasks() y asi obtengo las aplicaciones corriendo en el numero en que se repitan. Aca va mi GetTasks()
//----------------------------------------------------------------------------//
Function GetTask()
local hWnd := GetWindow( GetActiveWindow(), GHW_HWNDFIRST )
local aTasks := {}
local cTask
while hWnd != 0
#ifdef CLIPPER
cTask = GetModuleFileName( GetWindowWord( hWnd, GWW_HINSTANCE ) )
#else
cTask = GetWindowText( hWnd ) // The above does now work 
#endif
AAdd( aTasks, cTask )
hWnd = GetWindow( hWnd, GHW_HWNDNEXT )
end
Return aTasks
//----------------------------------------------------------------------------//