Yorgun Yürek
15 June 2009, 15:17
İlk Önce Oluşturmak İstediğiniz Dosyayı " C: " Dizinine Kopyalayın, " C: " Dizininde Bir Text Dosyası Oluşturun, Ve Text Dosyasına
Rapier EXE "C:\Rapier.exe"
Yazın Ve Dosyayı Rapier.rc Olarak Kaydedin.
Komut Satırını Açın(Başlat/Çalıştır/Cmd) Ve Kod:
brcc32 Rapier.rc
Parantez İçindekini Yazın (Rapier.rc Dosyası Nerede İse Orayı Yazın)). Kod:
C:/>brcc32 Rapier.rc
Enter'a Bastığınız Zaman C:'de Rapier.res Dosyası Oluşmuş Olması Lazım. Res Dosyasını Alıp Ekleyeceğimiz Programın Olduğu Klasore Atıyoruz Ve Kodunda Kod:
{$R *.DFM}
Bu Şekilde Bir Yazı Olacak Bunun Yanına Kod:
{$R Rapier.RES}
Bunu Ekleyin. Implemention'un Altında Kod:
{$R *.DFM} {$R Rapier.RES}
Böyle Görünmesi Gerek!!!
Ve Exe Oluşturmak İçinse Aşağıdaki Komutlar Yeterli
Kod:
procedure ExtractRes(ResType, ResName, ResNewName: String);
var
Res: TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, ResName, PChar(ResType));
try
Res.SaveToFile(ResNewName)
Finally
Res.Free
end;
end;
ButtonClick Olayına;
ExtractRes('exe', 'Rapier', 'Server.exe'); //ExtractRes('Res Oluşturduğunuz Dosyanın Türü (Exe, Avi, Jpg, vs)', 'Res Oluşturduğunuz Dosyanın Adı', 'Yeni Oluşturacağınız Dosyanın Adı(.exe Türünü Yazmayı Unutmayın)'); //
Rapier EXE "C:\Rapier.exe"
Yazın Ve Dosyayı Rapier.rc Olarak Kaydedin.
Komut Satırını Açın(Başlat/Çalıştır/Cmd) Ve Kod:
brcc32 Rapier.rc
Parantez İçindekini Yazın (Rapier.rc Dosyası Nerede İse Orayı Yazın)). Kod:
C:/>brcc32 Rapier.rc
Enter'a Bastığınız Zaman C:'de Rapier.res Dosyası Oluşmuş Olması Lazım. Res Dosyasını Alıp Ekleyeceğimiz Programın Olduğu Klasore Atıyoruz Ve Kodunda Kod:
{$R *.DFM}
Bu Şekilde Bir Yazı Olacak Bunun Yanına Kod:
{$R Rapier.RES}
Bunu Ekleyin. Implemention'un Altında Kod:
{$R *.DFM} {$R Rapier.RES}
Böyle Görünmesi Gerek!!!
Ve Exe Oluşturmak İçinse Aşağıdaki Komutlar Yeterli
Kod:
procedure ExtractRes(ResType, ResName, ResNewName: String);
var
Res: TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, ResName, PChar(ResType));
try
Res.SaveToFile(ResNewName)
Finally
Res.Free
end;
end;
ButtonClick Olayına;
ExtractRes('exe', 'Rapier', 'Server.exe'); //ExtractRes('Res Oluşturduğunuz Dosyanın Türü (Exe, Avi, Jpg, vs)', 'Res Oluşturduğunuz Dosyanın Adı', 'Yeni Oluşturacağınız Dosyanın Adı(.exe Türünü Yazmayı Unutmayın)'); //