安全释放线程

最新推荐文章于 2024-10-12 21:07:13 发布

转载最新推荐文章于 2024-10-12 21:07:13 发布 · 455 阅读

文章标签：

#delphi #线程

delphi 专栏收录该内容

1 篇文章

订阅专栏

正常

if TestMyThread<>nil then
  begin
    TestMyThread.Terminate;
    TestMyThread.Destroy;
  end;

若不行可尝试一下方法

// 置线程结束标志
objThread.Terminate;
// 等待线程结束, 这里是等待 5000 毫秒, 若超时则强制终止线程
if WaitForSingleObject(objThread.Handle, 5000) = WAIT_TIMEOUT then
   TerminateThread(objThread.Handle, 0);
// 释放线程对象
objThread.Free;