LOOP mit MediaPlayer?

[Sunlight7]

Hallo Heike! <- Ich hab Deutsch gelernt

So köntest Du mit dem MediaPlayer eine endlos Wiedergabe machen:

Delphi-Quellcode:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
   If MediaPlayer1.Position=MediaPlayer1.Length then begin
      MediaPlayer1.ReWind;
      MediaPlayer1.Play;
   end;
end;

Oder alternativ ginge das auch:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   sndPlaySound('C:\LoopSound.wav', SND_ASYNC+SND_LOOP+SND_NODEFAULT);
end;

Liebes Grüßle, Sunlight7.