Exe ye mp3 ekleme

[dilo]

merhaba,

Bir yerlerde okumuştum fakat nasıl yapıldığını bulamadım, exeye mp3 nasıl (göme bilirim).

[savasabd]

(13-11-2017, Saat: 17:24)dilo Adlı Kullanıcıdan Alıntı: merhaba,

Bir yerlerde okumuştum fakat nasıl yapıldığını bulamadım, exeye mp3 nasıl (göme bilirim).

procedure rDataTofDataMp3;
 var
  rs: TResourceStream;
  fs: TFileStream;
  filename: string;
 begin
filename := ExtractFilePath(Application.ExeName)+'ses.mp3';
rs := TResourceStream.Create(hInstance, 'ses', RT_RCDATA) ;//Project menüsünün altında Resources and Images kısmından mp3 vs dosyaları ekliyoruz.
                                  //Eklerken dosyanın adını (idini) ses olarak verdiğimizi varsayıyoruz.
fs := TFileStream.Create(filename, fmCreate) ;
fs.CopyFrom(rs, 0) ;
fs.Free;
rs.Free;
MediaPlayer1.FileName:=filename;
MediaPlayer1.Open;
 end;
 

[dilo]

Teşekkürler.