DelphiのTipsを公開しています。
キーの状態を取得
WindowsAPIのGetKeyState関数を使う。
if GetKeyState( VK_SHIFT ) and $8000 <> 0 then
//上位ビットが1ならShiftキーが押されている
if GetKeyState( VK_CONTROL ) >= 0 then
//上位ビットが1以外ならCTRLキーが押されていない
if GetKeyState( VK_CAPITAL ) and 1 > 0 then
//下位ビットが1ならトグルがオン＝CapsLockキーがオン
if GetKeyState( VK_KANA ) and 1 = 0 then
//下位ビットが1以外ならトグルがオフ＝KANAキーがオフ。
- この関数は、メッセージキューからキーメッセージを読み取るときに変化する。ハードウェア割り込みレベルの情報が必要ならGetAsyncKeyStateを使う。
- すべての仮想キーの情報が必要ならGetKeyboardStateを使う。