Kuflu Forum  

Geri Git   Kuflu Forum > Teknoloji > Programlama Dilleri ve Grafik > Programlama



Delpide Exe Olusturmak

Programlama


Yeni Konu aç  Cevapla
 
LinkBack Seçenekler Stil
Alt 12.10.09, 21:26   #1 (permalink)
..daha çirkin, daha huysuz
 
sha. - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Aug 2009
Mesajlar: 7.625
Teşekkürleri: 3.932
3.010 mesajına 28.123 kere teşekkür edildi.
Standart Delpide Exe Olusturmak

Ilk Önce Olusturmak Istediginiz Dosyayi " C: " Dizinine Kopyalayin, " C: " Dizininde Bir Text Dosyasi Olusturun, Ve Text Dosyasina

Rapier EXE "C:\Rapier.exe"
Yazin Ve Dosyayi Rapier.rc Olarak Kaydedin.
Komut Satirini Açin(Baslat/Çalistir/Cmd) Ve Kod:


brcc32 Rapier.rc

Parantez Içindekini Yazin (Rapier.rc Dosyasi Nerede Ise Orayi Yazin)). Kod:


C:/>brcc32 Rapier.rc

Enter'a Bastiginiz Zaman C:'de Rapier.res Dosyasi Olusmus Olmasi Lazim. Res Dosyasini Alip Ekleyecegimiz Programin Oldugu Klasore Atiyoruz Ve Kodunda Kod:


{$R *.DFM}

Bu Sekilde Bir Yazi Olacak Bunun Yanina Kod:


{$R Rapier.RES}

Bunu Ekleyin. Implemention'un Altinda Kod:


{$R *.DFM} {$R Rapier.RES}

Böyle Görünmesi Gerek!!!

Ve Exe Olusturmak Içinse Asagidaki 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 Olayina;
ExtractRes('exe', 'Rapier', 'Server.exe'); //ExtractRes('Res Olusturdugunuz Dosyanin Türü (Exe, Avi, Jpg, vs)', 'Res Olusturdugunuz Dosyanin Adi', 'Yeni Olusturacaginiz Dosyanin Adi(.exe Türünü Yazmayi Unutmayin)'); //
__________________


d ü n y a b i z i ç i n d ö n m ü y o r s a d u r s u n
k a l s ı n y a ş a m a k
...

.






.



sha. isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 17.04.12, 12:58   #2 (permalink)
Üye
 
Dejavu - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Mar 2010
Mesajlar: 190
Teşekkürleri: 61
32 mesajına 62 kere teşekkür edildi.
Standart

bunun yerine şöyle bişeyde yapılabilir Delphi7'de çalışıyorda ,RAD studio 2010 da denemedim;

Alıntı:
Form1'den Form2'yi EXE yapmak


1- delphiyi aç 2 form oluştur
2- file//new//unit (adı unit3 olur)
form1 e bir buton ekle altına
savemyself(‘C:\\deneme.exe’,’2′); yaz (exe yi c nin içine oluşturur)

unit3 ün kod bölümünü aç hepsini sil we şunları yaz

unit Unit3;

interface

procedure savemyself(Fn:string;FormNo:String);

Type

TExeMarker = Packed record

FormMark : string[20];

FormNo : String[5]

End;

Const

MyMarker : TExeMarker = (FormMark:’deneme’;Formno:’1’);

implementation

Uses Forms,SysUtils, Unit2, Unit1;

procedure SaveMySelf(Fn:string;FormNo:String);

Var

fx : File;

Buf: String;

i : Integer;

Begin

AssignFile(fx,Application.ExeName);

FileMode:=fmOpenRead+fmShareCompat;

Reset(fx,1);

Setlength(Buf,FileSize(Fx));

BlockRead(Fx,Buf[1],Length(buf));

CloseFile(fx);

i:=Pos(MyMarker.FormMark,Buf);

Buf[i+20]:=Char(Length(FormNo));

Move(FormNo[1],Buf[i+21],Length(FormNo));

AssignFile(fx,Fn);

ReWrite(fx,1);

BlockWrite(fx,Buf[1],Length(Buf));

CloseFile(Fx);

End;

end.

project//wiev source yi aç herşeyi sil şunları yaz

program Project1;

uses

Forms,

Unit1 in ’Unit1.pas’ {Form1},

Unit2 in ’Unit2.pas’ {Form2},

Unit3 in ’Unit3.pas’,

{$R *.res}

begin

Application.initialize;

if MyMarker.FormNo=’1’ Then

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.Run;

end.
not:Alıntıdır:
__________________
Dejavu isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Bu mesaj için Dejavu kullanıcısına teşekkür edenler:
Cevapla

Etiketler
delpide, exe, olusturmak


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Seçenekler
Stil

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

BB kodu Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık



Tüm Zamanlar GMT +2 Olarak Ayarlanmış. Şuanki Zaman: 16:58.


Powered by vBulletin® Copyright © 2017 vBulletin Solutions, Inc. All rights reserved.
2008-2016 Her hakkı kendinde saklı olan forum.
Sitemiz bir forum sitesi olduğu için kullanıcılar paylaşımlarını önceden onay almadan anında siteye yazabilmektedir. Bu yazılardan dolayı doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Yinede sitemizde yasalara aykırı unsurlar bulursanız iletisim adresine bildirebilirsiniz, şikayetiniz incelenip en kısa sürede gereken yapılır.