|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：胡晓磊 日期：2005-8-4 11:11:52 |
|
|
Windows 3.1允许程序员用GetModuleUsage()函数来测试一个程序或模块是否仍在运行。但在Windows95及Windows NT下，每个程序都独立地运行在单独的环境中，因此就排除了测试过程的状态。
Microsoft 提供了少量的函数，如：WaitForSingleObject和 WaitForMultipleObjects 来完成该功能。尽管如此，这些函数并不是时时都有效。举例来说，如果你调用WaitForSingleObject函数监测Internet Explorer的运行，同时你又选择了“帮助”菜单中的“教程”项，结果将会是系统死锁，你不得不终止WaitForSingleObject函数的运行。造成这种结果的 原因是你点选了“教程”后，会返回给Internet Explorer一个地址，告诉浏览器转到下一个网址。这种情况通常发生在一个程序是由调用它的父程序中的一个过程或对象所启动，反过来却要等待父程序的结束。
本文的目的就是要解决这个问题。
Declare
Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredaccess&, ByVal bInherithandle&, ByVal dwProcessid&) As Long
Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpexitcode As Long) As Long
' Required Constants
Const STILL_ACTIVE = &H103
Const PROCESS_QUERY_INFORMATION = &H400
Code
Sub ShellWait(cCommandLine As String)
Dim hShell As Long
Dim hProc As Long
Dim lExit As Long
hShell = Shell(cCommandLine, vbNormalFocus)
hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell)
Do
GetExitCodeProcess hProc, lExit
DoEvents
Loop While lExit = STILL_ACTIVE
End Sub
调用 ShellWait，控制权将不会交给一个过程，直到调用该过程的程序结束
查看GetExitCodeProcess的用法 |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 胡晓磊 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:11:52 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]