03-10 08:24 阅读 203

delphi利用qdac qworker计划任务

//
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;

原文：https://www.cnblogs.com/yangxuming/p/14355552.html

推荐资源

2021最新小红书批量引流玩法，轻松玩赚小红书【视频课程】四位大神老师带你学习区块链开发技术（内附课堂和课件） 100%起店网红店第三期，每个月操作6天就可以起店赚钱，日入500+ 月入过万的QQ群付费赚钱项目，低成本后期轻松实现躺赚！板绘教程：《十分绘画：绘画萌新入门创造营》已完结，共19期龟课·闲鱼项目玩法实战班第13期，轻松玩转闲鱼，多渠道多方法引流到私域流量池！详细解析TIKTOK如何利用海外CPS+工具0粉丝轻松变现月入10000+ 实战软考新科目 33集希赛信息安全工程师视频教程从零开始学习软考信心安全课程【价值3999元】赵阳SEM竞价第30期培训教程课程建筑课堂高永明老师最适合你的安装多专业造价课程