2024年3月14日发(作者：)

在Delphi中使用线程，当窗体关闭时，如果窗体中启用了线程，一般需要手动关闭，

以释放资源。

常用来结束线程的代码为：

ate;

r;

即先触发Terminate方法，然后等待线程的结束。

这种方法要求线程不能使用 FreeOnTerminate := True; ，否则在WaitFor即将结束

的时候会引发“无效句柄”的错误。

这种方法在窗体关闭的时候会等待一段事件（因为WaitFor）。

因此，如果不是在主窗体中结束线程时，其实我们可以不必使用WaitFor。而是采用

如下方法：

将FreeOnTerminate := True;

这样在窗体关闭的代码中直接调用

ate;

即可。

注意：

如果设置了

inate := SomeFunction;

那么在调用ate;前尽量将inate := nil，以免结束

线程后SomeFunction中的变量出现空指针错误。当然，这不是绝对的，需要根据具体程

序而定

DELPHI 线程的终止和退出

1)自动退出：

一个线程从execute()过程中退出，即意味着线程的终止，此时将调用windows的

exitthread()函数来清除线程所占用的堆栈。

如果线程对象的 freeonterminate 属性设为true，则线程对象将自动删除，并释放

线程所占用的资源。

这是消除线程对象最简单的办法。

2)受控退出：

利用线程对象的terminate属性，可以由进程或者由其他线程控制线程的退出。只需

要简单的调用该线程的terminate方法，并设直线程对象的terminate属性为true。