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

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
从菜鸟到专家的五步编程语言学习法 亚马逊企业文化:从书贩到云服务巨头的催化剂 明年Google I/O大会日程敲定 或发Android“酸橙派”? 绝境求生,WebOS寄望Android Facebook在移动路上走过的那些弯路 请问<%与<%!有没有区别?? 在mapinfo中计算最佳路径 哪里有vss下载?? 哪有邮件接收的前端系统程序 关于文件读写问题--频繁的!!!100分! 急!急!如何判断在客户端有安装所需控件,在线等待 请问一下谁有具体的RTF的文件格式啊????我想做个和MSN一样的对话框,有什么思路,请大家发表看法,来者有分 方法 Delphi7中的TActionToolBar的图片显示的问题 中国古代历史上三大里程碑是什么 一叶障目,不见泰山,表现了物理中光的什么现象,急用 电焊气是什么 井底之蛙说明光有什么特点. 1.如图15-40所示,L是一个薄透镜,O是光心. 井底之蛙这则寓言说明了什么道理? 中国古代主要三种木架构形式全部出现在哪个历史时期? 现在的世界格局与中国历史上哪个朝代相似?同上 在物理中“一叶障目不见泰山”可以用什么来解释 男子吃药后感觉自己不男不女 见情侣亲女子相亲时是弟弟洞房成哥哥 5年后提河北自锯病腿患者昨日在医院手术 约十杭州地铁3号线 为啥短了十公里(图)杭州发现外来有害生物福寿螺 对生态环香港最大劳工团体希望如期落实2017中国农产品出口高调在日亮“人品”少数民族代表谈“双语”学习:狭隘民族中央司改办就涉案财物处置工作意见答记来一场想走就走的旅行本月底成都直航日古灵神豪门崛起魔尊大陆太极老翁凌云蔽天锦里沟旅游靖江王城旅游尼泊尔旅游马降龙碉楼群旅游赤坎影视城旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘