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的用法->
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
