Hallo Steffen,
dann oute ich mich mal als AssemblerIgnorant:
Delphi-Quellcode:
asm
MOV EAX, DWORD PTR FS:[$30]
TEST EAX, EAX
JS @@W9X
@@WNT:
MOV EAX, FS:[$18]
MOV EAX, [EAX+$30]
MOVZX EAX, [EAX+2]
mov [BeingDebugged], al
JMP @@ENDE
@@W9X:
MOV EAX, [$BFFC9CE4]
MOV ECX, [EAX]
CMP DWORD PTR [ECX+$54], 1
SBB EAX, EAX
INC EAX
mov [BeingDebugged], al
@@ENDE:
end;
Du mußt nur den ersten Assemblercode durch diesen ersetzen, sollte dann funktionieren.
Ich dachte der Funktionsaufruf würde sich auf
IsDebuggerPresent beziehen.
Gruß
K-H