//
use qworker;

procedure TForm1.doplanjob(ajob: PQJob);
var
  APlan: PQJob;
begin
  APlan := ajob.PlanJob;
  lblPlanStatic.Caption := ‘计划任务已执行‘ + IntToStr(ajob.Runs + 1) + ‘次‘#13#10 + ‘内容:‘ + APlan.ExtData.AsPlan.Plan.Content;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Workers.Plan(DoPlanJob, ‘0 37 10 * * * "1 Minute Plan Job"‘, nil, True);  // 标识早上10：37 执行计划任务
end;