1.komut satırında bir resource tanım dosyası oluştur.
MODUL.EXE senin kendi exene gömmek istediğin EXE dosyasıdır.
1.1. copy con GOKHAN.RC (Enter)
1.2. INTRO RCDATA MODUL.EXE (Bu satırı Yaz, Enter,F6 ile çık)
2.Komut satırında bu tanım dosyasından resource oluştur. (TABİ MODUL.EXE ile GOKHAN.RC aynı dizinde olacaklar).
2.1. BRCC32 GOKHAN.RC
Oluşan GOKHAN.RES 'i (içinde şu an MODUL.EXE var), taşıyıcı projenin buılundugu dizine kopyala.
3.Sonra Ana Programa (Taşıyıcı) dön, Ana Formda aşağıdaki satırları ekle.
3.1. {$R *.DFM} (den sonra, ki bu satır zaten var)
3.2. {$R GOKHAN.RES}
(Artık Kendi EXE nde MODUL.EXE gömülü durumda, sıra bunu uyandırmaya geldi)
4. Aşağıda'da bu resource'dan exeyi çıkarma kodu var.
procedure TForm1.Button2Click(Sender: TObject);
var
rStream: TResourceStream;
fStream: TFileStream;
fname: string;
begin
fname:=Paramstr(0))+'MODUL.EXE';
rStream := TResourceStream.Create
(hInstance, 'INTRO', RT_RCDATA);
try
fStream := TFileStream.Create(fname, fmCreate);
try
fStream.CopyFrom(rStream, 0);
finally
fStream.Free;
end;
finally
rStream.Free;
end;
WinExec(FNAME,SW_SHOW);
end;