Ses Dosyası

[EYasin]

Ben programa ses dosyası gömmek istiyorum ama bunu başaramadım
forumda programa avi dosyası gömmeyi buldum ama ses dosyası gömme ile kod yok
aşağıdaki kodla text dosyası gömülüyor ama ses dosyası gömdüğüm zaman çalışmıyor

KOD:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
resource:thandle;
instance:cardinal;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
{$R Firma.RES}

procedure TForm1.FormCreate(Sender: TObject);
begin
resource:=LoadResource(hinstance,FindResource(instance,'Firma','Text'));

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeResource(resource);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:pchar;
begin
i:=pchar(LockResource(resource));
Memo1.Text:=(i);
UnlockResource(resource);
end;

end.

LÜTFEN YARDIM EDİN ...

***Birlikten kuvvet doğar***

[mepc]

kod bankamda şöyle bir kod buldum çalışıp çalışmayacağını bilmiyorum

belki faydası olur

Exe dosyasina her hangibir dosya (Txt, mid vb) nasil gomulur ?
{
Projenize resource eklemek icin
Sirayla takip ediniz. Delphi 4.0 icin:

1. Project|Resources komutu veriniz.
2. Gelen pencerede sag tiklayip New|User Data
3. Resource tipini yaziniz. Ornek: EXE (RcData gelecektir)
3. Hangi dosyayi eklemek istiyorsaniz seciniz
4. Exe_1 olarak Exe tipinde eklenecektir. EXE_1
in üzerinde sag tiklayip Rename dedikten sonra
EXE_1'i herhangi bir tamsayi ile adini degistirin. Ör: 1
(EXE_1 -> 1)
}

procedure SaveRessourceToFile(const FileName, ResType: string; ResId: Integer);
var MStream: TResourceStream;
begin
MStream := TResourceStream.CreateFromID(HInstance, ResId, PChar(ResType));
try
MStream.SaveToFile(FileName);
finally
MStream.Free;
end;
end;

// Kullanimi: (Yukardaki islemden sonra
SaveRessourceToFile('c:\deneme.exe', 'EXE', 1);

[gkimirti]

bu çalışıyor ama project menusunde normalde resource sekmesi yok d5 te
ancak RxLib kurunca cıkıyor.