《VB shell以同步方式打开一个exe文件下》由会员分享,可在线阅读,更多相关《VB shell以同步方式打开一个exe文件下(1页珍藏版)》请在金锄头文库上搜索。
1、VB shell 以同步方式打开一个 exe 文件下 方法二Private Declare Function OpenProcess Lib “kernel32“ (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function CloseHandle Lib “kernel32“ (ByVal hObject As Long) As Long Private Declare Function WaitForSingl
2、eObject Lib “kernel32“ (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As LongPrivate Const SYNCHRONIZE = &H100000 Private Const INFINITE = &HFFFF Infinite timeout Private Const WAIT_TIMEOUT = &H102&Public Function ShellForWait(sAppName As String, Optional ByVal lShowWindow As VbAppWinStyle =
3、vbMinimizedFocus, Optional ByVal lWaitTime As Long = 0) As BooleanDim lID As Long, lHnd As Long, lRet As LongOn Error Resume NextlID = Shell(sAppName, lShowWindow)If lID 0 ThenlHnd = OpenProcess(SYNCHRONIZE, 0, lID)If lHnd 0 ThenDolRet = WaitForSingleObject(lHnd, lWaitTime)DoEventsLoop While lRet = WAIT_TIMEOUTCloseHandle lHndShellForWait = TrueElseShellForWait = FalseEnd IfElseShellForWait = FalseEnd If End FunctionShellForWait(“notepad.exe“,&HFFFF)