Hallo und erstmal Danke für die Antworten.
Ich probiere gerade den Debugger-Schutz von
der empfohlenen Seite
aus, aber leider funktioniert er nicht so wie er soll.
BeeingDebugged ist immer True. Ich habe die letzten 3 Varianten getestet, im FormCreate:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
BeingDebugged: Boolean;
begin
asm
mov eax, fs:[0];
mov eax, [eax+$30];
mov eax, [eax+2];
mov [BeingDebugged], al
end;
if BeingDebugged
then
ShowMessage('
Beeing Debugged');
end;
Natürlich starte ich meine EXE ausserhalb der Delphi-Umgebung.
Auch wenn das Delphi komplett zu ist, ist BeeingDebugged True.
Ich bin leider nicht der
ASM-Guru.
Ich arbeite mit Delphi 7 und Win XP Professional SP3.
Oder mache ich im Aufruf irgendwas falsch?
Danke und Gruß
Steffen