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.
Erich Wanker - for life:=1971 to lebensende do begin ..
O
/H\
/ \