threadpool.dpr

本模型是在内存中创建 n 个工人线程, 1. 在无任务时处于休眠状态,不占用CPU时间, 2. 在有任务时,被唤醒,取得任务,完成任务后,又自动休眼.

program ThreadPool;

uses
  Forms,
  uMainForm in 'MainForm\uMainForm.pas' {frmMainForm},
  uThreadManager in '管理者线程\uThreadManager.pas',
  uThreadWorker in '工人线程\uThreadWorker.pas',
  uPubStructs in 'Public\uPubStructs.PAS';

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TfrmMainForm, frmMainForm);
  Application.Run;
end.