testasmcaps.out

来自「格式化源码的最新板」· OUT 代码 · 共 25 行

unit testasmcaps;

interface

implementation

var
  _netgroupdel: pointer;

procedure getprocedureaddress(var p: pointer; const modulename, procname: string);
begin
end;

procedure netgroupdel;
begin
  getprocedureaddress(_netgroupdel, 'Foo', 'bar');
  asm
           MOV     ESP,EBP
           POP     EBP
           JMP     [_netgroupdel]
  end;
end;

end.