[Delphi]如何通过进程句柄判断该进程是否已退出?
2006-04-04 01:11
495 查看
GetExitCodeProcess
看似可以,但是仔细看MSDN,有这么一句话:“Warning If a process happens to return STILL_ACTIVE (259) as an error code, applications that test for this value could end up in an infinite loop.” 很明显,我们不能保证一个进程不会返回一个STILL_ACTIVE (259)做为退出码,也就是说GetExitCodeProcess返回了STILL_ACTIVE 并不代表这个进程还没有结束。此时该进程可能已经结束(并返回259做为退出码)或者没有结束。此路不通。
WaitForSingleObject
这才是正途。进程本质上是一个”内核对象“,可以用Wait系列的API函数来等待其结束。其实我们做多线程同步时也用过WaitFor....只不过那时是wait一个线程句柄。
delphi中实现如下:
unit SysUtils2;
{作者: 袁晓辉 blog.csdn.net/uoyevoli}
interface
uses Windows;
//返回值代表是否成功
//如果返回True,HasExited 代表进程是否已经结束
function ProcessHasExited(ProcessHandle: THandle; out HasExited: Boolean): Boolean;
implementation
function ProcessHasExited(ProcessHandle: THandle; out HasExited: Boolean): Boolean;
var
WaitResult: DWORD;
begin
Result :=False;
WaitResult := WaitForSingleObject(ProcessHandle, 0);
Result := WaitResult <> WAIT_FAILED;
HasExited := WaitResult = WAIT_OBJECT_0;
end;
end.
看似可以,但是仔细看MSDN,有这么一句话:“Warning If a process happens to return STILL_ACTIVE (259) as an error code, applications that test for this value could end up in an infinite loop.” 很明显,我们不能保证一个进程不会返回一个STILL_ACTIVE (259)做为退出码,也就是说GetExitCodeProcess返回了STILL_ACTIVE 并不代表这个进程还没有结束。此时该进程可能已经结束(并返回259做为退出码)或者没有结束。此路不通。
WaitForSingleObject
这才是正途。进程本质上是一个”内核对象“,可以用Wait系列的API函数来等待其结束。其实我们做多线程同步时也用过WaitFor....只不过那时是wait一个线程句柄。
delphi中实现如下:
unit SysUtils2;
{作者: 袁晓辉 blog.csdn.net/uoyevoli}
interface
uses Windows;
//返回值代表是否成功
//如果返回True,HasExited 代表进程是否已经结束
function ProcessHasExited(ProcessHandle: THandle; out HasExited: Boolean): Boolean;
implementation
function ProcessHasExited(ProcessHandle: THandle; out HasExited: Boolean): Boolean;
var
WaitResult: DWORD;
begin
Result :=False;
WaitResult := WaitForSingleObject(ProcessHandle, 0);
Result := WaitResult <> WAIT_FAILED;
HasExited := WaitResult = WAIT_OBJECT_0;
end;
end.
相关文章推荐
- [Delphi]如何通过进程句柄判断该进程是否已退出?
- 怎么知道游戏是否兼容Windows8系统通过卡或报错退出进行判断
- 如何在Shell中通过脚本判断某个服务是否存在的解决方法
- Delphi判断进程是否存在(使用CreateToolhelp32Snapshot)
- 如何判断一个C++对象是否在堆栈上(通过VirtualQuery这个API来获取堆栈的起始地址,然后就可以得到答案了),附许多精彩评论
- 随笔之如何判断Android应用进程是否为单线程及闲扯多核并行编程
- delphi中如何判断打印机是否安装
- [C/C++]_[初级]_[通过映像名称判断进程是否存在]
- 判断进程是否正常退出
- 探究:如何判断Delphi中的对象指针是否可用
- Linux C语言 如何判断该进程是否还存在
- 如何从EPROCESS辨别一个进程是否已退出
- 火狐里如何判断页面是否是通过window.open打开
- Delphi 7 中,如何快速判断SQL是否能连接上??
- Delphi判断某进程是否运行的函数
- SQL存储过程测试(6)——当待测存储过程返回行集的时候 如何判断测试结果是否通过
- SQL存储过程测试(7)——当待测存储过程返回out参数时 如何判断测试结果是否通过
- Android中如何通过文件路径判断是否是同一文件
- 我在delphi中用shellExecute启动了一个程序(ftp);然后想做一个等待,只到ftp进程结束,再继续下面的操作,请问如何监控这个进程是否已结束?
- 判断 & 是否随着用户退出 进程退出