Datei öffnen mit TOpenDialog

[DeddyH]

Ich denke, so (ungetestet):

Delphi-Quellcode:

//Version ohne den Parameter Songnumber
procedure TForm4.PlayFile;  // deklaration von playfile ändern, hier das 2. mal
begin
  if ListBox1.ItemIndex < 0 then exit; 
  if fileexists(ListBox1.Items[ListBox1.ItemIndex]) then begin
     CurrentSong := ListBox1.ItemIndex;
     mediaplayer1.Close;
     mediaplayer1.FileName := ListBox1.Items[ListBox1.ItemIndex];
     mediaplayer1.Open;
     mediaplayer1.play;
   end;
end;