如何以编程方式安排任务

Question

如何使用 delphi 7 像 Google updater 一样安排任务？
我没有使用注册表，因为它被卡巴斯基防病毒软件检测为误报。
我在注册表中作为启动项添加的任何内容都会被检测为特洛伊木马，因此我决定使用任务计划

Answer 1

下面的代码展示了如何删除和创建将在系统启动时以系统权限运行应用程序的任务。它使用以下命令行：

但是，任务计划程序由于 Windows Vista 支持强制创建任务，因此我不会使用它来向后兼容 Windows XP，因为 Windows XP 中不存在此标志。
因此，下面的示例尝试删除任务（如果已存在），然后创建新任务。

它执行以下命令：

schtasks /delete /f /tn“myjob”
schtasks /create /tn“myjob”/tr“C:\Application.exe”/sc ONSTART /ru“系统”

/delete - 删除任务
/f - 抑制确认
/create - 创建任务参数
/tn - 任务的唯一名称
/tr - 可执行文件的文件名
/sc - 计划类型，ONSTART - 启动时运行
/ru - 在指定用户的权限下运行任务

这是代码：

uses
  ShellAPI;

procedure ScheduleRunAtStartup(const ATaskName: string; const AFileName: string;
  const AUserAccount: string);
begin
  ShellExecute(0, nil, 'schtasks', PChar('/delete /f /tn "' + ATaskName + '"'),
    nil, SW_HIDE);
  ShellExecute(0, nil, 'schtasks', PChar('/create /tn "' + ATaskName + '" ' +
    '/tr "' + AFileName + '" /sc ONSTART /ru "' + AUserAccount + '"'),
    nil, SW_HIDE);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ScheduleRunAtStartup('myjob', 'C:\Application.exe', 'System');
end;

Answer 2

解决了这里的问题，它工作得很好，

在 Windows 7 Pro 上进行了测试，如果有人可以在 XP PRO 上为我进行测试，我将不胜感激

procedure ScheduleRunAtStartup(const ATaskName: string; const AFileName: string;
  const GetPCName: string ; Const GetPCUser: String);
begin
  ShellExecute(0, nil, 'schtasks', PChar('/delete /f /tn "' + ATaskName + '"'),
    nil, SW_HIDE);
  ShellExecute(0, nil, 'schtasks', PChar('/create /tn "' + ATaskName + '" ' + '/tr "' + QuotedStr(AFileName) + '" /sc ONLOGON /ru "' + GetPCName+'\'+GetPCUser + '"'), nil, SW_HIDE)
end;