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

VB判断一个程序启动完成(不是结束)

HTML文档下载 WORD文档下载 PDF文档下载
VB判断一个程序启动完成(不是结束)

'将以下代码加入标准模块
Option Explicit
public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long,
ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
public Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long,
lpExitCode As Long) As Long
public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

public Const PROCESS_QUERY_INFORMATION = &H400
public Const STATUS_PENDING = &H103&

'在需要的地方调用RunShell过程,如:res=RunShell("c:\windows\notepad.exe")
'返回值为真则程序结束
Public Function RunShell(cmdline As String) As Boolean
Dim hProcess As Long
Dim ProcessId As Long
Dim exitCode As Long
ProcessId = Shell(cmdline, 1)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessId)
Do
Call GetExitCodeProcess(hProcess, exitCode)
DoEvents
Loop While exitCode = STATUS_PENDING
Call CloseHandle(hProcess)
RunShell = True
End Function
让程序启动快一点 -VB资料 VB如何调用系統的【查找】、【替换】的对话框? VB如何动态新增、移除 ODBC DSN? VB如何读取 Picture 内任何一点的颜色值? VB如何获取硬盘卷标、序列号和文件系统类型? VB如何判别程序是在Win95或NT下执行? VB如何启动控制面板? VB如何取得磁盘序列号? VB如何让Window不接受键盘输入及Mouse Click VB如何让程序拥有多个热键? VB如何让用户自行输入方程式,并计算其结果? VB如何使程序不在Ctrl+Alt+Del弹出的对话框内? VB如何使用 VB 编写自动反安装的程序? VB如何用VB建立快捷方式 VB如何用VB在桌面建立快捷方式 VB如何在 VB 中控制 Modem 行为? VB如何在VB中判断Windows9x的运行模式 VB如何在Visual Basic中实现异步执行程序 VB如何在开机时自动更换墙纸? 使回车具有 Tab 的功能-VB资料 输入时,自动转换成小写? -VB资料 显示多媒体信息 -VB资料 也谈Windows 下的自动存盘 -VB资料 一个小巧精致的CPU监视器 -VB资料 应用VB4.0实现工业控制的实时曲线和历史曲线 应用程序中实现关机功能-VB资料 萤幕抓取与萤幕保护程式 -VB资料 用VB5.0创建Windows快捷方式 用VB5.0收集键盘和鼠标信息 用VBA限制非注册软件使用时间 用VB编程检测当前电池使用情况 各位老大请进. 超级菜鸟 datagrid的触发事件问题 为什么选择服务器游标后,datagrid 不能用了? 数据库oracle9.2,用oledb连接数据库时出现“未在本地计算机上注册“OraOLEDB.Oracle.1”提供程序。”怎样解决? 直接通过ADO如何远程访问计算机上的SQL Server数据库 如何升级jbuilder7的jdk? 发布基于TXMLDocument的程序需要打包哪些文件? 小白鲨只是提议版主不要随意性执法 彩色图像的亮度和对比度? HTML Help Workshop 话中国电影的英文译名(英语爱好者请进,更新中) 小弟做的第一个网页,知道来这个论坛的都是高手,请大家多批评! 如何从CObject中派生一个类? 初学请求大家帮助希望早结贴早睡觉(两贴共120分)。 菜鸟问题:应该先学开发平台还是先学开发语言? service是否也有消息队列? 不知道这样的情况,SQL语句该如何写!谢谢了! HTML Help Workshop 安装什么样的版本? iis无缘无故死掉??? c#.net ! Delphi程序员现在的工资怎么样啊? 如何取得Button的Text属性值? 歪脚鸭病了 一个想了很久的问题,C/C++为什么把声明与实现放在不同的文件里(*.h,*.cpp),感觉没有一点好处。 郁闷,散分! 关于scjp的一个很菜的问题 请问为什么我的两千上网后不能关机? 哈!又升级了!(版主要手下留情,我是真心感谢大家) 现在再看《人月神话》有价值吗? 有关生成可执行文件的问题 水源里的兄弟们进来说说,到底怎样才能渡自己早日成星呀? 请教:怎样在一个应用程序中提取经运算的 多行文本行 有关new操作的问题 我要学c#.net,该从那开始??难吗??谢谢指教啊~~~~~ 两个小问题 请教:怎样在一个应用程序中提取经运算的 多行文本行 如何读取一个目录下所有目录? 如何测出电话不通时返回得声音(占线声),它的具体代码?我要做一个占线自动重拨的程序! 我的插入代码为什么不能执行!? 声卡资源的分配??帮帮我!!! 怪事多多!IE窗口无法“还原” 我的代码怎么发不上去? msdn不知为什么运行不好了,要运行两次才行,速度很慢! 一个播放器,如何判断它要播放的是视频文件还是音频文件? 我在银行工作,请推荐一些关于UNIX和informix online的好书,如何学习? 为什么我的ftp别人不能上? 有下载版的精华贴子吗? 大家帮忙啊。 2002总结 索马里妇女重获驾驶权菲律宾经济二季度增长7.5%平衡“有形”与“无形”之手——海外专法国各政党对是否对叙军事干预分歧大叙利亚局势动荡 周边多国相继提高军事西欧多国对移民亮\"黄色警报\" 部西班牙举办“西红柿节”统计局局长:中国经济“升级版”正在提统计局:第三次经济普查数据发布时间将张高丽:经济普查数据不能带水分 更不温州水泥路被烤爆炸 兰溪一名工人中暑宁波东站增开午间售票口 候车棚将装排宁波征兵工作已启动 多项政策鼓励大学埃及军方罢免总统 穆尔西被软禁台州正式迈进高铁时代 1至2小时可抵浙江为高校毕业生发放求职补贴 直接打温州部分职位工资指导价出炉 企业经理浙江电网一天用电量相当于两个半三峡 杭州市记协产生新一届理事会萧山机场昨天8成以上航班延误 大量旅浙江降低成品油价格 93号汽油为每升沈阳警方查扣黑车4288台不能再让“舌尖上的罂粟壳”成为餐饮业国家网信办副主任徐麟会见Facebo《太子妃》到底是魔性污剧还是有毒“安深圳市黄梅商会新春联谊会在福田区市民又是一个无量的无力反弹——大盘底到底全网首发:朋友圈最有阅读价值的经典读紧急!这10条全是诈骗信息,千万别信为什么越是有钱人越要办信用卡?冬天,我要和你分手内蒙古油田工人零下34度坚守岗位郑州高中生设计校服 盘扣立领彰显中国国际低油价 中国人该抓住机遇做点什么吃糖过多易致7种病 当心隐形糖据说这些地名连老北京都不一定读对这样做,会让年轻20岁!利比亚风云莫测,国际原油超跌反弹愈4被时间打败的故乡,很惨!家长孩子都爱去 卡奇乐儿童乐园寒冬人RAZER利维坦巨兽迷你蓝牙音箱巴基斯坦参赞泽米尔·阿万参访黑钻石传
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘