2024年4月12日发(作者：)

在

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

。

在线程中，应该不断监视terminate的值，一旦发现为true,则退出，例如在execute（）过程中

可以这样写：

whilenotterminateddo

beginend;

3）退出的api函数：

关于线程退出的api函数声明如下：code

functionterminatethread（hthread:thandle;dwexitcode:dword）;

不过，这个函数会使代码立刻终止，而不管程序中有没有

try.…finally

机制，可能会导致错误，不到万不得已，最好不要使用。

4）利用挂起线程的方法（suspend）

利用挂起线程的suspend方法，后面跟个free,也可以释放线程，例如：

d;〃挂起

;//释放

遇到的"Code:1400无效窗口句柄”的问题，关闭不了程序

最近写程序，遇到的

"Code:1400

无效窗口句柄

"

的问题，关闭不了程序？

！

似乎是在线程里调用了主窗体的东西，使得释放的先后次序被打乱了，所以句柄

有问题！

但是要找到问题的根源太麻烦了，这时有招必杀技!

大家要记好了，有类似的无法关闭程序的问题，一句搞定！