一个Delphi线程池代码.rar

一个Delphi线程池代码，里面的函数功能有：线程池停机（检查并清除空闲线程和死线程）、清除死线程，并补充不足的工作线程、释放 FThreadsKilling 列表中的线程、申请线程任务、清除死线程等。在本线程池中，新建线程的条件： 　　1. 工作线程数小于最小线程数 　　2. 工作线程数小于最大线程数 and 线程池平均等待时间 < 100ms(系统忙) 　　3. 任务大于工作线程数的4倍