FoxPro/Visual FoxPro - Terminar Proceso en Ejecución

 
Vista:

Terminar Proceso en Ejecución

Publicado por Bernal Delgado (26 intervenciones) el 15/05/2007 18:34:41
Saludos Colegas!!

Tengo un problema, necesito actualizar un ejecutable, pero este está en ejecución, por lo que antes de copiar la nueva version tengo que terninar el proceso de ejecución, he intentado con taskkill pero no he tenido exito, si alguien tiene una idea se lo agradezco de antemano!!

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Terminar Proceso en Ejecución

Publicado por Plinio (7841 intervenciones) el 15/05/2007 19:37:07
Y no puedes salir normalmente?? Porque creo que si es algo que haces a veces, solo tienes que salir de aplicacio y ya.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Terminar Proceso en Ejecución

Publicado por Ernesto Hernandez (4623 intervenciones) el 15/05/2007 21:50:43
Prueba esta funcion

IF KillApp("Pon el caption de tu ventana")
?"Aplicacion killed"
ELSE
?"Aplicacion sigue viva..."
ENDIF

FUNCTION KillApp
LPARAMETER tcCaption
LOCAL lnWinHandle, lnRetval, lnResult, llRetval
DECLARE INTEGER WaitForSingleObject IN Win32API ;
INTEGER hHandle, ;
INTEGER dwMilliseconds

DECLARE INTEGER FindWindow IN Win32API ;
STRING lpClassName, ;
STRING lpWindowName

DECLARE INTEGER PostMessage IN Win32API ;
INTEGER hwnd, ;
INTEGER wMsg, ;
INTEGER wParam, ;
INTEGER lParam

DECLARE INTEGER IsWindow IN Win32API ;
INTEGER hwnd

#DEFINE WM_CLOSE 16 && H10
#DEFINE INFINITE 4294967295 && HFFFFFFFF

lnWinHandle = FindWindow(0, tcCaption)
lnRetval = PostMessage(lnWinHandle, WM_CLOSE, 0, 0)
lnResult = WaitForSingleObject(lnWinHandle, INFINITE)
llRetval = (IsWindow(lnWinHandle) = 0)
RETURN llRetval
ENDFUNC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar