等待一個程序執行完畢
来源:互联网 发布:centos分区方案 编辑:程序博客网 时间:2024/05/30 23:20
function ExecAppWait(AppName, Params: string): Boolean;
var
ShellExInfo: TShellExecuteInfo;
begin
FillChar(ShellExInfo, SizeOf(ShellExInfo), 0);
with ShellExInfo do begin
cbSize := SizeOf(ShellExInfo);
fMask := see_Mask_NoCloseProcess;
Wnd := Application.Handle;
lpFile := PChar(AppName);
lpParameters := PChar(Params);
nShow := sw_ShowNormal;
end;
Result := ShellExecuteEx(@ShellExInfo);
if Result then
while WaitForSingleObject(ShellExInfo.HProcess, 100) = WAIT_TIMEOUT do
begin
Application.ProcessMessages;
if Application.Terminated then Break;
end;
end;
var
ShellExInfo: TShellExecuteInfo;
begin
FillChar(ShellExInfo, SizeOf(ShellExInfo), 0);
with ShellExInfo do begin
cbSize := SizeOf(ShellExInfo);
fMask := see_Mask_NoCloseProcess;
Wnd := Application.Handle;
lpFile := PChar(AppName);
lpParameters := PChar(Params);
nShow := sw_ShowNormal;
end;
Result := ShellExecuteEx(@ShellExInfo);
if Result then
while WaitForSingleObject(ShellExInfo.HProcess, 100) = WAIT_TIMEOUT do
begin
Application.ProcessMessages;
if Application.Terminated then Break;
end;
end;
- 等待一個程序執行完畢
- 等待程序运行结束
- ABAP程序中的等待
- 进程等待&程序替换
- 等待队列一
- 等待队列(一)
- 等待队列(一)
- 等待队列(一)
- 运行程序并等待结束
- java让程序等待一会!
- qt 如何让程序等待
- C# 程序等待延迟执行
- 【Linux】进程等待&程序替换
- 【Linux】进程等待&程序替换
- ORACLE等待事件类型(一)
- PostgreSQL PARSE等待一例
- ORACLE等待事件类型(一)
- Latch和等待(一)
- 好酷哦
- 昨天面试题目回忆
- 3月28日,www.cndigg.com(中国掘客)第一期上线
- VB中删除、替换或者插入内容到文本中某一行
- 启动控制面板大全
- 等待一個程序執行完畢
- 提升進程令牌殺死進程
- VISTA开启半透明效果
- zt ASP学习史上最强的数据分页方法
- windows下配置php+apache+mysql
- Ajax相关资源收集与整理...
- [书摘]Issues about RTTI (Run Time Type Identification)
- [企业管理]国家实验室再遭“人才贫血”困境 [ZT]——青润分析
- 基本控件