The error:
Code: Select all
exception number : 4
exception class : EOleException
exception message : (55,4):EndBoundary:.
Code: Select all
procedure tfintegra.addschedule;
var
TriggerDetails: TTriggerDetails;
ST: TSystemTime;
task: ttaskitem;
saved: boolean;
begin
scheduler.Open;
scheduler.Refresh;
try
task:=Scheduler.CreateNewItem('Integra System Verify Report');
with task do
begin
// 2 lines optional necessary for Windows VISTA
CurrentAction := 1;
InsertAction(VISTA_TASK_ACTION_EXEC);
creator:='MooSoft Scheduler';
ApplicationName := extractfilepath(paramstr(0))+'integra.exe';
Parameters := '/verify';
comment:='Creates a System Verify Report';
Triggers.Add(ttDaily);
DateTimeToSystemTime(Now, ST);
ST.wHour := 4;
ST.wMinute := 0;
ST.wSecond := 0;
ST.wMilliseconds := 0;
Triggers[0].StartTime := SystemTimeToDateTime(ST);
Triggers[0].BeginDate := Date;
Triggers[0].EndDate := Date + 30; // will be executed during 1 month
Triggers[0].HasEndDate := false;
TriggerDetails.Daily.DaysInterval := 1;
Triggers[0].Details := TriggerDetails;
Triggers.UpdateTriggers;
if (not Scheduler.RunningVistaOrLater) then
Flags := Flags + [tfRunOnlyIfLoggedOn];
SetAccountInformation(GetOSUser, '');
if Scheduler.RunningVistaOrLater and IsUserAnAdmin then
TaskDefinition.Principal.RunLevel := TASK_RUNLEVEL_HIGHEST;
saved:=true;
try
Save; //<-- error here
except
on e: exception do
begin
saved:=false;
addlog('Add Task', e.Message);
taskdlg.Title:='Add Task';
taskdlg.Instruction:='The task could not be saved due to an error.';
taskdlg.Content:=e.Message;
taskdlg.CommonButtons:=[cbok];
taskdlg.Icon:=tierror;
taskdlg.Execute;
end;
end;
end;
if saved then
begin
propertiesdlg(task);
schedulesnapshot1.Enabled:=false;
removescheduledsnapshot1.enabled:=true;
editscheduledsnapshot1.Enabled:=true;
taskdlg.Title:='Add Task';
taskdlg.Instruction:='The task has been added.';
taskdlg.CommonButtons:=[cbok];
taskdlg.Icon:=tiinformation;
taskdlg.Execute;
end;
except
taskdlg.Title:='Add Task';
taskdlg.Instruction:='The task could not be added at this time. Please try again later.';
taskdlg.CommonButtons:=[cbok];
taskdlg.Icon:=tierror;
taskdlg.Execute;
end;
scheduler.Close;
end;