Delphi内嵌ASM简易教程

前言
Delphi做为一个快速高效的开发平台，使用的人愈来愈多，但熟悉在Delphi代码中嵌入ASM代码的程序员我想很少，由于这方面的资料太少了，另外一方面，它还须要有基本的汇编语言知识，关於汇编语言的教程，那实在太多了，若是你对汇编语言不熟的话，建议你下载相交的教程先读读。所以，本文假定您已经熟悉了汇编语言。
（注，下文中的函数与过程统称为函数。）
一．如何在Delphi程序中增长一段汇编代码？
很简单，用asm...end把你的汇编代码封装起来，再把它放到你须要它的位置．这个须要它的位置能够是函数的begin与end之间，也能够是Program的begin与end之间，固然，好能够是initialization与end之间或finalization与end之间，一句话，任何能够放Delphi执行代码的地方。

范例１：对变量X实现逻辑循环右移8位，它告诉您如何在过程程中插入一段asm代码。

procedure TForm1.Button1Click(Sender: TObject);
var
X:DWORD;
begin
X:=$FF000000;
ShowMessage(Format('移位前: %.8X',[X]));
asm
MOV EAX, X
ROR EAX, 8
MOV X, EAX
end;
ShowMessage(Format('移位後: %.8X',[X]));
end;

怎麽样，是否是很简单？

二．如何在汇编代码中调用函数？
首先，须要讲一下函数的调用方式。
在Delphi中，函数的调用方式有五种，分别是register,pascal,cdecl,stdcall以及safecall,最经常使用的是register及stdcall方式．如何区别这五种方式，它们之间依据三个方面来区分，第一是参数传递顺序(Parameter Order),第二是堆栈清除方(Clean-up)，第三是是否以寄存器来传递参数（Passes parameters in registers?)．您能够在Delphi Help中找到相关资料。
Delphi中默认的参数传递方式是register，即不加方式声明的状况下，都是register方式．register方式的参数传递顺序是从左到右，由被调用者来清除堆栈，而且使用寄存器来传递参数。如何使用寄存器来传递参数呢？第一个参数使用EAX，第二个参数使用EDX，第三个参数使用ECX，第四个及之后的参数使用堆栈来传递，而且这些使用堆栈的参数是从左到右入栈的。
stdcall是Windows的默认参数传递方式，它不使用寄存器来传递参数，这种方式下参数的传递顺序是从右到左，即最后一个参数第一个入栈，依次向前，按倒序入栈。

范例２：用asm代码调用MessageBox函数，它告诉您如何在asm中调用stdcall方式的函数。

procedure TForm1.Button2Click(Sender: TObject);
var
szTitle:string;
szCaption:string;
begin
szTitle:='您好！';
szCaption:='这是一个在内嵌汇编中调用stdcall类型函数的例子.';
asm
PUSH MB_OK+MB_ICONINFORMATION
PUSH szTitle
PUSH szCaption
PUSH 0
CALL MessageBox
end;
end;

先来看看MessageBox函数的声明：
function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;
这个函数的调用方式是stdcall,参数必须从右到左入栈，因此咱们先将uType参数入栈,范例中该参数的值是MB_OK+MB_ICONINFORMATION,即PUSH MB_OK+MB_ICONINFORMATION，而后再将lpCaption,lpText,hWnd依次入栈．最后才使用CALL指令调用MessageBox函数。

范例３：用asm代码调用register方式的函数．StrLen的声明为：function StrLen(const Str: PChar): Cardinal; 它的调用方式是默认的register方式．

procedure TForm1.Button3Click(Sender: TObject);
var
Str:PChar;
iLen:Integer;
begin
Str:='abcdefghijklm';
asm
MOV EAX, Str //用EAX传递第一个参数
CALL StrLen
MOV iLen,EAX
end;
ShowMessage(IntToStr(iLen));
end;