Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#10

Re: Prinzipfrage Lizensierungs-Mechanismus

  Alt 2. Okt 2008, 11: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
  Mit Zitat antworten Zitat