在使用shell后,如何等待此程序完成后,程序才继续执行.

Roadbeg

我们使用 shell 调用一个外部程序的时候,通常 vb(a) 会在调用之后继续下面的语句,而不管此 shell 程序执行完成没有.有时我们需要在此 shell 执行完成之后才继续,又当如何呢?

请看源程:
Public Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function WaitForSingleObject Lib "kernel32" Alias "WaitForSingleObject" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long

Dim lngPId As Long
Dim lngPHandle As Long
lngPId = Shell("Notepad", vbNormalFocus)
lngPHandle = OpenProcess(SYNCHRONIZE, 0, lngpId)
If lngPHandle <> 0 Then
    Call WaitForSingleObject(lngPHandle, INFINITE) ' 无限等待， 直到程式结束
    Call CloseHandle(lngPHandle)
End If

需要注意的是,在 shell 程序未完成前,你的程序不能做任何事,请小心为之.

xxzxsjp

没有作用，程序照样可以运行其它模块？请想一个万全方法，谢谢了！一路乞到漫天网天下奇观独立行

Roadbeg

? 我测试通过

kxyzjm

k

xxzxsjp

我用您的程序Shell“计算器”“记事本”“画图”，在WinXP+Office2000中，它们都缩到屏幕的系统状态栏中，需点一下才出来。而在Windows98.Win2000中都很好，奇怪？

zhengjialon

xxzxsjp：可能是在XP系统里的焦点不一样。

djd

我也是.请指点

gdb_wlp

有待测试!