Hi...
Der MediaPlayer hat ein Event namens OnNotify, d.h. es wird ausgeführt, wenn die Musikdatei zu ende gespielt wurde.
In diesem Event könntest du das Lied nochmals von vorne abspielen lassen.
Diese Schleife kannst du mit "MediaPlayer1.Stop" unterbrechen.
So ungefähr sollte es funktionieren:
Delphi-Quellcode:
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
MediaPlayer1.Play; // Nochmals abspielen, wenn lied zu ende is
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPLayer1.FileName:='C:\fox_mccloud.mp3';
MediaPlayer1.Open; // Öffnet Datei
MediaPlayer1.Play; // Und spielt es ab
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Stop; // anhalten...
end;