DELPHI线程的终止和退出的方法_Delphi_紫苹果电脑网

DELPHI线程的终止和退出的方法_Delphi_紫苹果电脑网
1)自动退出：
一个线程从execute()过程中退出，即意味着线程的终止，此时将调用windows的exitthread()函数来清除线程所占用的堆栈。

如果线程对象的freeonterminate 属性设为true，则线程对象将自动删除，并释放线程所占用的资源。

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

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

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

在线程中，应该不断监视terminate的值，一旦发现为true，则退出，例如在execute()过程中可以这样写：
while not terminated do
begin
........
end;
3)退出的api 函数：
关于线程退出的api 函数声明如下：code
function
terminatethread(hthread:thandle;dwexitcode:dword);
不过，这个函数会使代码立刻终止，而不管程序中有没有
try....finally
机制，可能会导致错误，不到万不得已，最好不要使用。

4) 利用挂起线程的方法（suspend）
利用挂起线程的suspend方法，后面跟个free，也可以释放线程，例如：
thread1.suspend; //挂起
thread2.free; //释放。