Использование Windows API для обработки регистра символов в Delphi: декодирование сообщений `WM_KeyUp`

Delphi , Синтаксис , Справочник по API-функциям

Использование Windows API для обработки регистра символов в Delphi: декодирование сообщений WM_KeyUp

Пользователи, работающие с приложениями на Delphi, часто сталкиваются с необходимостью обрабатывать нажатия клавиш в регистрочувствительном режиме. В частности, при обработке сообщений WM_KeyUp возникает задача определения, была ли нажата буква или цифра, и в каком регистре. В данной статье мы рассмотрим, как с помощью Windows API можно решить эту задачу.

Проблема с получением регистра символов

В процедуре DoOnAppMessage при обработке сообщения WM_KeyUp используется функция Chr, которая преобразует виртуальный код клавиши в символ, но всегда возвращает символ в верхнем регистре. Это связано с тем, что виртуальный код не содержит информации о регистре.

procedure TForm1.DoOnAppMessage(var Msg: tagMSG; var Handled: Boolean);
var
  CH: Char;
begin
  // ...
  case Msg.Message of
    WM_KeyUp: begin
      CH := Chr(Msg.WParam);
      // ...
    end;
  end;
end;

Решение с использованием низкоуровневого хука клавиатуры

Для получения символа в правильном регистре необходимо использовать низкоуровневый хук клавиатуры. В примере ниже приведен код, который устанавливает такой хук и обрабатывает нажатия клавиш, учитывая состояние клавиш Shift, Ctrl, Alt и Caps Lock.

type
  TOutProc = procedure(AString: String) of object;
  PKbdLlHookStruct = ^TKbdLlHookStruct;
  TKbdLlHookStruct = packed record
    vkCode: DWORD;
    scanCode: DWORD;
    flags: DWORD;
    time: DWORD;
    dwExtraInfo: DWORD;
  end;
  TKeyboardState = array[0..255] of Byte;
  TOutPutChar = Char;

const
  WH_KEYBOARD_LL = 13;

var
  FKeyboardLayoutHandle: HKL;
  hhkLowLevelKybd: HHOOK;
  KeyState: TKeyboardState;

function LowLevelKeyBoardProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
  act: PKbdLlHookStruct;
  CH: Char;
  S: String;
  NewChar: array[0..1] of Char;
begin
  if (nCode = HC_ACTION) then begin
    case wParam of
      WM_SYSKEYDOWN, WM_KEYUP, WM_SYSKEYUP: begin
        act := PKbdLlHookStruct(lParam);
        if wParam = WM_KEYUP then begin
          FillChar(NewChar, SizeOf(NewChar), #0);
          GetKeyboardState(KeyState);
          // Установка состояний клавиш Shift, Ctrl, Alt и Caps Lock
          KeyState[VK_CAPITAL] := GetKeyState(VK_CAPITAL);
          KeyState[VK_SHIFT] := GetKeyState(VK_SHIFT);
          KeyState[VK_CONTROL] := GetKeyState(VK_CONTROL);
          KeyState[VK_MENU] := GetKeyState(VK_MENU);

          if ToAsciiEx(act^.vkCode, act^.scanCode, KeyState, NewChar, 0, FKeyboardLayoutHandle) = 1 then begin
            CH := NewChar[0];
            // Проверка и вывод символа, если это не специальный символ
          end;
        end;
      end;
    end;
  end;
  Result := CallNextHookEx(hhkLowLevelKybd, nCode, wParam, lParam);
end;

Заключение

Использование Windows API для декодирования сообщений WM_KeyUp в Delphi требует установки низкоуровневого хука клавиатуры и анализа состояния клавиш для определения регистра нажатого символа. Приведенный выше код демонстрирует, как можно решить эту задачу, обеспечивая регистрочувствительную обработку нажатий клавиш.

Создано по материалам из источника по ссылке.

Пример использования Windows API для декодирования сообщений `WM_KeyUp` в Delphi с целью обработки регистра нажатых клавиш.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Справочник по API-функциям ::