Unterbrechen beim laden vom Mediaplayer verhindern

[PierreB]

[ot] Is das für dein Rennspiel ? [/ot]

Code:

 FMusik[0] := ExtractFilePath(Application.ExeName) + 'Sound\Musik1.mid';
       FMusik[1] := ExtractFilePath(Application.ExeName) + 'Sound\Musik2.mid';

Pack doch die *.mid Dateien einfach ins Hauptverzeichnis, wo die exe liegt.
Und dann einfach so:

Code:

FMusik[1] := 'Musik2.mid';
  mpPlayer.FileName := FMusik[1];
  mpPlayer.Open;
  mpPlayer.Play;