EXE soll seinen eigenen Binary-Code ändern

[erich.wanker]

Hallo..

Kann mir jemand helfen, wie ich folgendes realisieren könnte?


Im Mainform habe ich ein TLabel1 mit der Caption "zturzthtgtrgtguie88z" -> 20 Zeichen !!

On Create würde ich gerne folgendes machen:

var fs:TFileStream;
Binary: Array of byte;
i:integer;
begin

if TLabel1.caption = 'zturzthtgtrgtguie88z' then
begin
try
fs:=TFileStream.Create( ExtractFilePath(ParamStr(0))+Application.ExeName , fmOpenWrite);
setLength(Binary,fs.Size);
fs.Read(Binary[0], fs.Size);
setLength(s,fs.Size*8+1);
for i:=0 to high(Binary) do
begin

-> suche das Vorkommen der 20 Zeichen und ersetze sie durch "00000000000000000001" (wieder 20 Zeichen??)
--> starte danach die Software neu
end;

finally
fs.Free;
end;
end;




Sinn und Zweck:

Wer mein frisch compiliertes Programm einmal startet "personalifiziert" es.