适合delphi7的任务执行系统.docxVIP

适合delphi7的任务执行系统

unitThreadPoolD7;

interface

uses

Windows,SysUtils,Classes,Contnrs,SyncObjs;

type

//任务接口

ITask=interface

[{AEE6EB13-5166-4412-B9DA-6A0DB61CB223}]

procedureExecute;

end;

//基础任务类（可继承重写）

TTaskClass=class(TInterfacedObject,ITask)

public

procedureExecute;virtual;

end;

TThreadPool=class;

TWorkerThread=class(TThread)

private

FOwner:TThreadPool;

protected

procedureExecute;override;

public

constructorCreate(AOwner:TThreadPool);

end;

TThreadPool=class

private

FQueue:TObjectList;

FLock