TTaskTrigger ist ein record. Dieses wird über eine Getter Methode geladen:
In MSTask:
Delphi-Quellcode:
type
{$EXTERNALSYM _TASK_TRIGGER}
_TASK_TRIGGER = record // SP: removed packed record statement as seemed to affect SetTrigger
cbTriggerSize: WORD; // Structure size.
Reserved1: WORD; // Reserved. Must be zero.
wBeginYear: WORD; // Trigger beginning date year.
wBeginMonth: WORD; // Trigger beginning date month.
wBeginDay: WORD; // Trigger beginning date day.
wEndYear: WORD; // Optional trigger ending date year.
wEndMonth: WORD; // Optional trigger ending date month.
wEndDay: WORD; // Optional trigger ending date day.
wStartHour: WORD; // Run bracket start time hour.
wStartMinute: WORD; // Run bracket start time minute.
MinutesDuration: DWORD; // Duration of run bracket.
MinutesInterval: DWORD; // Run bracket repetition interval.
rgFlags: DWORD; // Trigger flags.
TriggerType: TASK_TRIGGER_TYPE; // Trigger type.
Type_: TRIGGER_TYPE_UNION; // Trigger data.
Reserved2: WORD; // Reserved. Must be zero.
wRandomMinutesInterval: WORD; // Maximum number of random minutes
// after start time.
end;
{$EXTERNALSYM TASK_TRIGGER}
TASK_TRIGGER = _TASK_TRIGGER;
TTaskTrigger = _TASK_TRIGGER;
In JclTask:
Delphi-Quellcode:
TJclTaskTrigger = class(TCollectionItem)
private
FTaskTrigger: ITaskTrigger;
procedure SetTaskTrigger(const Value: ITaskTrigger);
function GetTrigger: TTaskTrigger;
procedure SetTrigger(const Value: TTaskTrigger);
function GetTriggerString: WideString;
public
property TaskTrigger: ITaskTrigger read FTaskTrigger;
property Trigger: TTaskTrigger read GetTrigger write SetTrigger;
property TriggerString: WideString read GetTriggerString;
end;
Delphi sagt mir aber das die GetTrigger Methode vom Linker entfernt wurde, obwohl ich die Optimierung ausgeschaltet habe(!)
