Media Player Loop

[konda]

Mach doch einfach so:

Delphi-Quellcode:

procedure tform1.button1click(sender as tbutton);
begin
  mediaplayer.open;
  repeat
  mediaplayer.play;
  mediaplayer.resume;
  until (ende=true);
end;