不太难问题:VB中如何关闭shell打开的外部EXE程序

[wine]

VB中如何关闭shell打开的外部EXE程序

[kxy]

关闭一个外部的exe程序,和他是不是Shell打开的有关系吗.
如果你是在VB中用CreateProcess来打开Exe,可以很方便的得到他的Handle.

[Chen_Lin]

Private Declare Function TerminateProcess Lib "kernel32" _
(ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Const PROCESS_QUERY_INFORMATION = &H400
Private hProcess As Long
-----------------在程序中------------------
Dim pid As Long

pid = Shell("notepad.exe", vbNormalFocus)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
----------------如果要关闭-----------------
If hProcess <> 0 Then
aa = TerminateProcess(hProcess, 3838)
End If