//准备一个在汇编中要调用的函数 function DelphiFun(x,y: Integer): Integer; begin Result := x + y; end; //汇编函数 function AsmFun: Integer; asm mov eax, 1 {eax 对应函数的第一个参数, 这里给第一个参数赋值为 1} mov edx, 2 {edx 对应函数的第二个参数, 这里给第二个参数赋值为 2} call DelphiFun {call 是调用命令; 返回值在 eax} end; //测试 procedure TForm1.Button1Click(Sender: TObject); var num: Integer; begin num := AsmFun; ShowMessage(IntToStr(num)); {3} end;
初学 Delphi 嵌入汇编[25] - 在汇编中调用函数
最新推荐文章于 2023-02-27 18:16:47 发布