Danke euch
Habe mich mal dafür entschieden
Delphi-Quellcode:
function IsDebuggerPresent: boolean;
stdcall;
asm
MOV EAX, FS:[030H]
TEST EAX, EAX
JS @@W9X
@@WNT:
MOV EAX, FS:[$18]
MOV EAX, [EAX+$30]
MOVZX EAX, [EAX+2]
RET
@@W9X:
MOV EAX, [$BFFC9CE4]
MOV ECX, [EAX]
CMP [ECX+$54], 00000001
SBB EAX, EAX
INC EAX
RET
end;
Innerhalb der
IDE scheint es zu funktionieren
gruss Emil