Einzelnen Beitrag anzeigen

Benutzerbild von HeikoAdams
HeikoAdams

Registriert seit: 12. Jul 2004
Ort: Oberfranken
661 Beiträge
 
FreePascal / Lazarus
 
#6

Re: Taskplaner: job/task bearbeiten

  Alt 28. Apr 2009, 08:42
Der Code ist zwar zum Löschen eines bestimmten Tasks, aber als Denkanstoß taugt er sicher, da das Prinzip, nach dem Du vorgehen musst, das selbe ist.
Delphi-Quellcode:
procedure DeleteScheduledTask(const aJobName: string);
var
  TaskScheduler: TJclTaskSchedule;
  nTask: Integer;
begin
  TaskScheduler := TJclTaskSchedule.Create();
  TaskScheduler.Refresh;

  for nTask := 0 to TaskScheduler.TaskCount - 1 do
    if (TaskScheduler.Tasks[nTask].TaskName = aJobName + '.job')
      and (TaskScheduler.Tasks[nTask].Comment = FrmBackup08) then
    begin
      with TaskScheduler do
      begin
        Delete(nTask);
        Remove(aJobName + '.job');
        Refresh;
      end;

      Break;
    end;

  TaskScheduler.Free;
end;
Jeder kann ein Held werden und Leben retten!
Einfach beim NKR oder der DKMS als Stammzellenspender registrieren! Also: worauf wartest Du noch?
  Mit Zitat antworten Zitat