[elrayo76]

Buenas gente,


Me gustaría saber como se pueden listar todas ramas del árbol del scheduler de Windows. El tema es que no logro que me liste todas, solo la primera.


Tengo este código que he implementado y que usa las clases de este enlace: https://github.com/jrathlev/Delphi-W...ts/WinTask.pas

Código Delphi [-]
var
  objGroup: TListGroup;
  objItem: TListItem;
  i: Integer;
  j: Integer;

begin
  // Para permitir agrupar.
  lvTasks.GroupView := True;

  lvTasks.Clear;
  lvTasks.Items.BeginUpdate;

  try
    // Recorre todas las carpetas existentes.
    for j := 0 to FTaskScheduler.TaskFolder.FolderCount - 1 do
    begin
      objGroup := lvTasks.Groups.Add;
      objGroup.State := [lgsNormal, lgsCollapsible];
      objGroup.Header := FTaskScheduler.TaskFolder.Folders[j].Name;

      //FTaskScheduler.Path := FTaskScheduler.TaskFolder.Folders[j].Path;

      // Recorre todas las tareas existentes.
      for i := 0 to FTaskScheduler.TaskFolder.TaskCount - 1 do
      begin
        objItem := lvTasks.Items.Add;

        with objItem do
        begin
          Caption := FTaskScheduler.TaskFolder.Tasks[i].TaskName;

          SubItems.Add(FTaskScheduler.TaskFolder.Tasks[i].StatusAsString);
          SubItems.Add(FTaskScheduler.TaskFolder.Tasks[i].LastRunTimeAsString);
          SubItems.Add(FTaskScheduler.TaskFolder.Tasks[i].NextRunTimeAsString);
          SubItems.Add(FTaskScheduler.TaskFolder.Tasks[i].TaskDefinition.Author);
          SubItems.Add(FTaskScheduler.TaskFolder.Tasks[i].TaskDefinition.DateAsString);

          // http://theclub.com.br/Restrito/Revis.../conh1101.aspx
          GroupID := i;
        end;
      end;
    end;
  finally
    FreeAndNil(objItem);
    FreeAndNil(objGroup);
    lvTasks.Items.EndUpdate;
  end;

Este código llena un ListView donde las ramas vienen a ser las agrupaciones dentro del mismo y dentro de estas se listan las tareas


Espero me puedan orientar para donde salir corriendo.


Saludos,
El Rayo