Hagens Methode eine Datei zu schützen

[jus]

@himitsu
Zunächst vielen vielen Dank! Leider funktioniert es nicht.
Ich versuche mit Readprocessmemory die CodeStart Stelle bis Stopcode auszulesen.
ReadProcessMemory(HandleWindow,ptr(SpeicherAdresse),buf,CodeGroesse,BytesRead); Das Problem ist nur, dass ich überhaupt nicht weiß, wie ich die Codestart Stelle als SpeicherAdresse für Readprocessmemory finden/übergeben kann.
Ich habe sogar versucht mit folgendes Adresse zu finden. Leider ohne Erfolg.

Delphi-Quellcode:

function CodeGroesse: Integer;
asm
  mov eax,offset StopMarker
  sub eax,offset Startcode;
  ret
end;

function Startmarkierung:DWORD;
asm
  MOV  EAX,OFFSET Startcode
  RET
end;

procedure Speicherauslesen;
//..
begin
//..
  ReadProcessMemory(HandleWindow,ptr(Startmarkierung),buf,CodeGroesse, BytesRead);
//..
end;

jus