Ir al contenido



Foto

Listar todas las tareas programadas


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 Dante

Dante

    Advanced Member

  • Miembros
  • PipPipPip
  • 83 mensajes

Escrito 04 octubre 2017 - 09:44

Hola estoy tratando de listar todas las tareas programadas de el equipo local, por el momento logro listar las tareas de una carpeta espesifica, pero no logro listar las carpetas o encontrar alguna funcion de la api Schedule que me permita obtener todas, alguna idea?

 

Este es el codigo con que obtengo las tareas de una carpeta:

http://edgartec.com/...task-scheduler/


delphi
  1. procedure TFormulario.FormCreate(Sender: TObject);
  2. var
  3. service,rootfolder,taskCollection,RegisteredTask:Olevariant;
  4. numberOfTasks: Integer;
  5. begin
  6. service:=CreateOleObject('Schedule.Service');
  7. service.connect;
  8. rootfolder:=service.GetFolder(Olevariant('\'));
  9. taskCollection := rootFolder.GetTasks(0);
  10. numberOfTasks := taskCollection.Count;
  11. for numberOfTasks:= 1 To taskCollection.Count do
  12. begin
  13. RegisteredTask := taskCollection.item[numberOfTasks];
  14. With ListView1.Items.Add Do
  15. Begin
  16. Caption := RegisteredTask.name;
  17. case RegisteredTask.State of
  18. 0: SubItems.Add('Desconocido');
  19. 1: SubItems.Add('Deshabilitado');
  20. 2: SubItems.Add('En espera');
  21. 3: SubItems.Add('Listo');
  22. 4: SubItems.Add('En ejecución');
  23. end;
  24. SubItems.Add(RegisteredTask.LastRunTime);
  25. SubItems.Add(RegisteredTask.LastTaskResult);
  26. End;
  27. end;
  28. end;


  • 0