Adresse einer Funktion ermitteln

[Dax]

Oha Da hab ich nicht im Vorzeichen, sondern in der 4 geirrt.

Delphi-Quellcode:

function GetCallingAddress: Cardinal;
asm
  mov eax, [esp]
end;

So geht es wirklich

edit: Da hab ich wohl nicht nur den Titel, sondern auch die Erklärung dessen missverstanden.

noch eins:

Delphi-Quellcode:

function GetCallingAddress: Pointer;
asm
    mov   eax, [eax]
    mov   eax, [ebp+04]
    dec   eax
end;

Das geht jetzt aber wirklich..