记得寒假期间搞过这个,找到一个函数的地址后,直接call 地址就相当于调用函数。
procedure TForm1.Button5Click(Sender: TObject);
var
i:integer;
begin
asm
mov eax,offset Button2Click
mov i,eax
end;
showmessage(inttostr(i));// show出来4558136,转换为16进制为:$458D38
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
asm
mov edx,$458D38
call edx //注意不能直接 call $458D38
end;
end;