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