..: رقص دانش :..

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.