【Access示例】启动可执行并等待该文件执行结束
时 间:2019-03-08 08:30:20
作 者:缪炜 ID:24010 城市:江阴
摘 要:启动可执行并等待该文件执行结束
正 文:
主要代码:
Option Compare Database Option Explicit Private Declare Function ShellExecuteEx Lib "shell32.dll" Alias "ShellExecuteExA" (lpExecInfo As SHELLEXECUTEINFO) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Declare Function GetDesktopWindow Lib "user32" () As Long Private Type SHELLEXECUTEINFO cbSize As Long fMask As Long hwnd As Long lpVerb As String lpFile As String lpParameters As String lpDirectory As String nShow As Long hInstApp As Long lpIDList As Long lpClass As String hkeyClass As Long dwHotKey As Long hIcon As Long hProcess As Long End Type Public Function RunProc(CommandLine As String) As Boolean Dim ShellInfo As SHELLEXECUTEINFO With ShellInfo .cbSize = Len(ShellInfo) .hwnd = GetDesktopWindow .lpVerb = "open" .lpFile = CommandLine .nShow = vbNormalFocus .fMask = 64 End With ShellExecuteEx ShellInfo If ShellInfo.hInstApp <= 32 Then MsgBox "无法打开" & CommandLine & "!", vbOKCancel + vbExclamation, "运行错误" RunProc = False Else Sleep 1000 WaitForSingleObject ShellInfo.hProcess, 99999999 CloseHandle ShellInfo.hProcess RunProc = True End If End Function
下载附件:
图片演示:
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)