Dim myItem As MItem
Dim strPath As String
Dim dblPos As Double
myPlaylist.PlaylistGetByIndex(1, dblPos, strPath, myItem)
Dim _myTime As Double
myItem.ItemPlayTimeGet(_myTime)
MItem myItem;
string strPath;
double dblPos;
myPlaylist.PlaylistGetByIndex(1, out dblPos, out strPath, out myItem);
double _myTime;
myItem.ItemPlayTimeGet(out _myTime);
var
myItem, myTargetItem: MItem;
strPath: widestring;
dblPos, myTime: double;
begin
myPlaylist.PlaylistGetByIndex(1, dblPos, strPath, myItem);
myItem.ItemPlayTimeGet(myTime);
end;