Hallo,
ich kann doch eine Exe auch in einen normalen TextEditor laden.
Oder in einem Hex Editor erscheint der String ja auch
Wenn #13#10 in der exe ist, dann sollte das doch erstmal kein problem sein.
Warum funktioniert dieses Beispiel nicht ? Der String wird in der eigenen Exe nicht gefunden.
Wie funktioniert es dann ?
Danke !
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
a, pfad : string;
f : Textfile;
st : ansistring;
begin
a := 'Gc684mf';
caption := a;
pfad := paramstr(0);
assignfile(f,pfad);
reset(f);
while not eof(f) do
begin
readln(f,st);
if StrStrCount(st, a) <> 0 then showmessage('gefunden');
if AnsiStrPos(Pchar(st),Pchar(a)) <> nil then showmessage('gefunden');
if pos(a,st) <> 0 then showmessage('gefunden');
end;
closefile(f);
end;