模仿.Net ThreadPool的线程池控件
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