Delphi 怎么强制结束用CreateThread创建的线程？

比如用CreateThread创建的线程里的代码处于卡死状态（比如在断网的情况下连接数据库要连好长时间），这时我想关闭程序了，怎么强制结束这个线程让程序立马退出？

3 个解决方案

#1

在确保退出时该干的事情都作了之后，直接来句 ExitProcess(0);  程序结束，所有线程结束

#2

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);
　 不过，这个函数会使代码立刻终止，容易导致错误，不到万不得已，最好不要使用。

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

所以，你得使用terminatethread强制关闭线程。

#3

closeHandle（hThread）；
关闭句柄，这里的句柄是你之前调用createThread函数的返回值。
但是强烈建议不要直接调用window API（createThread）来创建线程，而应该从TThread类继承一个你自定义的线程类方便维护！