64,684
社区成员
发帖
与我相关
我的任务
分享
Dim dwRet As Double, hProcess As Long, logExit
dwRet = Shell(pFile, vbNormalFocus)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, dwRet)
Do
Call GetExitCodeProcess(hProcess, logExit)
DoEvents
Loop While logExit = STILL_ALIVE
Call CloseHandle(hProcess)