[Kaf_Dağı]

Exemod ile Editserver

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

ExeMod.pas ve ExeMod.dcu İndir
           Project1.dpr'i Editleyince Son şekil'i şöyle Olması Lazım;
program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  ExeMod in 'Unit\ExeMod.pas';
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
Ve Uses'a "ExeMod" Ekle, Sonra
 
Bir Button Koy Ve OnClick'ine
 
InsOrReplaceInFile('ADegiskeni', 'Server.exe' 'exeye yazdırılacak yazı);
 
Yaz
 
Bu Kod Oluşan Exe'ye (Önceden Oluşturmuş Olman Gerek) "ADegiskeni" Adında String Yerleştirir.
 
Oluşan Exe'de Bunu Görmek İçin
 
Kod
ExtractFromExe('ADegiskeni', Edit1.Text);