function keyHookProc(nCode: Integer;WParam: WPARAM;LParam: LPARAM): LRESULT;stdcall; //调用键盘钩子，屏蔽功能键 var p: PKBDLLHOOKSTRUCT; y: integer; begin if nCode