Zitat von
mace:
Die Variante von Konda hat zur Folge, das er die ganze Zeit play-resume macht, also nicht erst nach Liedende, damit stürtzt das Programm dann ab.
oh, das hab ich vergessen, so dürfte es gehen:
Delphi-Quellcode:
procedure tform1.button1click(sender as tbutton);
begin
mediaplayer.open;
repeat
mediaplayer.play;
if (mediaplayer.position=mediaplayer.endpos) then mediaplayer.resume;
until (ende=true);
end;