Oh ja, sorry:
Delphi-Quellcode:
listbox1.clear;
createplaylist;
listbox1.Items.AddStrings(playlist.
name);
play := playlist.pfad.Strings[random(playlist.pfad.Count)];
mpl.FileName := play;
mpl.Open;
mpl.StartPos := random(
mpl.Length);
mpl.Play;
Timer1.Enabled := True;
Das is das einzige was ich bisher mit dem mediaplayer(
mpl) mache...