Dim myItem As MItem
Dim strPath As String
Dim dblPos As Double
myPlaylist.PlaylistGetByIndex(1, dblPos, strPath, myItem)
Dim dblIn As Double
Dim dblOut As Double
Dim dblFileLen As Double
myItem.FileInOutGet(dblIn, dblOut, dblFileLen)
MItem myItem;
string strPath;
double dblPos;
myPlaylist.PlaylistGetByIndex(1, out dblPos, out strPath, out myItem);
double dblIn;
double dblOut;
double dblFileLen;
myItem.FileInOutGet(out dblIn, out dblOut, out dblFileLen);
var
dblIn, dblOut, dblFileLen, dblPos: double;
strPath: widestring;
myItem: MItem;
begin
myPlaylist.PlaylistGetByIndex(1, dblPos, strPath, myItem);
myItem.FileInOutGet(dblIn, dblOut, dblFileLen);
end;