《Delphi中参数的传递和函数值的返回》由会员分享，可在线阅读，更多相关《Delphi中参数的传递和函数值的返回（8页珍藏版）》请在金锄头文库上搜索。
1、 作者:RoBa 标题:关于Delphi中参数的传递和函数值的返回 关于Delphi中参数的传递和函数值的返回前言：高手们应该早知道了，不屑于写出来而已。真正的高手一个比一个潜的深，只剩下偶这样的小菜写些菜文给更小的菜。高手看时还请捂好大牙，多多指点。不知各位小菜同胞对破解DELPHI程序有什么看法，反正我的感觉就一个字：怪。各位最先遇到的问题恐怕都是：我下了GetDlgItemInt、GetDlgItemText、GetWindowText.怎么什么也断不下来，甚至连Hmemcpy都不起作用？呵呵，从这里就能看出宝蓝的那批人成心想跟M$对着干，非搞出些新鲜的东东不可。这回我们就来看看DLEP
2、HI中对函数（过程）参数的传递是如何进行的。我们知道WinAPI采用的调用约定是StdCall，也就是调用一个函数Func(arg1,agr2,agr3,arg4)，你需要push arg4,push arg3,push arg2,push arg1,call Func 。在VC+里也是这种形式，所以一个函数有几个参数，可以非常直观地看出来。可是在DELPHI中就很奇怪了，在一个CALL前面你可能一个PUSH也看不到，怎么回事呢？听我慢慢道来。DELPHI中的调用约定有StdCall,Cdecl,Safecall,Pascal和Register等几种方式，而DELPHI的默认方式是Regist
3、er（为什么不是Pascal？）Register方式就是尽可能地使用寄存器来传递参数，减少堆栈的操作来提高速度。具体情况是怎样呢，看个例子先：在FORM上放一个BUTTON，双击写代码如下： 代码:function add1(a:Integer):Integer; /一个参数beginadd1:=a+a;end;function add2(a,b:Integer):Integer; /两个参数beginadd2:=a+b;end;function add3(a,b,c:Integer):Integer; /三个参数beginadd3:=a+b+c;end;function add4(a,b,c
4、,d:Integer):Integer; /四个参数beginadd4:=a+b+c+d;end;function add5(a,b,c,d,e:Integer):Integer; /五个参数beginadd5:=a+b+c+d+e;end;function add6:Integer; /加入一些局部变量var local1,local2,local3,local4,local5:Integer;beginlocal1:=1;local2:=2;local3:=3;local4:=4;local5:=5;add6:=local1+local2+local3+local4+local5;end;
5、function add7(a,b,c,d,e:Integer):Integer; /利用result来返回beginresult:=a+b+c+d+e;end;function add8(a,b,c,d,e:Integer):Integer;StdCall;/StdCall调用方式beginadd8:=a+b+c+d+e;end;procedure TForm1.Button1Click(Sender: TObject);var a,b,c,d,e:Integer;s1,s2,s3,s4,s5,s6,s7,s8,s:Integer;begina:=1; b:=2; c:=3; d:=4; e
6、:=5;s1:=add1(a);s2:=add2(a,b);s3:=add3(a,b,c);s4:=add4(a,b,c,d);s5:=add5(a,b,c,d,e);s6:=add6;s7:=add7(a,b,c,d,e);s8:=add8(a,b,c,d,e);s:=s1+s2+s3+s4+s5+s6+s7+s8; /必须要有这么几句MessageDlg(IntToStr(s),mtConfirmation,mbOK,0); /不然编译器根本不去处理返回值end;用DEDE反一下看看，这个Button1Click的内容： 代码:004403EC 55 push ebp004403ED 8B
7、EC mov ebp, esp004403EF 83C4D8 add esp, -$28 ;空出地方放局部变量004403F2 53 push ebx004403F3 56 push esi004403F4 57 push edi004403F5 33C9 xor ecx, ecx004403F7 894DD8 mov ebp-$28, ecx004403FA 33C0 xor eax, eax004403FC 55 push ebp* Possible String Reference to: 関-?腽_嬪?|004403FD 68E9044400 push $004404E9* TRY|0
8、0440402 64FF30 push dword ptr fs:eax ;这是DELPHI的例行公事00440405 648920 mov fs:eax, esp ;据我观察只要调用VCL库的都要SEH00440408 BB01000000 mov ebx, $00000001 ;a:=10044040D BE02000000 mov esi, $00000002 ;b:=200440412 BF03000000 mov edi, $00000003 ;c:=300440417 C745FC04000000 mov dword ptr ebp-$04, $00000004 ;d:=40044
9、041E C745F805000000 mov dword ptr ebp-$08, $00000005 ;e:=5可以看出DELPHI的确不一样，把EBX，ESI，EDI能用的寄存器全都用上了，实在不行了才用ebp-xx，从下面的分析中也能看出这一点，DELPHI在能用寄存器时决不用堆栈。00440425 8BC3 mov eax, ebx ;这是add1的参数啦,不用PUSH的* Reference to : TForm1.Proc_00440360()|00440427 E834FFFFFF call 00440360 ;CALL add100440360 03C0 add eax, e
10、ax00440362 C3 ret ;这样的确很快哟0044042C 8945F4 mov ebp-$0C, eax ;s1:=add1(a)0044042F 8BD6 mov edx, esi ;add2的参数EDX=200440431 8BC3 mov eax, ebx ;add2的参数EAX=1* Reference to : TForm1.Proc_00440364()|00440433 E82CFFFFFF call 00440364 ;CALL add200440364 03D0 add edx, eax 00440366 8BC2 mov eax, edx00440368 C3
11、ret00440438 8945F0 mov ebp-$10, eax ;s2:=add2(a,b)0044043B 8BCF mov ecx, edi ;add3的参数ECX=30044043D 8BD6 mov edx, esi ;EDX=20044043F 8BC3 mov eax, ebx ;EAX=1* Reference to : TForm1.Proc_0044036C()|00440441 E826FFFFFF call 0044036C ;CALL add30044036C 03D0 add edx, eax0044036E 03CA add ecx, edx00440370
12、 8BC1 mov eax, ecx00440372 C3 ret00440446 8945EC mov ebp-$14, eax ;s3:=add3(a,b,c)00440449 8B45FC mov eax, ebp-$04 ;EBP-4=40044044C 50 push eax ;终于看见PUSH了噢0044044D 8BCF mov ecx, edi ;ECX=30044044F 8BD6 mov edx, esi ;EDX=200440451 8BC3 mov eax, ebx ;EAX=1* Reference to : TForm1.Proc_00440374()|00440453 E81CFFFFFF call 00440374 ;CALL add400440374 55 push ebp00440375 8BEC mov ebp, esp ;这是C 里面的方式啦00440377 03D0 add edx, eax00440379 03CA add ecx, edx00
