怎样用代码关闭用shell调出来的exe文件

Question

用shell调出来的exe文件,想在程序中,加一个控件,通过点击控件来关闭那个exe文件,不知道该怎么样实现,请各位大虾拔刀相助.......

Answer 1

Option Explicit
Const PROCESS_QUERY_INFORMATION = &H400
Const PROCESS_TERMINATE = &H1Dim ProcessId As Long
Dim hProcess  As LongPrivate Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As LongPrivate Sub Command1_Click()
ProcessId = Shell("notepad.exe", 1) 
End SubPrivate Sub Command2_Click()
hProcess = OpenProcess(PROCESS_TERMINATE Or PROCESS_QUERY_INFORMATION, False, ProcessId)
Call TerminateProcess(hProcess, 3838)
End Sub

Answer 2

用一楼的方式可以关闭系统自带的exe,但如果不是系统自带的就关不掉的,而我需要的就是关闭那些包括其他的exe,比如播放器,输入法,.....