判斷一個(gè)32位程序是否結(jié)束

2019-11-18 17:52:37

字體：大中小

供稿：網(wǎng)友

Windows3.1允許程序員用GetModuleUsage()函數(shù)來(lái)測(cè)試一個(gè)程序或模塊是否仍在運(yùn)行。但在Windows95及WindowsNT下，每個(gè)程序都獨(dú)立地運(yùn)行在單獨(dú)的環(huán)境中，因此就排除了測(cè)試過(guò)程的狀態(tài)。

Microsoft提供了少量的函數(shù)，如：WaitForSingleObject和WaitForMultipleObjects來(lái)完成該功能。盡管如此，這些函數(shù)并不是時(shí)時(shí)都有效。舉例來(lái)說(shuō)，如果你調(diào)用WaitForSingleObject函數(shù)監(jiān)測(cè)InternetExplorer的運(yùn)行，同時(shí)你又選擇了“幫助”菜單中的“教程”項(xiàng)，結(jié)果將會(huì)是系統(tǒng)死鎖，你不得不終止WaitForSingleObject函數(shù)的運(yùn)行。造成這種結(jié)果的原因是你點(diǎn)選了“教程”后，會(huì)返回給InternetExplorer一個(gè)地址，告訴瀏覽器轉(zhuǎn)到下一個(gè)網(wǎng)址。這種情況通常發(fā)生在一個(gè)程序是由調(diào)用它的父程序中的一個(gè)過(guò)程或?qū)ο笏鶈?dòng)，反過(guò)來(lái)卻要等待父程序的結(jié)束。

本文的目的就是要解決這個(gè)問(wèn)題。

Declare

DeclareFunctionOpen access&,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

調(diào)用ShellWait，控制權(quán)將不會(huì)交給一個(gè)過(guò)程，直到調(diào)用該過(guò)程的程序結(jié)束

查看GetExitCodeProcess的用法->

上一篇：VB軟件設(shè)計(jì)中的幾個(gè)問(wèn)題

下一篇：簡(jiǎn)單計(jì)算函數(shù)的編寫(xiě)過(guò)程