Prinzipfrage Lizensierungs-Mechanismus

[steffen_d]

Hallo und erstmal Danke für die Antworten.

Ich probiere gerade den Debugger-Schutz von
der empfohlenen Seite
aus, aber leider funktioniert er nicht so wie er soll.

BeeingDebugged ist immer True. Ich habe die letzten 3 Varianten getestet, im FormCreate:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  BeingDebugged: Boolean;
begin
  asm
   mov eax, fs:[0];
   mov eax, [eax+$30];
   mov eax, [eax+2];
   mov [BeingDebugged], al
  end;
  if BeingDebugged then
    ShowMessage('Beeing Debugged');
end;

Natürlich starte ich meine EXE ausserhalb der Delphi-Umgebung.
Auch wenn das Delphi komplett zu ist, ist BeeingDebugged True.
Ich bin leider nicht der ASM-Guru.

Ich arbeite mit Delphi 7 und Win XP Professional SP3.

Oder mache ich im Aufruf irgendwas falsch?

Danke und Gruß
Steffen