研发埠

标题: 如何解决shell执行外部程序的等待问题？ [打印本页]

作者: 邢城 时间: 2013-7-2 11:27
标题: 如何解决shell执行外部程序的等待问题？

作者: 淡写轻描 时间: 2013-7-2 11:30
我们用shell()来执行外部的程序时，一旦shell启动了外部程序后无论外部程序是否已经运行完毕，Access 都会继续执行 shell 语句下面的 VBA 程序。若要 Access 等待 shell() 调用的外部程序执行完毕后再继续执行下面的 VBA 程序可使用以下方法：&#39;以下语句加入窗体声明段Private Declare Function OpenProcess Lib&quot;kernel32&quot; (ByVal dwDesiredaccess&, ByVal bInherithandle&, ByValdwProcessid&) As LongPrivate Declare Function GetExitCodeProcessLib &quot;kernel32&quot; (ByVal hProcess As Long, lpexitcode As Long) As LongConst STILL_ACTIVE = &H103Const PROCESS_QUERY_INFORMATION = &H400Dim hShell As LongDim hProc As LongDim lExit As Long&#39;更改您的shell语句为如下格式： hShell = Shell(&quot;RunExeFile&quot;, 1) hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell) If hShell = 0 Then MsgBox &quot;程序执行失败&quot; Do GetExitCodeProcess hProc, lExit DoEvents Loop While lExit = STILL_ACTIVE MsgBox &quot;Shell 语句执行完毕&quot;

欢迎光临研发埠 (http://bbs.yanfabu.com/)