zoukankan      html  css  js  c++  java
  • delphi 内嵌汇编例子

    Function add(x,y:Integer):Integer;
    var
    count:Integer;
    begin
    asm
    mov eax,x
    mov ecx,y
    add eax,ecx
    mov count,eax
    end;
    Result:=count;
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    var
    i:integer;
    begin
    showmessage ('hello,学习delphi与asm');
    asm
    xor eax,eax
    mov eax,12345678H
    xor eax,eax
    mov ax,5678H
    xor eax,eax
    mov ah,56H //高位
    xor eax,eax
    mov al,78H //低位
    or ecx,-1
    or edi,-1
    //大家破解一些软件可以用到,前提是用到showmessage.
    end;
    i:=add(2,8);
    showmessage(IntToStr(i));
    end;

    procedure TForm1.Button2Click(Sender: TObject);
    begin
    close;
    end;

    procedure proc(x,y,z:integer);
    var
    a,b,c:integer;
    str:string;
    begin
    asm
    mov eax,x
    mov a,eax
    mov b,ecx
    mov c,edx
    end;
    str:=Format('%d,%d,%d',[a,b,c]);
    ShowMessage(str);
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    proc(11,22,33);
    end;

  • 相关阅读:
    Java面向对象设计——购物车·
    查找

    栈和队列
    指针
    数组
    第四次博客——函数
    第三次博客作业
    第二次博客作业
    Java购物车大作业01
  • 原文地址:https://www.cnblogs.com/fuhuo/p/11156137.html
Copyright © 2011-2022 走看看