请教怎样检测是否有按键信息?

Question

我在程序中有许多地方要得到用户按键信息，有时用OnKeyPress不是很方便，
我想随时都可以检测是否有按键信息，在C中就可以，在Delphi我不知怎么做，
while(1)
{
       if(bioskey(1) !=0 ) 
   { KeyValue=bioskey(0); if(KeyValue==Esc) break; }
   ...
}
请各位大哥指点!

Answer 1

在application的消息处理函数中处理

Answer 2

楼上的兄弟，怎么实现呀！我想要很简单的实现，不想用到Hook等，我想应该有API函数中截取键盘消息，可我找不到。

Answer 3

while not (  PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST,  PM_NOREMOVE)) do ;

Answer 4

var key:integer;
    msg:tmsg;
while not (  PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST,  PM_NOREMOVE)) do ;
  if PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST,  PM_REMOVE))  then
  begin
     key:=msg.wParam;
     if key=27 then 
      {
           ....       }
  end;