Adresse einer funktion im hauptmodul herausfinden

[brechi]

oder du hacks nen bisl :

Delphi-Quellcode:

  public
    { Public-Deklarationen }
    procedure Bla;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.bla;
begin
end;

procedure TForm1.FormCreate(Sender: TObject);
var p: pointer;
begin
  asm
    mov eax, offset bla
    mov p, eax
  end;

  // in p haste dann die adresse
end;