怎样判断某一个进程是否执行,若正在执行,就结束此进程

Question

怎样判断某一个进程是否执行,若正在执行,就结束此进程,使用哪个API函数?

Answer 1

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10Private Sub Timer1_Timer()
    Dim hwnd As Long ' 储存 FindWindow 函数返回的句柄
    hwnd = FindWindow(vbNullString, "windows 任务管理器") ' 取得进程标识符
    '只要把Windows Media Player换成别的程序名称就可了！
    If hwnd <> 0 Then
        a = SendMessage(hwnd, WM_CLOSE, 0, 0)
    End IfEnd Sub

Answer 2

http://www.mndsoft.com/blog/article.asp?id=202