Genel Paylaşım Forumu     forum  

Go Back   Genel Paylaşım Forumu > >
Kayıt ol Yardım Topluluk Takvim Bugünki Mesajlar Arama

Cevapla
 
Seçenekler Stil
  #1  
Alt 15 June 2009, 15:17
Yorgun Yürek
Guest
 
Mesajlar: n/a
Standart Delphide Exe Oluşturmak

İ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)'); //
Alıntı ile Cevapla
Cevapla


Yetkileriniz
Konu Açma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı

Forum Seç

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Galeta Yorgun Yürek efgğhıij 0 25 March 2009 17:05
Bir Dua Miktarida olsa Sevginden mahrum etme beni ... haktan Şiir Dünyası 0 19 February 2009 12:08
BuRsAdA TİYATRO GeCeKuPa Sinema 0 10 December 2008 12:22


Saat: 23:00


Telif Hakları vBulletin® v3.8.4 Copyright ©2000 - 2025, ve
Jelsoft Enterprises Ltd.'e Aittir.