Shell

核心提示：希望某一VB程序利用Shell执行某一个外部程序(假设是notepad.exe)之后，就一直等到此一程序结束执行时，Shell，才回到VB程序继续执行，该怎么办到呢？当我们调用Shell时，应将Declare之前的Private保留字去掉，并且在Const之前加上Public保留字，会传回一个数值，此一数值称为PRoc

希望某一VB程序利用Shell执行某一个外部程序(假设是notepad.exe)之后，就一直等到此一程序结束执行时，才回到VB程序继续执行，该怎么办到呢？

当我们调用Shell时，会传回一个数值，此一数值称为PRocessId，利用此一ProcessId，我们可以调用OpenProcessAPI取得ProcessHandle，然后再利用ProcessHandle调用WaitForSingleObject，即可等待被Shell执行的程序执行完毕，才继续向下执行。细节如下：

1.API的声明：

ConstSYNCHRONIZE=&H100000
ConstINFINITE=&HFFFFFFFF
PrivateDeclareFunctionOpenProcessLib"kernel32"(ByValdwDesiredaccessAsLong,ByValbInheritHandleAsLong,ByValdwProcessIdAsLong)AsLong
PrivateDeclareFunctionCloseHandleLib"kernel32"(ByValhObjectAsLong)AsLong
PrivateDeclareFunctionWaitForSingleObjectLib"kernel32"(ByValhHandleAsLong,ByValdwMillisecondsAsLong)AsLong

注：如果以上的声明放在「一般模块」底下，应将Declare之前的Private保留字去掉，并且在Const之前加上Public保留字。

2.程序范例：(以执行Notepad程序为例)

DimpIdAsLong,pHndAsLong'分别声明ProcessId及ProcessHandle变数

pId=Shell("Notepad",vbNormalFocus)'Shell传回ProcessId

pHnd=OpenProcess(SYNCHRONIZE,0,pId)'取得ProcessHandle
IfpHnd<>0Then
CallWaitForSingleObject(pHnd,INFINITE)'无限等待，直到程序结束
CallCloseHandle(pHnd)
EndIf->