if OpenDialog1.Execute then begin MediaPlayer1.Stop; // ou close je sais plus MediaPlayer1.FileName := OpenDialog1.FileName; MediaPlayer1.Play; // ou open je sais plus end;
if SelectDirectory(...) then begin methodeDeRechercheDesFichiers(chemin); if fileExists(PlayList[0]) then begin MediaPlayer1.Close/Stop? MediaPlayer1.FileName := PlayList[0]; MediaPlayer1.Play/Open? end; end;