delphi 全局捕获键盘

这个老编程工具 懂的人，就懂了，

ApplicationEvents1Message

if(Msg.Message = WM_KEYDOWN) then
Memo1.Lines.Add('$' + IntToHex(Msg.message, 4) +'---' + inttostr(Msg.message)
+'---' + inttostr(Msg.wParam)+'---' + inttostr(Msg.lParam));