Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
Re: Prinzipfrage Lizensierungs-Mechanismus
2. Okt 2008, 12:14
Hallo Steffen,
hast Du Brechis Beitrag übersehen?
Zitat:
Code:
function IsDebuggerPresent: boolean; stdcall;
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]
RET
@@W9X:
MOV EAX, [$BFFC9CE4]
MOV ECX, [EAX]
CMP DWORD PTR [ECX+$54], 1
SBB EAX, EAX
INC EAX
RET
end;
Gruß
K-H
|
|
Zitat
|