delphi判断线程是否释放


本文整理自网络,侵删。

 delphi判断线程是否释放
function CheckThreadFreed(aThread: TThread): Byte;
var
i: DWord;
IsQuit: Boolean;
begin
if Assigned(aThread) then
begin
IsQuit := GetExitCodeThread(aThread.Handle, i);
if IsQuit then // If the function succeeds, the return value is nonzero.
begin
if i = STILL_ACTIVE then // If the specified thread has not terminated,
Result := 1
else
Result := 2; //aThread未Free,因为Tthread.Destroy中有执行语句
end else
Result := 0; //可以用GetLastError取得错误代码
end else
Result := 3;
end;

相关阅读 >>

Delphi 直接将html字符串读入webbrowser中

Delphi 图像操作

Delphi获取pid的父进程文件名

Delphi fmx关闭安卓程序

Delphi流类 遍历读取流中的所有数据

屏幕抓取Delphi

Delphi winapi: settimer、killtimer - 创建与移除高性能定时器

Delphi 根据开始和结束符取得中间字符串

Delphi webbrowser1 保存文档为 .mht

Delphi firedac 下的 sqlite [6] - 加密

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...