主线程等待一个 无阻塞函数 死循环子线程的安全退出

子线程:

procedure TreadThread.Execute;
begin
   inherited;
   FreeOnTerminate := True;
   while not Terminated do begin
        dosomething;
      end;
      Sleep(100);
   end;
end;

 

主线程:

var
   H: array[0..0] of Thandle;
begin
      try
         H[0] := RCThread.handle;

         // 安全退出子线程
         RCThread.Terminate;
         if MsgWaitForMultipleObjects(1, H, True, 1000, QS_ALLINPUT) = WAIT_OBJECT_0 then begin
            //线程已经安全退出
         end;
     except
         on e: Exception do
            ShowMessage(e.Message);
      end;
end;

转载于:https://www.cnblogs.com/lzj1981/archive/2013/04/28/3049021.html

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
©️2021 CSDN 皮肤主题: 编程工作室 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值