Programm in geplante Tasks eintragen

[Albi]

Hallo,

das habe ich auch mitbekommen, das war ja nicht so schwer . Wenn ich das Demo aber Compilieren will, bekomme EV und zwar in dieser Procedure.

Code:

procedure TfrmMain.btnNewWorkItemClick(Sender: TObject);
var
  HR: HRESULT;
  TaskName: string;
  WorkItem: IUnknown;
  g: TIID;
begin
  TaskName := InputBox('Enter Task Name', 'Name?', '');
  if TAskName = '' then
  begin
    ShowMessage('You have to enter a task name');
    exit;
  end;
  Init;
  g:= IID_ITask;
  HR := SchedulingAgent.NewWorkItem(StrToWide(TaskName), g, IID_IScheduledWorkItem);//hier kommt der Fehler
  Task := ITask(WorkItem); //required for save
  ScheduledWorkItem := IScheduledWorkItem(WorkItem);
  if HR = S_OK then StatusMemo.Lines.Add(Taskname + ' created successfully')
  else
  begin
    StatusMemo.Lines.Add('Could not create the job ' + taskname + ' Error Code :' + IntTohex(hr, 8));
    exit;
  end;
  hr := SaveTAsk;
  if hr <> S_OK then StatusMemo.lines.add('Save task failed with error code' + IntTohex(hr, 8) + #13#10);
  BtnGetTasksClick(self); //for updating
end;

Weißt Du voran das liegt?