Geplanter Task startet nicht

[mumu]

wenn ich einen task mit delphi erstelle, dann lässt er sich nicht ausführen. dabei ist es egal, ob der startzeitpunkt für den task gekommen ist oder ob ich ihn manuell ausführen will. das gewünschte programm wird definitiv nicht gestartet. wenn ich jetzt die eigenschaften des tasks öffne und einen haken hin und wieder weg nehm (also so dass eigentlich keine einstellung geändert wurde) und dann auf ok klicke, dann funktioniert der task ohne probleme.

so erzeuge ich den task:

Delphi-Quellcode:

var
  HR                  : HRESULT;
  WorkItem            : IUnknown;
  gCTask              : TIID;
  gIScheduledWorkItem : TIID;
  ScheduledWorkItem   : IScheduledWorkItem;
  pIPersistFile       : IPersistFile;
  piNewTrigger        : Word;
  ITTrigger           : ITaskTrigger;
  TaskTrig            : TTaskTRIGGER;
begin
  gCTask := CLSID_CTask;
  gIScheduledWorkItem := IID_IScheduledWorkItem;

  HR := SchedulingAgent.NewWorkItem(StrToWide(backup_name), gCTask,
    gIScheduledWorkItem, WorkItem);

  Task := ITask(WorkItem); //required for save
  ScheduledWorkItem := IScheduledWorkItem(WorkItem);
  if HR = S_OK then
  begin
    Task.SetApplicationName(StrToWide(Globals.CurrentDir + 'StartBackup.exe'));
    Task.SetWorkingDirectory(StrToWide(Globals.CurrentDir));
    Task.SetParameters(StrToWide('"Start_Job=' + GuidToString(_id)+'"'));
    Task.SetFlags(TASK_FLAG_RUN_ONLY_IF_LOGGED_ON);
  end;

  HR := Task.CreateTrigger(piNewTrigger, ITTrigger);
  if HR = S_OK then
  begin
    ZeroMemory(@TaskTrig, sizeof(TASK_TRIGGER));
    TaskTrig.cbTriggerSize := sizeof(TASK_TRIGGER);
    TaskTrig.Reserved1 := 0;
    TaskTrig.Reserved2 := 0;

    DecodeDateTime(_uhrzeit, Year, Month, Day, Hour, Min, Sec, mSec);
    TaskTrig.wStartHour := Hour;
    TaskTrig.wStartMinute := Min;

    DecodeDateTime(Now, Year, Month, Day, Hour, Min, Sec, mSec);
    TaskTrig.wBeginYear := Year;
    TaskTrig.wBeginMonth := Month;
    TaskTrig.wBeginDay := Day;
    TaskTrig.wEndYear := 0;
    TaskTrig.wEndMonth := 0;
    TaskTrig.wEndDay := 0;

    TaskTrig.MinutesDuration := 0;
    TaskTrig.MinutesInterval := 0;
    TaskTrig.rgFlags := 0;
    TaskTrig.wRandomMinutesInterval := 0;

    TaskTrig.TriggerType := TASK_TIME_TRIGGER_DAILY;

    TaskTrig.Type_.Daily.DaysInterval := _Tag;

    hr := ITTrigger.SetTrigger(@TaskTrig);
    if (hr <> S_OK) then
    begin
      MessageBox(0, pchar(MessageFromValue(hr)), 'Fehler', MB_ICONINFORMATION);
      exit;
    end;
  end;

  Task.QueryInterface(IID_IPersistFile, pIPersistFile);
  if pIPersistFile <> nil then
  begin
    pIPersistFile.Save(nil, true);
  end;