Windows3.1允许程序员用GetModuleUsage()函数来测试一个程序或模块是否仍在运行。但在Windows95及WindowsNT下，每个程序都独立地运行在单独的环境中，因此就排除了测试过程的状态。
　　
　　Microsoft提供了少量的函数，如：WaitForSingleObject和WaitForMultipleObjects来完成该功能。尽管如此，这些函数并不是时时都有效。举例来说，如果你调用WaitForSingleObject函数监测InternetExplorer的运行，同时你又选择了“帮助”菜单中的“教程”项，结果将会是系统死锁，你不得不终止WaitForSingleObject函数的运行。造成这种结果的原因是你点选了“教程”后，会返回给InternetExplorer一个地址，告诉浏览器转到下一个网址。这种情况通常发生在一个程序是由调用它的父程序中的一个过程或对象所启动，反过来却要等待父程序的结束。
　　
　　本文的目的就是要解决这个问题。
　　
　　Declare
　　
　　DeclareFunctionOpenProcessLib"kernel32"(ByValdwDesiredaccess&,ByValbInherithandle&,ByValdwProcessid&)AsLong
　　
　　DeclareFunctionGetExitCodeProcessLib"kernel32"(ByValhProcessAsLong,lpexitcodeAsLong)AsLong
　　
　　'RequiredConstants
　　ConstSTILL_ACTIVE=&H103
　　ConstPROCESS_QUERY_INFORMATION=&H400
　　
　　Code
　　
　　SubShellWait(cCommandLineAsString)
　　
　　DimhShellAsLong
　　DimhProcAsLong
　　DimlExitAsLong
　　
　　hShell=Shell(cCommandLine,vbNormalFocus)
　　
　　hProc=OpenProcess(PROCESS_QUERY_INFORMATION,False,hShell)
　　
　　Do
　　
　　GetExitCodeProcesshProc,lExit
　　
　　DoEvents
　　
　　LoopWhilelExit=STILL_ACTIVE
　　
　　EndSub
　　
　　调用ShellWait，控制权将不会交给一个过程，直到调用该过程的程序结束
　　
　　查看GetExitCodeProcess的用法->