Tasks: IMetabaseObjectDescriptors;
Свойство Tasks возвращает список описаний задач, созданных в контейнере.
Для выполнения примера предполагается наличие в репозитории контейнера запланированных задач с идентификатором "TASK_CONTAINTER".
Sub Main;
Var
MB: IMetabase;
Cont: IScheduledTasksContainer;
Tasks: IMetabaseObjectDescriptors;
MDesc: IMetabaseObjectDescriptor;
Task: IScheduledTask;
Begin
MB := MetabaseClass.Active;
Cont := MB.ItemById("TASK_CONTAINTER").Bind As IScheduledTasksContainer;
Tasks := Cont.Tasks;
For Each MDesc In Tasks Do
Debug.Write("Задача: " + MDesc.Name + " Состояние: ");
Task := MDesc.Bind As IScheduledTask;
Select Case (Task.State As Integer)
Case 0: Debug.WriteLine("Не активна");
Case 1: Debug.WriteLine("Готова");
Case 2: Debug.WriteLine("Выполняется");
Case 3: Debug.WriteLine("Завершена");
Case 4: Debug.WriteLine("Ошибка");
End Select;
End For;
End Sub Main;
После выполнения примера в консоль среды разработки будет выведен список задач, а также состояние каждой задачи.
См. также: