Adresse einer funktion im hauptmodul herausfinden

[brechi]

das ist schon so richtig

Delphi-Quellcode:

// dll

var p: procedure;

procedure GibFunktionAn(a: pointer); stdcall;
begin
  @p := a;
end;

procedure hallo;
begin
  p; //die funktion bla aus dem hauptprogramm aufrufen
end;

exports
  GibFunktionAn;

Delphi-Quellcode:

//programm
procedure bla;
begin
  // tu was
end;

procedure main;
var p: procedure(a: pointer); stdcall;
begin
  @p := GetProcAddres(LoadLibrary('deinedll.dll'),'GibFunktionAn');
  p(@bla); //dll funktion aufrufen und als parameter die bla funktion angeben
end;