问个问题,咋样关闭系统的一个进程阿!?

解决方案 »

  1.   

    http://community.csdn.net/Expert/topic/3237/3237855.xml?temp=.2196314
      

  2.   

    用TerminateProcess,如下:(得先知道ProcessId) Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
    Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    '---------------------------    Dim hPro As Long
        Dim ret As Long
        hPro = OpenProcess(PROCESS_TERMINATE, 1&,ProcessId)
        ret = TerminateProcess(hPro, 0)
        CloseHandle hPro
        Sleep 100
        
        If ret   Then msgbox "关闭成功!"