如何判断一个exe文件在使用中,并且把它关闭.

解决方案 »

  1.   

    Public Sub TerminateTask(app_name As String)
        Dim app_hwnd As Long    app_hwnd = FindWindow(vbNullString, app_name)   'app_name是窗体的标题    PostMessage app_hwnd, WM_CLOSE, 0, 0
    End Sub
    api及常数自己声明吧!
      

  2.   

    Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
    Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
    Public Const WM_CLOSE = &H10