Einzelnen Beitrag anzeigen

Benutzerbild von BUG
BUG

Registriert seit: 4. Dez 2003
Ort: Cottbus
2.094 Beiträge
 
#1

Kleine Funktion zum Auslesen des Trap-Flag-Status

  Alt 6. Aug 2006, 18:23
Hallo,

Ich habe ein kleines Beispiel-Programm geschreiben,
das den Trap-Flag des Prozessors ausliest und damit feststellen kann,
ob es im Einzelschrittmodus läuft.

Hier ist die Funktion die den Flag ausliest:

Delphi-Quellcode:
function getTrap: boolean; export;
var temp: longint;
begin
     asm
        Push EAX
        PushF
        Mov EAX, $0
        Pop AX
        Mov temp, EAX
        Pop EAX
     end;
     result := ((temp and $100) > 0);
end;
Sie ist in der Unit detectTrap.pas enthalten.

In meinem Delphi-internen Debugger funktioniert es,
bei anderen auch?

mfg Bug
Angehängte Dateien
Dateityp: zip gettrap_175.zip (112,6 KB, 10x aufgerufen)
Intellekt ist das Verstehen von Wissen. Verstehen ist der wahre Pfad zu Einsicht. Einsicht ist der Schlüssel zu allem.
  Mit Zitat antworten Zitat