'initialize a mixer
Dim m_objMixer As New MMixerClass()
m_objMixer.ObjectStart(Nothing)
m_objMixer.FilePlayStart()
'add stream to the mixer
Dim pItem As MItem
m_objMixer.StreamsAdd("", Nothing, "C:\myFile.wmv", "", pItem, 1.0)
''dblX' and 'dblY' are position of mouse pointer
Dim pElement As MElement
m_objMixer.ScenesElementGetByPos(dblX, dblY, 0, pElement)
//initialize a mixer
MMixerClass m_objMixer = new MMixerClass();
m_objMixer.ObjectStart(null);
m_objMixer.FilePlayStart();
//add stream to the mixer
MItem pItem;
m_objMixer.StreamsAdd("", null, @"C:\myFile.wmv", "", out pItem, 1.00);
//'dblX' and 'dblY' are position of mouse pointer
MElement pElement;
m_objMixer.ScenesElementGetByPos(dblX, dblY, 0, out pElement);
var
myItem: MItem;
myMixer: MMixer;
myFile: IMfile;
myObject: IMObject;
myStreams: IMstreams;
myScenes: IMScenes;
myElement: IMElement;
begin
//initialize a mixer
myMixer:= CreateComObject(CLASS_MMixer) as MMixer;
myStreams:= myMixer as IMStreams;
myFile:= myMixer as IMFile;
myObject:= myMixer as IMobject;
myObject.ObjectStart(nil);
myFile.FilePlayStart();
//add stream to the mixer
myStreams.StreamsAdd('', nil, 'C:\myFile.wmv', '', myItem, 2.0);
myScenes := myMixer as IMScenes;
myScenes.ScenesElementGetByPos(50.0, 100.0, 0, myElement); //here you can use mouse pointer position instead the 1st and 2nd parameters.
end;