FoxPro/Visual FoxPro - como Matar procesos?

 
Vista:

como Matar procesos?

Publicado por Sara (15 intervenciones) el 18/08/2007 23:10:56
bueno amigos del foro, una vez mas haciendoles preguntas!

lo que necesito es poder matar un proceso, pero sin utilizar ninguna api, si es posible!?

que comando tengo que utilizar, algo asi como el taskkill en msdos, por favor ayuda...
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:como Matar procesos?

Publicado por Plinio (7841 intervenciones) el 19/08/2007 00:57:35
Si te refieres a VFP pones en tu programa Principal SET ESCAPE ON y veras que si presiona la tecla ESC dentro de un proceso te saldran muchas malas palabras y se tumba.
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

RE:como Matar procesos?

Publicado por sara (15 intervenciones) el 19/08/2007 01:23:54
sino por ejemplo desde un command poder matar el proceso "msnmsgr.exe" que es el proceso del Messenger!
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

RE:como Matar procesos?

Publicado por Plinio (7841 intervenciones) el 19/08/2007 03:34:01
Eso es otra cosa.
Abre Messenger y luego pon en un .prg este codigo y correlo a ver que pasa.

IF KillApp("Windows Live Messenger")
?"app killed"
ELSE
?"app still alive..."
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