Datei öffnen mit TOpenDialog

[DeddyH]

Delphi-Quellcode:

procedure TForm4.MediaPlayer1Notify(Sender: TObject);
begin
   if mediaplayer1.Position = mediaplayer1.Length then begin
   // position = gesamtlänge, bedeutet dass das lied beendet wurde
     Listbox1.Selected[currentSong] := false; // das gerade gespielte lied de-selektieren
     inc(currentSong); // aktuellen song um eines erhöhen
     if currentSong >= Playlist.Count then 
       currentsong := 0; {ende der liste erreicht, setze aktuelles lied auf anfang}
     Listbox1.Selected[currentSong] := true; // das aktuelle lied selektieren
     PlayFile; //und abspielen ;)
   end;
end;