确定 shell 进程何时结束

时　间:2022-11-05 05:44:27
作　者:杨雪   ID：42182  城市：南京
摘　要:创建 Shelled 进程，等待 Shelled 进程结束。
正　文:

创建一个标准模块，并将以下行粘贴到声明节：

Option Explicit 

Private Type STARTUPINFO 
cb As Long 
lpReserved As String 
lpDesktop As String 
lpTitle As String 
dwX As Long 
dwY As Long 
dwXSize As Long 
dwYSize As Long 
dwXCountChars As Long 
dwYCountChars As Long 
dwFillAttribute As Long 
dwFlags As Long 
wShowWindow As Integer 
cbReserved2 As Integer 
lpReserved2 As Long 
hStdInput As Long 
hStdOutput As Long 
hStdError As Long 
End Type 

Private Type PROCESS_INFORMATION 
hProcess As Long 
hThread As Long 
dwProcessID As Long 
dwThreadID As Long 
End Type 

Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _ 
hHandle As Long, ByVal dwMilliseconds As Long) As Long 

Private Declare Function CreateProcessA Lib "kernel32" (ByVal _ 
lpApplicationName As Long, ByVal lpCommandLine As String, ByVal _ 
lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _ 
ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _ 
ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, _ 
lpStartupInfo As STARTUPINFO, lpProcessInformation As _ 
PROCESS_INFORMATION) As Long 

Private Declare Function CloseHandle Lib "kernel32" (ByVal _ 
hObject As Long) As Long 

Private Const NORMAL_PRIORITY_CLASS = &H20& 
Private Const INFINITE = -1& 

Public Sub ExecCmd(cmdline As String) 
Dim proc As PROCESS_INFORMATION 
Dim start As STARTUPINFO 
Dim ReturnValue As Integer 

' Initialize the STARTUPINFO structure: 
start.cb = Len(start) 

' Start the shelled application: 
ReturnValue = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, _ 
NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc) 

' Wait for the shelled application to finish: 
Do 
ReturnValue = WaitForSingleObject(proc.hProcess, 0) 
DoEvents 
Loop Until ReturnValue <> 258 

ReturnValue = CloseHandle(proc.hProcess) 
End Sub

若要测试函数，请在"立即"窗口中粘贴 以下代码 ，然后按 Enter。 记事本启动。 片刻后，关闭记事本。 关闭时，将显示记事本框。

ExecCmd "NOTEPAD.EXE": MsgBox "Process Finished"