精华区文章阅读

发信人: windoe (为中国电信做贡献), 信区: program
标  题: VB:当用Shell运行别的软件时候，我想等该程序结束再�
发信站: 听涛站 (Fri Mar 10 19:09:13 2000), 转信

当用Shell函数调用外部软件时，VB总会在Shell执行后，继续执行下面的程序代码，而
而我们无法确定外部软件什么时候调用结束。我们可以通过Windows API的OpenProcess
和CloseHandle函数来实现对被调用软件的检测：
1) 在VB中新建一个标准EXE工程；
2) 在Form1中声明OpenProcess和 CloseHandle 这两个Windows API 函数；
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccesss
As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Lonng)
As Long
3) 然后编写下面的函数:
Function IsRunning(ByVal ProgramID) As Boolean ' 传入进程标识ID
Dim hProgram As Long '被检测的程序进程句柄
hProgram = OpenProcess(0, False, ProgramID)
If Not hProgram = 0 Then
IsRunning = True
Else
IsRunning = False
End If
CloseHandle hProgram
End Function
4) 在Form_Click()中加入代码：
Sub Form_Click()
Dim X
Me.Caption = "开始运行"
X = Shell("NotePad.EXE", 1)
While IsRunning(X)
DoEvents
Wend
Me.Caption = "结束运行"
End Sub

--By Kammi's SuperPost General Version
--

夜中不能寐，起坐弹鸣琴。
    薄帷鉴明月，清风吹我襟。
孤鸿号外野，翔鸟鸣北林。
    徘徊将何见，忧思独伤心。

computer 版 (精华区)