46.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

判断一个32位程序是否结束
作者：胡晓磊 
Windows 3.1允许程序员用GetModuleUsage()函数来测试一个程序或模块是否仍在运行。但在Windows95及Windows NT下，每个程序都独立地运行在单独的环境中，因此就排除了测试过程的状态。

Microsoft 提供了少量的函数，如：WaitForSingleObject和 WaitForMultipleObjects 来完成该功能。尽管如此，这些函数并不是时时都有效。举例来说，如果你调用WaitForSingleObject函数监测Internet Explorer的运行，同时你又选择了“帮助”菜单中的“教程”项，结果将会是系统死锁，你不得不终止WaitForSingleObject函数的运行。造成这种结果的 原因是你点选了“教程”后，会返回给Internet Explorer一个地址，告诉浏览器转到下一个网址。这种情况通常发生在一个程序是由调用它的父程序中的一个过程或对象所启动，反过来却要等待父程序的结束。

本文的目的就是要解决这个问题。

Declare

Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredaccess&, ByVal bInherithandle&, ByVal dwProcessid&) As Long

Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpexitcode As Long) As Long

' Required Constants
Const STILL_ACTIVE = &H103
Const PROCESS_QUERY_INFORMATION = &H400

Code

Sub ShellWait(cCommandLine As String)

Dim hShell As Long
Dim hProc As Long
Dim lExit As Long

hShell = Shell(cCommandLine, vbNormalFocus)

hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell)

Do

GetExitCodeProcess hProc, lExit

DoEvents

Loop While lExit = STILL_ACTIVE

End Sub

调用 ShellWait，控制权将不会交给一个过程，直到调用该过程的程序结束

查看GetExitCodeProcess的用法