Suche Unit: "IsDebuggerPresent"

[gugelhupf]

Zitat von Balu der Bär:

Unter Delphi 2006 lässt sich das fehlerfrei kompilieren.

Suuuper!

Ich nutze leider D5, wie geht's dort?

[OldGrumpy]

Zitat von gugelhupf:

Zitat von Balu der Bär:

Unter Delphi 2006 lässt sich das fehlerfrei kompilieren.

Suuuper!

Ich nutze leider D5, wie geht's dort?

x86 Opcode-Referenz (mal bei Intel danach schauen zum Beispiel) suchen, lesen, verstehen, entsprechenden Opcode selber zusammenbauen und mittels emit einfach als Bytes einkompilieren. GANZ WICHTIG: Dranschreiben was sich hinter den emit-Bytes verbirgt, sonst verbringt man später viel Zeit damit, das wieder auszuknobeln.

Achja, und selbstverständlich ist es gar kein Problem, alle diese Checks zu umgehen. Aber das wird ja gerne ignoriert

[brechi]

Delphi-Quellcode:

function IsDebuggerPresent: boolean; stdcall;
asm
  MOV     EAX, DWORD PTR FS:[$30]
  TEST    EAX, EAX
  JS      @@W9X
@@WNT:
  MOV     ECX, FS:[$18]
  MOV     ECX, DWORD PTR [ECX+$30]
  XOR     EAX, EAX
  MOV     AL, BYTE PTR [ECX+2]
  RET
@@W9X:
  MOV     EAX, DWORD PTR [$BFFC9CE4]
  MOV     ECX, DWORD PTR  [EAX]
  CMP     DWORD PTR DWORD PTR [ECX+$54], 1
  SBB     EAX, EAX
  INC     EAX
  RET
end;

Trodtzem solltest besser die Funktion aus meinen units benutzen die weiter oben gepostet wurden, weil eine statische Adresse ist nicht so das dolle.

[Olli]

Grummel: "[Zitat Olliver] Leuchtturm [Ziatatende]" ... Name falsch, Rechtschreibung grausam. Setzen, Sechs!

Zitat von brechi:

isDebuggerPresentX
in der uallKernel @ http://uall.overclock.ch/uallCollection
Da Luckies Funktion nur für winNT ist.

Dir ist schon aufgefallen, dass Win9x ausstirbt? Ich wuerde sagen es ist weitgehend ausgestorben, weshalb ich bspw. auch keine Hemmungen habe meine Programme komplett fuer Unicode zu kompilieren.

Zitat von brechi:

Trodtzem solltest besser die Funktion aus meinen units benutzen die weiter oben gepostet wurden, weil eine statische Adresse ist nicht so das dolle.

Jupp, dem moechte ich zustimmen. Obwohl es als (C-Praeprozessor/)Macro weit besser zu implementieren ist, weil es "dynamischer" ist ... auch wenn ich ja Inline-Funktionen normalerweise Makros vorziehe. Leider geht beides in Delphi nicht so richtig ...

BTW: Hast du inzwischen den Sinn der Exception(s) begriffen? Siehe hier.

[gugelhupf]

Zitat von brechi:

Delphi-Quellcode:

function IsDebuggerPresent: boolean; stdcall;
asm
  MOV     EAX, DWORD PTR FS:[$30]
  TEST    EAX, EAX
  JS      @@W9X
@@WNT:
  MOV     ECX, FS:[$18]
  MOV     ECX, DWORD PTR [ECX+$30]
  XOR     EAX, EAX
  MOV     AL, BYTE PTR [ECX+2]
  RET
@@W9X:
  MOV     EAX, DWORD PTR [$BFFC9CE4]
  MOV     ECX, DWORD PTR  [EAX]
  CMP     DWORD PTR DWORD PTR [ECX+$54], 1
  SBB     EAX, EAX
  INC     EAX
  RET
end;

Trodtzem solltest besser die Funktion aus meinen units benutzen die weiter oben gepostet wurden, weil eine statische Adresse ist nicht so das dolle.

Dat klappt bei mir leider auch net...

[gugelhupf]

*push*

[brechi]

wenn du den Fehler nicht postest kann man dir auch nicht helfen