Ошибка при создании задачи в Планировщике Windows через Delphi: причины и решения

Delphi , Рабочий стол , TaskBar

При работе с Планировщиком задач Windows (Task Scheduler) через Delphi может возникнуть ситуация, когда метод RegisterTaskDefinition возвращает nil, и задача не создается. Рассмотрим подробно, что может быть причиной такой ошибки и как её можно решить.

Описание проблемы

При попытке программного создания задачи в Планировщике Windows с использованием Delphi, код может работать до вызова метода RegisterTaskDefinition, который возвращает nil, и задача не создается в директории C:\Windows\System32\Tasks. При этом создание директории MyFolder происходит корректно.

Пример кода

procedure TForm1.Button1Click(Sender: TObject);
var
  ts: ITaskService;
  tf: ITaskFolder;
  tf2: ITaskFolder;
  td: ITaskDefinition;
  tr: ITrigger;
  tt: ITimeTrigger;
  at: IAction;
  ae: IExecAction;
  rt: IRegisteredTask;
begin
  CoInitializeEx(nil, COINIT_MULTITHREADED);
  CoCreateInstance(CLSID_TaskScheduler, nil, CLSCTX_INPROC_SERVER, IID_ITaskService, ts);
  ts.Connect(unassigned, unassigned, unassigned, unassigned);
  try
    tf := ts.GetFolder('\MyFolder');
    tf2 := tf;
  except
    tf := ts.GetFolder('\');
    tf2 := tf.CreateFolder('\MyFolder', unassigned);
  end;
  // ...
  rt := tf2.RegisterTaskDefinition('MyTestTask', td, 1, unassigned, unassigned, tlInteractiveToken, '');
  // ...
end;

Причины ошибки

Основная причина ошибки заключается в неправильном использовании параметра flags в методе RegisterTaskDefinition. В коде используется значение 1, которое соответствует константе TASK_VALIDATE_ONLY. Это означает, что Планировщик проверяет синтаксис XML, описывающего задачу, но не регистрирует её.

Решение проблемы

Чтобы задача была зарегистрирована, необходимо использовать константу TASK_CREATE, которая имеет значение 2. В библиотеке API 2.0 для Delphi константы TASK_VALIDATE_ONLY и TASK_CREATE отсутствуют, поэтому их следует добавить вручную для корректной работы.

type
  TTaskCreation = (tcValidateOnly = 1, tcCreate = 2);

Используйте Ord(tcCreate) в вызове RegisterTaskDefinition:

rt := tf2.RegisterTaskDefinition('MyTestTask', td, Ord(tcCreate), unassigned, unassigned, tlInteractiveToken, '');

Также важно отметить, что в коде используются директивы safecall, которые при возникновении ошибки в методах интерфейсов вызовут исключение. Это позволяет обнаружить и исправить проблему.

Заключение

Правильное использование параметра flags в методе RegisterTaskDefinition позволяет корректно зарегистрировать задачу в Планировщике Windows. При необходимости, в библиотеку API 2.0 для Delphi следует добавить необходимые константы для удобства работы.

Создано по материалам из источника по ссылке.

Проблема описана вокруг ошибки создания задачи в Планировщике Windows через Delphi, где метод `RegisterTaskDefinition` возвращает `nil`, и указаны причины с необходимыми шагами решений.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TaskBar ::