Office中国论坛/Access中国论坛

标题: 菜鸟API 关闭进程问题 [打印本页]

作者: myszh 时间: 2007-2-6 06:13
标题: 菜鸟API 关闭进程问题
再找了一段API的程序却不知道怎么样应用如：我要关闭 WORD.EXE  怎么调用下面的程序

Private    Declare    Function    GetWindowThreadProcessId    Lib    "user32"    (ByVal    hwnd    As    Long,    lpdwProcessId    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    Function    TerminateProcess    Lib    "kernel32"    (ByVal    hProcess    As    Long,    ByVal    uExitCode    As    Long)    As    Long
  Private    Const    PROCESS_TERMINATE    =    &H1

  ''用于结束外部进程，hCloseWnd    是要结束的程序的主窗口的    HWND
  Public    Function    TernamiteProcessByHWND(ByVal    hCloseWnd    As    Long)    As    Boolean
  Dim    hProcessID       As    Long
  Dim    hProcess                As    Long
  On    Error    GoTo    PROC_EXIT
            If    hCloseWnd    =    0    Then    GoTo    PROC_EXIT
            If    GetWindowThreadProcessId(hCloseWnd,    hProcessID)    =    0    Then    GoTo    PROC_EXIT
            hProcess    =    OpenProcess(PROCESS_TERMINATE,    False,    hProcessID)
            If    hProcess    =    0    Then    GoTo    PROC_EXIT
            If    TerminateProcess(hProcess,    0&)    =    0    Then    GoTo    PROC_EXIT
            TernamiteProcessByHWND    =    True
  PROC_EXIT:
            If    Err.Number    <>    0    Then
                              Debug.Print    Err.Description
                              Err.Clear
            End    If
  End    Function [em06]

作者: andymark 时间: 2007-2-6 06:19
http://www.office-cn.net/forum.php?mod=viewthread&tid=47065&replyID=34966&skin=1

作者: myszh 时间: 2007-2-6 06:21
看到过你的列子了写的不错我想用我找来的这段程序如何引用

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)