Bu işe kod yazmasi zaman alır fakat sana mantıgını anlatayım kaliteli bişe yapmak istiosan tüm dillerde mantık şudur. programın exedeki resourcelarında belli yerleri okuyup diske yazan ve iki dosyayi teker teker yazıp sonunda ikisini de calistiran bişey yazman gerekir. Exelerin entry pointlerini bulabilirsin ama çıkış yerleri her program için farklıdır bir exeyi oburunun icine yazarak ikisini birlestiremezsin, bunlari acip teker teker calistiran bişeyler yazman gerekir. resource olaylarını ve diske yazma olaylarını kurcala seek fln zımbırtılarını. Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı ktektir!

Yokmu yukardaki soruma cevap verebilecek delphici?

Delphi Delphi diyorlar eee nerde kaldi? Delphi yani bukadar caresizmi?

bunun vb kodu warda delphisi yoQ

Hiiii yine cevap veren yok,. ya ben anlatamiyorum yada bu isi bilen yok...

Bakın Vbden delpiye dnenler kormayın arkanız sağlam TStringstream diye bişeyvar.. var Form1: TForm1; Str:TFileStream; Procedure MetinKaydi ; var Mstr:TStringStream ; begin MStr := TStringStream. Create ; Str. CopyFrom ; Mstr. Free ; end; procedure TForm1. Button1Click ; begin Str := TFileStream. Create ; str. Position := 0; MetinKaydi ; end; yukarıda bir rnek verdim senin yapmak istediğin şekle gre çevirirsin artık tamam bi durum olursa micprog2003@yahoo.com adresinden bana mail gnder gerçi pek giremiyom internete ama girersem ilgilenmeye çalışırım.. Adige Michael

Hey Camat su sorunuma Delphiden anlayanlar cevap veremiyecekmi? Bir EXE'nin sonuna Blockwrite komutu ile veya baska bir komut ile nasil String yazdirabilirim?Bilenler bir el atsin.

Arkadaşlar Unutmayın Delphi C++ Kadar Güçlü Bir dildirTFileStream Kullanarak Parçalarsınızda Birleştirirsinizde Biz Bunu Kullanara Dosya parçalama Ve Birleştirme Programı Yazmıştık İsteyen Olursa Mailime Bi Mail Kodlarını Yollarım Daha ncede Belirttiğim Gibi Uzun Uzun Asla Anlatmam Delphi Yardımına Bakıp Yine Stream lar hakkında bilgi alabilirsinizHata UNInstall programlar bile yazarsınız Tam Olarak Olmasada Üstteki Arkadaş Normal Bir rnek Vermiş Adı İçin Yaşamak

Ancak Şimdi fırsat bulabildim bu iş için tekrar madem bu konu bilinmiyor farklı bir yntem daha gstereyim biraz daha karmaşık gibi gelebilir ama işin zü diyelim var F:File; // dosyaya erişim için Bunu tanımlamalısın mutlaka // not : benim harfbayt komutuma karşılık bir komut var ama ben kullanmıyom onun için size kendi komutlarımı gostereyim biraz daha basit.. function harfbayt :byte; var i:integer; begin for i:=0 to 255 do begin if chr = harf then begin Result:=i; break; end; end; end; Procedure MetinEkle ; var i, ln:integer; bayt:byte; begin Assignfile ; Reset (F,1); // dosya Orada Olmalı yeni Oluşturmak İçin Rewrite (F,1) Kullan Seek (F, filesize ; // Dosyanın sonuna git.. ln:=length ; blockwrite (F, ln,4); // Burada metnin Boyutu belirttik okurken hızlı okumak için işaretçi diyelim koymasanda olur amaca gre değişir.. for i:=1 to ln do begin bayt:=harfbayt(copy (metin, i,1)); blockwrite (F, bayt,1); end; closefile ; // ahada oldu eğer bir hata varsaki olmuş olabilir çünkü delphi yüklü değil kafamdan yazdım ama çalışır.. Ayrıca dngülerin programınızı yanıtsız bırakmaması için application. progressmessages procedure"sini kullanabilirsiniz.. end; // Ayrıca gene iki exeyi birleştirmek için var F, F1:File; i:byte; Assiginfile ; reset (F,1); Assiginfile (F1,"Exe1. exe"); reset (F,1); Seek (F, Filesize ; repeat blockread (F1, i,1); // exe1. exe dosyasından birbayt oku blockwrite (F, i,1); // exe dosyasının sonuna okunanı yaz.. Until filesize(F1) = filepos(f1); // gibi de yapabilirsiniz.. Adige Michael

bilmiyorum. Ama vb dersen bende programı var. Düşünüyorum, o halde varım.

HolYOne, Dostum dedigini biliyorum, Fakat ben daha delphide yeniyim ilk nce bir bir exe dosyasini ukuyup, bu exe dosyasinin en sonuna bir string veya integer yazdirmak istiyorum. Ilk nce bunu kavramak icin code ariyorum. Sonra senin dedigin asamalari yapmaya calisacagim. Eger bana mümkünse bir exeyi blockread ile okuyan ve blockwrite komtlari ile bu exe dosyasinin sonuna bir string yazabilen Delphi code yazarsan veya bu isi anlatan bir Link verirsen cok minnettar olacagim.

Bu konuda bir kac sorum var bilenler yazarsa memnun olurum 1-herhangi bir exeyi byte byte okuyup sonuna rnegin "alivelikirkdokuzelli" seklinde bir stringi nasil yazabilirim? 2. Iki exeyi birlestirmek icin, 1. ve 2. exeyi byt byte okuyup 1. exeyi 2. exenin sonuna nasil yazabilirim? rnek kod ile anlatirsaniz sevinirim.

"Exe" nedir sorusuna cevap buluğun anda problemin çzülmüş olacak... http://anticracking.de

saol dostum Vb codeleri bendede var. Daha nce VB ile calisiyordum Delphi dll ve ocx dosylari kendi icine gmdügü icin bu Delphiye gectim fakat, delphi codeleri ve kaynak bilgileri bulmakta o kadar zormus malesef.