判断一个32位程序是否结束

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的用法->