Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› API › 查看内容

怎样等待一个SHELL调用程序执行完再继续

1970-1-1 08:00| 发布者: 黑鹰| 查看: 1785| 评论: 0

Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Const INFINITE = -1&
Private Const SYNCHRONIZE = &H100000

Private Sub Command1_Click()
Dim i As Long
Dim r As Long
Dim p As Long
i = Shell("notepad.exe", vbNormalFocus)
p = OpenProcess(SYNCHRONIZE, False, i)
r = WaitForSingleObject(p, INFINITE)
r = CloseHandle(p)
MsgBox "记事本已经关闭"
End Sub

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

怎样等待一个SHELL调用程序执行完再继续

最新评论

相关分类