运行程序并等待结束

本文提供了一个使用Delphi创建并等待子进程结束的示例代码。通过该代码,可以了解如何利用CreateProcess函数启动外部程序,并通过WaitForSingleObject等待其完成。此示例适用于Delphi开发者学习进程间交互。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

function ExecAndWait(aFilename: string; aParamStr: string = ''; aWait: boolean = True): boolean; var si: TStartupInfo; pi: TProcessInformation; begin if not FileExists(aFilename) then Result := False else begin FillChar(pi, SizeOf(TProcessInformation), #0); FillChar(si, SizeOf(TStartupInfo), #0); with si do begin cb := SizeOf(TStartupInfo); dwFlags := STARTF_USESHOWWINDOW; wShowWindow := SW_SHOW; end; Result := CreateProcess(PChar(aFilename), PChar(aParamStr), nil, nil, False, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, PChar(ExtractFilePath(aFilename)), si, pi); if Result and aWait then WaitForSingleObject(pi.hProcess, INFINITE); CloseHandle(pi.hProcess); CloseHandle(pi.hThread); end; end;
1.4*ColEditor增加了对GRIDEH是否可以排序进行控制,但前题是单元要引用EhLibAdO*增加WaitForm,在费时的操作过程中使用,效果不错!*增加最优化网格宽度功能,让网格栏位的宽度根据其自身的数据最优化智能筛选BUG*待选字段值为空时,会重复增加进去*浮点型字段值比较有问题*Boolean字段型比较有问题,只认是与否1.3加入万能查询,以前是从胜天进销存中提取出来的,但我的速度快很多倍,因为我用了DisableControls,嘿嘿!*后来发现,智能过滤应该是对任何数据库都同样功能强大,因为它不是用FILTER属性,而是用ONFILTERRECODE事件来进行过滤的*对智通过滤做了一些改进,改掉一些BUG1.2增加了智能过滤功能,对任意一DATASET都可以!此功能参考QLFilter,在此表示感谢!以后会陆续增加一些MIS开发的常用功能组件或函数,请大家多多关注对了,几个按钮的ICON我暂时没有,没放上去丑了点,请大家自已加上去了!1.1ColEditor 更易于使用了,BUG基本排除!1.0本程序演示了如何使用编辑器在运行期设置表格的一些常用参数需要使用到Ehlib控件,最好使用3.6版本,旧版本也适用!使用前请双击本目录下的DB.UDL连接数据库,连接完成后即可选择数据表进行演示!在表格上按右键,即可出现功能菜单,点击进入!程序应该适用于各版本的DELPHI,但由于条件有限未做测试!希望大家多多交流,能得到大家的各种有用的源代码!本程序的全部代码您都可以任意使用,但源代码的最前面几行的注释不可以改变,否则您将无权使用!如有修改成更好用的版本,烦请给我一份,以便学习提高!jacky xuQQ:112876992Email:kingjit@163.comMSN:kingjit@163.comskype:kingjit@163.comhttp: www.kingjit.com======================您的回复就是我的动力,再没有人回复,就拉倒吧======================
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值