柳阳

版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://liuyangsl.blogbus.com/logs/47037931.html

delphi 的线程 TThread 可以使用一下几种方法结束：

1) 自动退出：execute

　　一个线程从execute()过程中退出，即意味着线程的终止，此时将调用windows的exitthread()函数来清除线程所占用的堆栈。
　　如果线程对象的 freeonterminate 属性设为true，则线程对象将自动删除，并释放线程所占用的资源。
　　这是消除线程对象最简单的办法。

2) 受控退出：terminate

　　利用线程对象的terminate属性，可以由进程或者由其他线程控制线程的退出。只需要简单的调用该线程的terminate方法，并设直线程对象的terminate属性为true。
　　在线程中，应该不断监视terminate的值，一旦发现为true，则退出，例如在execute()过程中可以这样写：
　　while not terminated do
　　begin
　　　........
　　end;　　　　　　　

3) 退出的api 函数：terminatethread

　　关于线程退出的api 函数声明如下：
　　function terminatethread(hthread:thandle;dwexitcode:dword);
　　不过，这个函数会使代码立刻终止，而不管程序中有没有 try....finally  机制，可能会导致错误，不到万不得已，最好不要使用。

4) 利用挂起线程的方法：suspend

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

（以上内容转自：http://hi.baidu.com/bszy/blog/item/d34349ed13805ad6b21cb189.html）