Hi!
Zitat von
-=IOI=-:
Delphi-Quellcode:
try
ListBox1.Items.LoadFromFile([b]ProgDir+'\Media.txt.'[/b]); //Playlist laden
for y := 0 to ListBox1.Count -1 do
begin
ListBox6.Items.Add(ExtractFileName(ListBox1.Items[y]));
ListBox9.Items.Add(IntToStr(y+1));
MediaPlayer.FileName := ListBox1.Items[y];
MediaPlayer.Open;
ListBox10.Items.Add(IntToStr(MediaPlayer.Length));
MediaPlayer.Close;
end;
except
end;
Ist der Punkt hinter Media.txt nur ein Tippfehler?
Mfg;
fred