GetKeyState(nVirtKeyinteger)函数Delphi判断按键状态