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

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的用法
随意控制DBGrid每一行的颜色-Delphi资料 通过DELPHI实现JAVA调用ORACLE数据库数据 通过编写代码来设置数据库的别名-Delphi资料 为Delphi数据表格增加彩色 为Delphi提供Pack和Undelete功能 为Delphi中数据库报表加网格 为数据库报表加网格-Delphi资料 为数据库建立索引-Delphi资料 掀开SQL Server 7.0的面纱-Delphi资料 限制数据库记录数-Delphi资料 向数据库发送密码-Delphi资料 一个关于字符串的小问题-Delphi资料 用 QuickReport for Delphi 制作报表 用Delphi 开发数据库程序经验三则 用Delphi 实 现 不 同 数 据 库 系 统 之 间 的 数 据 转 移 用DELPHI本身的控件输出TABLE表数据 用Delphi编程访问SQLServer数据库 用delphi编写医院的复杂报表 用Delphi程序维护Paradox 数据表的索引 用Delphi的InterBase数据库开发C&amp;S应用程序 用Delphi进行数据库之间转换 用Delphi开发“瘦”单机数据库应用系统 用Delphi如何实现VFP中的Cache特性 用Delphi设计数据库应用的几点体会 在我们日常工作中,常会碰到这样一个难题:一大堆-Delphi资料 用DELPHI制作应用软件 用Dephi 程 序 维 护Paradox 数 据 表 的 索 引-Delphi资料 用Dephi程序维护Paradox数据表的索引-Delphi资料 用InstallShield制作数据库应用系统的安装程序-Delphi资料 在BDE中使用ASCII-Delphi资料 在DBMemo中查找文字-Delphi资料 如何在英文字符集的客户端访问服务器为中文的数据库? 那4M是不是让诺基亚给偷了?! 如何调用ResetPrinter函数设置默认打印机 listview使用的问题 delphi的打包问题 请大家推荐一个短信网关 调查:当你身边响起神圣的国歌时,你会不会不由自主站起来,手放到胸前,跟着节奏一起唱起来?(有感而发) 请问如何调用.chm的帮助文件? 如何调用系统默认打印机的属性! 请教新手问题~~~麻烦哪为大侠给解释解释~谢~ 如何用struts实现阴阳色列表? 怎么用vb建立一个数据库呀?注意,不是一个表,是一个数据库! 如何调用系统默认打印机的属性! 一个很老很过时的数码相机。 郁闷,超级简单题目 初学ASP,请教学习心得 我的机器怎么老死机?? 两级表单动态联接?急,急,急!!!!!????? ---见了鬼了,Jre不好用!!!--- 寻求把中文字符串转换为十六进制的串的ORACLE函数? 电力学院惊魂 一條語句 數據庫日誌就寫滿了 怎样获得系统的字体!急!谢谢了! 谁有用java做的聊天系统程序(当作业)分不够可再给 在CB中如何动态的管理窗体 如何调用系统默认打印机的属性! API动态调用问题(很奇观) 好久没有发帖子了,现在心情奇好,兄弟们来接分! 在CB中如何动态的管理窗体 求C#网络编程书籍下载~ 简单问题,在线等待。可以在加分。 请教一题目! thanks sdany java 中能不能实现一个数字键盘 关于重定位 菜菜问题:让VB画出sin(x)和log(x)的函数图象怎么做?刚学VB的,x可以取任意的值! thanks sdy 模拟鼠标键???? 弱智问题,请原谅 我需要帮助~~~~!!!!! 请教:用LoadImage()载入的光标资源,当光标尺寸大于32*32时,显示不正常? cls 怎么用??? 请问<%=type2(RS("qi_type2"))%> 是什么意思? 招ASP程序员,工作地点杭州. ORACLE9i中的storage怎么不起作用了? 评评<<离散数学及其应用>>.我有些题目不会做呀.比如和费马小定理有关的.呵呵 谁能告诉我程序员考试是每年的什么时候啊?? 声音设备问题? 关于字符串输出 利用VB写SQL语句的问题(实现删除功能) 太岁灭城 晋中鬼事之二 (书雅) 三国时期的赵子龙是怎样死的?原因是什么? Garlic 大蒜有复数吗 第四题,按有效数字运算! 一张长方形纸,宽是16厘米,长是宽的4倍,这个长方形的周长是多少厘米? garlic是什么意思 给假字换个偏旁,组成另外的字填在括号里.天空中那美丽的( )常常引得我驻足观赏 什么叫波纹玻璃 失乐园,英语怎么写 在一次“模拟微重力环境”的实验中,实验人员乘座实验飞艇到达6000m的高空,然后让其由静止下落,下落过程中飞艇所受空气阻力为其重力的0.04倍,实验人员可以在飞艇内进行微重力影响的实验 波纹可以说成是怎么样的 请问“失乐园”的英文是什么? 为了观赏美丽的苍穹,每一个人都应当选择降生 这句话怎么理解有人曾问古希腊思想家阿那克萨哥拉,一个人是否应该来到这个世界.阿那克萨哥拉抬头仰望着夜空,笑着说:“为了观赏美丽的 论证 不想当元帅的士兵不是好士兵 唐伯虎的《桃花庵歌》的全译是什么? 一倾角为30度的斜面放置在粗糙的水平面上,质量m=4kg的物体以a=3m/s^2的加速度沿斜面下滑,而斜面体M保持相对静止,求M于地面的摩擦力大小答案是6倍的根号3额! 如何理解拿破仑的不想当元帅的士兵不是好士兵? 唐寅的桃花庵歌赏析正常赏析+除了表现他超脱避世的方面,还能不能表现出他还是无法摆脱仕途的幻想之类的呢?他人笑我太疯癫,我笑他人看不穿真的是他看透了一切吗?还是他也看不穿呐?请 为什么汽车定位比手机定位快 日环食太阳在哪边 新三国典韦哪集死的 日全食旁边光环叫什么 日环食时可以观察到得太阳大气层的太阳活动是什么日环食时明亮的部分太阳大气层的太阳活动是什么?日珥,耀斑,黑子还是太阳风暴?请说明理由,我估计搞清楚这个问题得先知道日环食时看 三国典韦怎么死的 日全食时为什么会有光环套住.就是圆的周围为什么会有亮光.圆环套住.按理说 是整个太阳被月亮遮住 应该 都没光的 怎么还有个圆环.就是被遮住的地区都没光的啊.还有太阳被遮住应该会挺 六年级上册英语书65页 let's check 在三国演义里,典韦是第几回死的? 水处理中树脂主要去除什么东西 上课都听得懂 这是为什么 三国演义中典韦在第几回死的?那回叫什么? 数学的本质是什么 辩论:不想当元帅的士兵不是好士兵正方:支持这个观点.反方:不支持这个观点正方反方的观点我都要,并说说两方所存在的弱点和较好辩论的地方.越多越好,讲好的有加分. 三国里典韦怎么死的 什么是数学本质 对不想当元帅的士兵不是好士兵的看法 求2010年世界杯主题曲《飘扬的旗帜(Wavin’Flag)》歌词及翻译?1楼,应该不是这个吧,听着不像 数学的本质是自由如何理解? It is clear that hamburgers are the most popular fast food with the high and average income groups之类with 可以用among 代替吗,有什么区别 英语翻译(All)]We patiently waitFor some other day(Fefe Dobson and Esthero)Thats too far away so right now we say[01:53.28](All)When I get olderI will be stronger]They'll call me freedomJust like a wavin flag(And then it goes back x3)Ahhho ahhho a 数学的规律是什么?数学的本质是什么? GROUPS怎么样 求英语达人翻译K'naand的 数学本质数学的本质? 身强力壮怎么造句 wavin flag中文是什么意思 I left school early yesterday ____ the weather got worse in the afternoon【填介词、副词或连词】 与“不想当元帅的士兵不是好士兵”相似的名言 室内设计上 九厘板外凸15mm是什么意思 easier said than done中的said和done为什么要用过去分词 有关 不想当元帅的士兵不是好士兵 的名言警句 简析《西风颂》 我想要一滴水,没想到您给我整个海洋;我想要一片云,没想到您给我整个蓝天;是哪首歌的词? 700字作文从 不想当元帅的士兵不是好士兵 说起 麻烦哪位帮我分析下西风颂第一段的修辞手法呢?. 滋润脊髓神经的液体叫什么? 三国演义赵云是怎么死的? garlic(大蒜)是可数名词还是不可数名词? afternoon是什么意思 三国中赵云是怎么死的?看了“见龙卸甲”发现子龙是战死的,但和书中写的不一样.哪个才对? garlic clove是什么? 天空中那美丽的(),常常引得我驻足观赏给“假”字换个偏旁,组成另外个字····谢谢 澳百余家网站因“窃听”遭“黑”白宫、两院拒赦斯诺登纽约股市4日波动后小幅上涨部分高校将学位证挂钩英语四级 教育部中印时隔5年再次联合军演 更多表达政丘吉尔曾担心法国对英宣战印度远征火星纽约金价4日小幅反弹北约秘书长否认东欧军演针对俄罗斯大学教会你什么?两大美制军机入驻台湾 下一步军购欲争多伦多市长福特最近麻烦不断芬兰外交部长期遭入侵 媒体乱猜中俄黑苏格兰部长为中国教师要签证 英称将严美媒称“画狗大师”小布什要给政坛老友多伦多市长福特最近麻烦不断美国国务院称在钓鱼岛问题上立场未变外交部:美国不是钓鱼岛争议当事方 应“不稳定之弧”挑战全球反恐 跨界军事博尔特自爆在北京拒吃中餐 吃了100小泉之子等日高官“不动产和储蓄”为零中纪委要求各地摸底自查培训中心 杭州杭州湾跨海大桥每天9000多辆超载超广西“考霸”10次高考屡中名校屡次弃人民陪审员宗庆后出庭“审案” 与法官杭州机场航班延误情况好转计成完赛后安慰妻子 称这是最不可思议广州军区458医院与陆航部队建立联演信托业“量体裁衣”服务实体经济平庄能源高价购矿疑云:市场煤价仅为评看电影获赠酸奶 喝完呕吐才知已过期铁塔公司混合所有制存无奈 民资引入或中国社科院:房价将进入调整期29日人民币汇率中间价:1美元对人民孙河两宗住宅地块流拍和平不是想当然的“考古神童”与“伤仲永”的宿命7531套公租房明日大摇号贵族培训消费的是皮毛让“老赖”在社会上寸步难行瑞安公司去年巨亏上亿 平庄能源曾溢价河南遭遇63年来最严重“夏旱” 平顶
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘