delphi 线程使用
摘要：
unituntWorkThread;interfaceusesWindows,Classes,SysUtils;typeTWorkItem=classend;TProcessWork=procedure(Sender:TObject;Work:TWorkItem)ofObject;TWorkThread=class(TThread)privateFCriticalSection:TRTLCriticalSection;hEvent:Cardinal;FList:TList;FProcessWork:TProcessWork;procedureProcessWork(Work:TWorkItem 阅读全文
posted @ 2012-11-30 21:23 jxgxy 阅读(585) 评论(0) 推荐(0) 编辑
