procedure TForm2.Button1Click(Sender: TObject);
function EnumWindowsProc(Ahwnd: hwnd; AlParam: lParam): Boolean; stdcall;
begin
ShowMessage(‘hwnd:‘ + IntToStr(Ahwnd));
ShowMessage(‘lParam‘ + IntToStr(AlParam));
Result := True;
end;
begin
EnumChildWindows(0, @EnumWindowsProc, 123);
end;
代码就是上面这点，选择编译32位平台，123会被传送到LParam里，选择编译64位平台123会被传送到hwnd里，这是怎么回事？
IDE是XE6，是我不会用吗？
----------------------------------------------
function EnumWindowsProc(Ahwnd: hwnd; AlParam: lParam): Boolean; stdcall;
begin
ShowMessage(‘hwnd:‘ + IntToStr(Ahwnd));
ShowMessage(‘lParam‘ + IntToStr(AlParam));
Result := True;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
EnumChildWindows(0, @EnumWindowsProc, 123);
end;
这样既可.
因为你如果要用嵌套函数的话编译出来的和外边的函数是不同的.
嵌套函数编译后编译器会多给一个参数作为第一个参数.这个参数保存的是父函数的栈底.当父函数调用这个嵌套函数的时候32位会塞ebp,64位会塞rbp作为第一个参数进来.
之所以32位表现似乎是没问题,因为你是stdcall,32位的时候是用栈传递参数,那么当
EnumChildWindows调用到你的函数时,你的函数取的是栈顶的三个值,刚好后两个就是Ahwnd,AlParam.
而64位只有一种调用约定stdcall,而stdcall的参数是rcx,rdx,r8,r9传递前四个参数,后面用栈传.EnumChildWindows调用你的函数的时候只给了rcx,rdx两个值.而你的函数则认为应该是rcx,rdx,r8三个参数.那么你的123被EnumChildWindows当成第二个参数放在rdx中.而你的回调函数则认为自己有三个参数,rcx是编译器给的父函数的栈底,rdx是Ahwnd.
基本就是上面的情况.
----------------------