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编写涂鸦桌面的小程序

Delphi获取exe文件版本信息的函数

Delphi加载图像存储到数据库中

Delphi 的运算符列表

Delphi 简单得多线程应用

Delphi 把字符串复制到剪贴板

Delphi文件操作所涉及的一些函数

Delphi禁止用鼠标拖动窗口的大小

Delphi xe [dcc32 fatal error] f2039 could not create output file 问题的解决

Delphi checklistbox用法

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

转载请注明出处：木庄网络博客 » delphi判断线程是否释放