type PKBDLLHOOKSTRUCT = ^TKBDLLHOOKSTURCUT; TKBDLLHOOKSTURCUT = record vkCode, scanCode, flag, time, dwExtraInfo: DWORD; end; private hhookCurrent: HHOOK; ------------------------------------------------------------------------------------------------------------------- function KeyBoardProc( icode: integer; wParam: integer; lParam: integer): integer; stdcall; var p: PKBDLLHOOKSTRUCT; fEatKeystr..