JPG ohne Resource einfügen

[p80286]

Deinen Code kann man auch gleich so reduzieren:

Delphi-Quellcode:

procedure TForm1.SpieleMusikAb(FileName: string);
var
  fname: string;
begin
  fname := ExtractFileDir(Paramstr(0))+'\sound\'+FileName+'.mp3';
  // ggf if Fileexists(fname) then begin
  MediaPlayer1.Close;
  MediaPlayer1.FileName:=fname;
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

Da ist nichts mit Resource !

Gruß
K-H