看看我的代码那错了？
m_message_tag = packed record
AsciiCode: DWORD;
scanCode: DWORD;
flags: DWORD;
time: DWORD;
dwExtraInfo:DWORD;
end;
m_message = ^m_message_tag;

function m_hookproc (nCode: Integer;WParam: WPARAM;LParam: LPARAM):LRESULT; stdcall;
var
p:m_message;
s:string;
begin
p:=m_message(LParam);
if p.AsciiCode=65 then p.AsciiCode=66; //（1）如果按下的“a”则该成“b”，这里为什么不对呀。
Result:=CallNextHookEx(m_hook,ncode,Wparam,lParam);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
m_hook := SetWindowsHookExW(WH_KEYBOARD_LL,m_hookproc, Hinstance, 0);
end;



我该怎么做才能使按下a的时候转换成b？


[解决办法]
你要控制哪个控件的按键，然后

就用你的WINPROC替代原控件的WINPROC，因为每一个控件都有自己的消自己循环的哦！


如 EDIT,FORM......