Hallo,
nach etwas wühlen in der
DP und nochmal nachlesen habe ich
fs:[0]
durch
fs:[$18]
ersetzt:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
BeingDebugged: Boolean;
begin
asm
// mov eax, fs:[0];
mov eax, fs:[$18];
mov eax, [eax+$30];
mov eax, [eax+2];
mov [BeingDebugged], al
end;
if BeingDebugged
then
ShowMessage('
Beeing Debugged');
end;
So scheint es zu funktionieren.
Da bin ich dann gleich auf das nächste Problem gestoßen:
Die Absicherung bei Win95/98.
Im Prinzie steht ja
hier wie es geht, doch hätte ich es auch gern ohne Funktionsaufruf so wie im obigen Beispiel.
Aber wie gesagt, ich weiss nicht wie ich das in
ASM hinbekomme:
Danke und Gruß
Steffen