Hi!
Ich möchte als Hintergrundmusik für mein Programm zufällige MP3s abspielen, wieso geht folgender Code nicht, und wie mache ich es richtig?
Delphi-Quellcode:
procedure TForm1.playMP3Sound;
var Song: integer;
begin
Song:=random(3)+1;
MediaPlayer1.FileName:=(PChar(ExtractFilePath(Application.ExeName)+ 'MP3\Sound'+IntToStr(Song)+'.mp3'));
MediaPlayer1.Open;
MediaPlayer1.Play;
if MediaPlayer1.Position=MediaPlayer1.Length then
begin
MediaPlayer1.Stop;
playMP3Sound;
end;
end;