Get Shift / Ctrl / Alt Key state
function HighOrderBitSet (theWord: Word): Boolean;
const
HighOrderBit = 15;
type
BitSet = set of 0..15;
begin
HighOrderBitSet := (HighOrderBit in BitSet(theWord));
end;
..
begin
..
AltKeyDown := HighOrderBitSet(Word(GetKeyState(VK_MENU)));
CtrlKeyDown := HighOrderBitSet(Word(GetKeyState(VK_CONTROL)));
ShiftKeyDown := HighOrderBitSet(Word(GetKeyState(VK_SHIFT)));
LeftShiftKeyDown := HighOrderBitSet(Word(GetKeyState(VK_LSHIFT)));
// other VK's:
// VK_LSHIFT VK_RSHIFT
// VK_LCONTROL VK_RCONTROL
// VK_LMENU VK_RMENU
end.
+ نوشته شده در چهاردهم بهمن 1385ساعت توسط حسین |
