Dim mTimeStart As M_DATETIME
Dim mTimeStop As M_DATETIME
Dim eStartType As eMStartType
Dim myTask As MItem
pItem.ItemTimesGet(mTimeStart, mTimeStop, eStartType)
Dim strPath As String = "d:\clips\SampleClip1.wmv"
myPlaylist.SchedulerAdd(mTimeStop, Nothing, strPath, "", myTask)
M_DATETIME mTimeStart;
M_DATETIME mTimeStop;
eMStartType eStartType;
MItem myTask;
pItem.ItemTimesGet(out mTimeStart, out mTimeStop, out eStartType);
string strPath = @"d:\clips\SampleClip1.wmv";
myPlaylist.SchedulerAdd(mTimeStop, null, strPath, "", out myTask);
var
myPlaylist: MPlaylist;
mTimeStart, mTimeStop: M_DATETIME;
eStartType: eMStartType;
myTask: MItem;
myPath: string;
myScheduler: IMScheduler;
begin
myPlaylist:= CreateComObject(CLASS_MPlaylist) as MPlaylist;
myPath:= 'd:\clips\SampleClip1.wmv';
myPlaylist.PlaylistAdd(nil, myPath, '', -1, pItem);
pItem.ItemTimesGet(mTimeStart, mTimeStop, eStartType);
myScheduler := myPlaylist as IMScheduler;
myScheduler.SchedulerAdd(mTimeStop, nil, strPath, '', myTask);
end;