Forumunuz.Com - Exemod ile Editserver

Kod:
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);