delphi判断线程是否正在运行


本文整理自网络,侵删。

 //以下资料来自大富翁论坛。
/判断线程是否释放
//返回值:0-已释放;1-正在运行;2-已终止但未释放;
//3-未建立或不存在
function TFrmMain.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.
//If the function fails, the return value is zero.
begin
if i = STILL_ACTIVE then //If the specified thread has not terminated,
//the termination status returned is STILL_ACTIVE.
Result := 1
else
Result := 2; //aThread未Free,因为Tthread.Destroy中有执行语句
end
else
Result := 0; //可以用GetLastError取得错误代码
end
else
Result := 3;
end;

相关阅读 >>

Delphi webbrowser添加到收藏夹

Delphi 弹窗显示sql字符串

Delphi http远程屏幕源码

Delphi 网上获取北京时间取字符串与字符串中间的字符

Delphi idhttp中get 图像链接通过memorystream加载 image控件显示

postmessage和sendmessage的区别

Delphi 两字符串之间添加分隔符

如何将string变量赋值给pchar变量

Delphi image 等比例缩小

Delphi中启用禁止cd驱动器自动运行播放

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



打赏

取消

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

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

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

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

评论

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