I would like to make a couple of ne

[rewdee]

I would like to make a couple of new jobs in the AT Task Scheduler in my app. I've downloaded the project jedi code from

http://delphi-jedi.org/Jedi:APILIBRARY:71127

. I've tried the news://forums.talkto.net/jedi.apiconversion to post this question but I could not connect to their news server.

I would like to create a recurring job to occur every hour for the whole day. I've tried this code but keep getting the invalid arguments message.

If there's anyone who can point me to either some more information on some of the parameters (I can't find the parameter that sets this to recurring)or can quickly spot the error in the code below, I would be very grateful.

==========================
procedure TfrmMain.BtnCreateTriggerClick(Sender: TObject);
var
  hr: HRESULT;
  piNewTrigger: Word;
  ITTrigger: ITaskTrigger;
  TaskTrig: TTaskTRIGGER;
begin
  
  Task := GetITask(cAUTOGET);

  HR := Task.CreateTrigger(piNewTrigger, ITTrigger);

  if HR = S_OK 
  begin    
      // Add code to set trigger structure.
     ZeroMemory(@TaskTrig, sizeof(TASK_TRIGGER));
    TaskTrig.cbTriggerSize := sizeof(TASK_TRIGGER);
    TaskTrig.Reserved1 := 0;
    TaskTrig.wBeginYear := 2002;
    TaskTrig.wBeginMonth := 5;
    TaskTrig.wBeginDay := 11
    TaskTrig.wEndYear := 2005;
    TaskTrig.wEndMonth := 8;
    TaskTrig.wEndDay := 7;
    TaskTrig.wStartHour := 0;
    TaskTrig.wStartMinute := 0;
    TaskTrig.MinutesDuration :=1440;
    TaskTrig.MinutesInterval := 60;
    TaskTrig.rgFlags := 0;
    TaskTrig.TriggerType := TASK_TIME_TRIGGER_DAILY;
    TaskTrig.wRandomMinutesInterval := 0;
    TaskTrig.Reserved2 := 0;

    hr := ITTrigger.SetTrigger(@TaskTrig);
    if (hr <> S_OK) then
    begin
      MessageDlg(MessageFromValue(hr), mtError, [mbOK], 0); 
      exit;
    end;

 end;
  saveTask;
end;
==============================================

Thanks,
Rewdee