delphi 内嵌汇编例子

最新推荐文章于 2020-11-25 11:48:25 发布

weixin_30871701

最新推荐文章于 2020-11-25 11:48:25 发布

阅读量117

点赞数

原文链接：http://www.cnblogs.com/fuhuo/p/11156137.html

版权

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;

转载于:https://www.cnblogs.com/fuhuo/p/11156137.html