Prinzipfrage Lizensierungs-Mechanismus

[steffen_d]

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