Saber si la aplicacion ya esta corriendo

Post Reply
Jorge Jaurena
Posts: 145
Joined: Fri Oct 21, 2005 6:35 pm

Saber si la aplicacion ya esta corriendo

Post by Jorge Jaurena »

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.
User avatar
Rafael Clemente
Posts: 365
Joined: Sat Oct 08, 2005 7:59 pm
Location: Barcelona, Spain

Post by Rafael Clemente »

Yo lo hago así:

IF IsExeRunning(cFileName(HB_ARGV(0)))
MsgInfo("Aplicación en marcha")
ENDIF

Saludos,
Rafael
User avatar
Raymundo Islas M.
Posts: 590
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Post by Raymundo Islas M. »

Gracias Rafael

Estaba tambien peleando con el GetTask() y no me funcionaba bien, tu repuesta me cayo como caida del cielo :D :D

Saludos
FWH 10.6 + xHarbour + Borland 582
Jorge Jaurena
Posts: 145
Joined: Fri Oct 21, 2005 6:35 pm

Post by Jorge Jaurena »

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
//----------------------------------------------------------------------------//
Post Reply