说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB判断一个32位程序是否结束

HTML文档下载 WORD文档下载 PDF文档下载
VB判断一个32位程序是否结束
作者:胡晓磊
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的用法
DELPHI 中 自 适 应表 单 的 实 现 Delphi3数据库编程中的查找字段 Delphi3中 连 接 数 据 库 的 三 种 方 法 Delphi编程实现3DS动画的播放 Delphi访问ODBC数据库 Delphi如何实现在一个Dbgrid中显示多数据库 Delphi筛选数据 Delphi数据集过滤技巧 Delphi数据库应用程序开发中图像数据 Delphi下的ADO Delphi在网络数据库中的应用 Delphi中多库关联查询 Delphi中建表 Delphi中数据文件路径的管理 ODBC中的同步与异步执行模式-Delphi资料 SQL编程常见问题-Delphi资料 第11章 中级SQL-Delphi资料 第10章 SQL基础-Delphi资料 SQL语句中的删除和改变-Delphi资料 TDataLink类别的说明-Delphi资料 TDBGrid控件中对多个记录的处理-Delphi资料 安装BDE需要的东东-Delphi资料 保存DBGrid中栏的字段名及尺寸-Delphi资料 动态生成定义数据库-Delphi资料 动态组成SQL速句-Delphi资料 多层C/S的客户端调用服务器端的方法-Delphi资料 关于dephi数据库的动态建立-Delphi资料 基 于WEB 的 数 据 库 查 询-Delphi资料 计算数据库某字段的值-Delphi资料 计算字段值-Delphi资料 建立应用软件注册安全机制-Delphi资料 二级联动菜单怎么搞啊??各位大虾救急啊!!! 请赐教 如何建立mts與com,dcom,com+通信,其中每種方式有何不同之處? 有个有关j2ee应用服务器的问题,很困惑!(急,一定给分!) 学习c和c++学要学习汇编吗????? 我先试一 下 关于得到文件的名字? 用5行代码就让系统重起的帖子怎么找不着了?谁告诉我?加分了!! 素女经 如何修改SQL数据库表中的数据 在对话框里输出文字?不要控件!!不要static 控件 一个关于打印的怪问题! 如何将数据库通过JDBC接收并将字段关键字连成一棵树(每一分支最多64节点) 救急!!!!!!!小妹我遇到一点问题! 今年就业形势“大好”! ******* 马上就给分,所以给的少了点,大家别介意 ******** 大家给点意见 请关注一个初学者的问题?我学sql但是不知未来的发展趋势!? 图形数据窗口(line 星)点太大,如何缩小 救急!!!!小妹我遇到一点问题! 用bcb制作动态网页 数据窗口 Graph 类型 line 样式 如何学c语言? Delphi中如何获的其它应用程序中的内容? 显示颜色变成只有16色和2色? DWORD 参数传递的问题。 那里有播放AVI文件的程序?谢谢! 参数传递问题!!大侠帮帮我 请帮我修改一下源代码(delphi)请帮忙改一下,让它打印了不往里(数据库)存。 BIOS设置,用电脑是不是可以当闹钟呢? 五笔输入法忽然不能用了 救就我,为什么Frame的客户区变小了?关于切分窗口 怎样查找某一个目录下一个表是否存在? 请问有用过李阳疯狂英语的朋友吗?请说说到底怎么样? 我想向各位大侠请教一个问题? 如何屏蔽TEXTBOX的回车响应? 关于《各位学习编程的目的是什么》的总结 m_pusrrcdset->m_pDatabase->ExecuteSQL("")为什么不行?老是ASSERT错误 请问我刚入bcb的大门,有什么好的参考书可以看看吗? 有没有人知道计算机等级考试四级怎么查分啊? 如何将几个数组的信息写成一个.txt文本文件 笔试题请教? 请教一个小问题! 好难呀好难呀!!!!! 今天狠了狠心买了一本<>,花了我十分之一的工资!心疼啊!散点分! 请问有谁知道如何在C#中使用DirectX? 我在Picturebox中用Picture1.print打了200行数据,可我只能看到前20行 pb数据窗口中的列名在win2000 server里为什么显示不了中文? God save me,help...... tcl手机所使用的是那种操作系统,能否告知小弟,重分相谢! 根据字义组词全( ) 向远处看( )举:向上托( ) 望:意料( )推选( ) 探看( )看( ) 好办( )见:看法( ) 易:交换( )会面( ) 和气( ) 仓库运来一批粮食.其中小麦35吨,稻谷比小麦和黄豆的总数还多12吨.问:运来的黄豆比的稻谷少多少吨 在平面直角坐标系xOy中,反比例函数y=k/x的图像与y=3/x的图像关于x轴对称,又与直线y=ax=2交于点A(M,3)试确定a的值 根据字义组词语陷:1、掉进(),2、凹进(),3、陷害() 仓库运来一批粮食.其中小麦35吨,稻谷比小麦和黄豆的总数还多12吨.问:运来的黄豆比稻谷少多少吨 在平面直角坐标系xoy中,反比例函数Y=K/X的图象与Y=3/X的图象关于X轴对称,又与直线Y=AX+2交于点A(M,3)A值 显露:( )(根据字义组词)根据字义组词,并用透组词, 周口哪有收购粮食的?例如小麦、大豆、玉米之类?除了粮食仓库之外能不能提供联系方式啊? 已知直线y=(1-3k)x+2k-1.(1)k为何值时,直线在y轴上的截距为-2? 根据字义组词:算算:弄清是非算:计划,筹划.要明确一点!用算组词! 在平面直角坐标系中,已知点(1-2a,a-2)在第三象限,且a为整数,求a的值.请写出具体过程, 已知直线y=(1-3k)x+2k-1.(1)k为何值时,直线在y轴上的截距为2?(2)k为何值时,直线与x轴交于(¾,0)(3)k为何值时,y随x的增大而增大 根据字义组词.稍稍喘息( )透穿过,通过( )到处都是( )漫随随便便( )断( )绝独一无二,没有可比的( ) 在平面直角坐标系中,点E(3k-9,1-k)在第三象限内,且点的坐标都为整数,求E点的坐标 已知直线y=(1-3k)x+2k-1 (1) k为何值时y是一条与x轴平行的直线 雏菊什么篱笆 已知点A(m,n),在平面直角坐标系中的第三象限,其坐标m,n满足3m+2n=k-9,2m+n=k-7.(1)、求整数K的值;(2)、当K为整数时,分解因式(a+b)³-k(a+b)=? 已知a^x=1/2,b^k=-1/3,求a^2k-3k的值 雏菊 篱笆.黄昏雏菊 篱笆.黄昏 村庄.阳光 大海.把下面句子填写完整使他们读起来充满诗情画意. 海洋对地球的天气有什么作用 大气对地球有哪些重要作用 求带“叶”字的诗句和写叶子的诗句有急用,今天必须回答上! (拟人句)雏菊____________________篱笆.黄昏( )村庄 海洋对环境的作用 在括号里填上合适的词语 ()的树叶风格 雏菊紧靠篱笆生长.(改写拟人句) 海洋在调节全球气候的作用,谈谈目前的研究概况 实际应用的可能性等等 以知集合A={α|2kπ 雏菊.篱笆 黄昏.村庄 阳光.大海填写完整 海洋如何调节全球气候越快越好 如何准确辨别雏菊、矢车菊和大波斯菊?各自的花语又是什么? 按字义组词张:1、铺排、陈列(组褒义词成语) 2、看望好:1、喜欢(组褒义词成语) 2、友爱各:1、逐个(组褒义词成语) 2、各个不同熟:1、成熟 2、习惯、常见、清楚要快,又快又好 在平面直角坐标系中,已知点p(1-3m,m-4)在第三象限,且m为整数,求m的值. 第九题,为什么当A等于空集时,k+1大于2k? 我会根据字义组词章:歌曲诗文的段落() 条理() 章程()挽:拉() 哀悼死者()会几个,填几个 已知m,n为整数,且满足2m^2+n^2+3m+n-1=0,求m,n的值 一.在下面的空白处填上适当的词语,使句子变成拟人句.1猫要是 ,能比谁都 .2秋天到了,高 空气对环境有什么作用 已知点P(2M-1,-3M-1)在第三象限内,若M为整数,求点P的坐标 雏菊的英文咋写 裸子植物是我国各地城镇常见的树种,对于___环境,___空气和减轻___污染等具有重要作用快 已知点【2M-13,16 -3M】在第三象限,整数M的值是? “稻谷成熟了”拟人句怎么写? 化学在未来的生活中会起到什么作用?比如在空气环境方面?食物方面? 微生物对环境的正面影响和负面影响 雏菊的英文名称 根据字义组词:冷1,温度低()2,寂静,不热闹()3,暗中的,突然的() 人类对环境造成的正和负面影响? 韩国电影的英文介绍我们上课要用,越详细越好.(不仅仅是剧情)最好是有中文对照的, 在平面直角坐标系内,已知点(1-2a,a-2)在第三象限,且a为整数,求a的值. 生物都生活在有空气的环境中.这句话对吗? 雏菊的英语怎么拼? 净化环境和调节空气一样吗 在平面直角坐标系中,已知点A(-3,N)和点B(1-M,M-3),若点A与点B关于Y轴对称,则M= N= 雏菊英语怎么说 森林能净化空气,调节气候的现象是不是主要说明了环境对植物的影响/ 影响生物生活的环境因素分为两大类:一类是〔 〕,如阳光、空气等;另一类是〔 〕,是指影响生物生存的其他 已知集合A={a|2kπ 封闭环境的操作空间,空气有哪些有害物质? 在平面直角坐标系中,点A(-3,m)与点B(n,1)关于x轴对称,则m+n=
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn