[Delphi]DELPHI线程的终止和退出VIP免费

在Delphi中使用线程，当窗体关闭时，如果窗体中启用了线程，一般需要手动关闭，以释放资源。 常用来结束线程的代码为： PcmThrd.Terminate; PcmThrd.WaitFor; 即先触发Terminate方法，然后等待线程的结束。 这种方法要求线程不能使用 FreeOnTerminate := True; ，否则在WaitFor即将结束的时候会引发“无效句柄”的错误。 这种方法在窗体关闭的时候会等待一段事件（因为WaitFor）。 因此，如果不是在主窗体中结束线程时，其实我们可以不必使用WaitFor。而是采用如下方法： 将FreeOnTerminate := True; 这样在窗体关闭的代码中直接调用 PcmThrd.Terminate; 即可。 注意： 如果设置了 PcmThrd.OnTerminate := SomeFunction; 那么在调用PcmThrd.Terminate;前尽量将PcmThrd.OnTerminate := nil，以免结束线程后SomeFunction中的变量出现空指针错误。当然，这不是绝对的，需要根据具体程序而定 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; //释放 遇到的" Code:1400 无效窗口句柄 "的问题，关闭不了程序 最近写程序，遇到的" Code:1400 无效窗口句柄 "的问题，关闭不了程序？！ 似乎是在线程里调用了主窗体的东西，使得释放的先后次序被打乱了，所以句柄有问题！ 但是要找到问题的根源太麻烦了，...