procedure TForm1.Button1Click(Sender: TObject); var Longueur,Heures,Minutes,Secondes:Integer; begin if OpenDialog1.Execute then begin MediaPlayer1.FileName:=OpenDialog1.FileName; MediaPlayer1.Open; MediaPlayer1.TimeFormat:=tfMilliseconds; //Détermine le format utilisé pour spécifier des informations de position Longueur:=MediaPlayer1.Length; //Récupère la durée en millisecondes de la durée d'un MP3 //Effecue différents calcul pour récupérer les heures, les minutes et les secondes Heures:=Floor(Longueur div 3600000); //La fonction "Floor" permet d'arrondir les variables vers l'infini négatif. Minutes:=Floor(((Longueur div 60000)-Heures*60)); Secondes:= Floor((Longueur div 1000)-Heures*3600-Minutes*60); Label1.Caption:=IntTostr(Heures)+'h'+IntTostr(Minutes)+'m'+IntTostr(Secondes)+'s'; //Affiche le résulat dans un label end; end;