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.SchedulerCommandAdd(mTimeStop, "start", "", myNewFile, 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.SchedulerCommandAdd(mTimeStop, "start", "", myNewFile, out myTask);
var
myPlaylist: MPlaylist;
mTimeStart, mTimeStop: M_DATETIME;
eStartType: eMStartType;
myTask, pItem: 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.SchedulerCommandAdd(mTimeStop, tart', '', myNewFile, myTask);
end;