http://www.2ccc.com/btdown.asp?articleid=5953

ftp://download:S3cirpYW3DoR@www.2ccc.com/vcl/system/20120301114502_ThreadPool.rar

Delphi线程池控件说明：
模仿.Net的ThreadPool类的功能。
控件关键属性：
  MaxThreadCount，MinThreadCount设置池中最大最小线程数量，默认为0，线程即用即释放。
  ThreadWorkFinished在线程执行完任务后触发，这里提供了一个时机释放传递给限制执行的指针内存
控件关键方法：QueueUserWorkItem。
          传递一个TWaitCallback类型的函数指针
          一个TWaitCallback函数的参数指针
          一个指示ThreadWorkFinished事件中释放需要释放资源的Boolean型参数
控件发布人：Henreash
Blog：blog.csdn.net/henreash

模仿.Net ThreadPool的线程池控件