Dynamisch Code Erzeugen

[neolithos]

Delphi-Quellcode:

function Fkt(a : Integer) : Integer;
var p : Pointer;
begin
  p := VirtualAllocEx(GetCurrentProcess, nil, 1024, MEM_COMMIT, PAGE_EXECUTE_READWRITE);
  Move(b, p^, SizeOf(b));
  asm
    mov ecx, p
    mov eax, a
    call ecx
    mov Result, eax
  end;
  VirtualFree(p, 1024, MEM_RELEASE);
end;

Ich habe das mal einfach so versucht. Leider bricht er nach einer weile ohne Fehlermeldung ab?