在 Delphi 中安排任务有问题吗？

问题描述

我正在尝试在 Windows 10 中安排任务（单击按钮后）。我可以从 Windows“任务计划程序”和使用命令提示符安排任务，但我想在 Delphi 中以编程方式执行。我尝试过具有调度程序单元（JVCL 中的组件）的 JCL，但没有奏效。

我找到了这个解决方案：https://stackoverflow.com/a/8710741/15064216，但它既没有显示任何错误，也没有创建任务。

谁能帮我解决这个问题？我已经坚持了几个星期了。 这是我的代码：

uses
Winapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.StdCtrls,ShellApi,StdStyleActnCtrls,System.Win.TaskbarCore,Vcl.Taskbar;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.dfm}

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

procedure TForm1.Button1Click(Sender: TObject);
begin
 ScheduleRunAtStartup('TestScheduler','C:\Users\Scheduletest.exe','System');
 end;

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）