초학 Delphi 삽입 어셈블리[25] - 어셈블리에서 함수 호출

475 단어 Delphi


//              

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;


 
   

좋은 웹페이지 즐겨찾기