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，控制权将不会交给一个过程，直到调用该过程的程序结束