怎样等待一个SHELL调用程序执行完再继续_access api-access vb api-access系统调用

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

时间：2003-12-20 22:26 来源：黑鹰作者：黑鹰阅读：次

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

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：如何启动其他程序或开启各类文件？
下一篇：如何隐藏及再显示鼠标