这个老编程工具 懂的人,就懂了,
ApplicationEvents1Message
if(Msg.Message = WM_KEYDOWN) then Memo1.Lines.Add('$' + IntToHex(Msg.message, 4) +'---' + inttostr(Msg.message) +'---' + inttostr(Msg.wParam)+'---' + inttostr(Msg.lParam));