Как привязаться к адресу текущей инструкции?

valterg
mov EAX,$
опирается на расчеты компилятора по аналогии с mov offset\lea

 

бросьте высокоуровневые предрассудки

 

А как насчет таких двох процедур:
procedure GetNextEIP(var eip:cardinal);
asm
pop [eax] //извлекаем адрес возврата
push [eax]// ставим на место адрес
end;
procedure SetNextEIP(eip:cardinal);
asm
mov [esp],eax
end;

var
x:cardinal;
begin
GetNextEIP(x);
SetNextEIP(X);

end.