Форум программистов [Powered by Invision Power Board]

Цитата

Функция GetKeyNameText

Функция GetKeyNameText извлекает строку, которая представляет название клавиши.

Синтаксис

Код

int GetKeyNameText(
    LONG lParam,    // второй параметр сообщения клавиатуры
    LPTSTR lpString,    // адрес буфера с именем клавиши
    int nSize    // максимальная длина строки с именем клавиши
);

Функция ToAscii

Функция ToAscii переводит заданный код виртуальной клавиши и состояние клавиатуры в соответствующий символ или символы Windows. Функция переводит код, используя язык ввода данных и физическую раскладку символов на клавиатуре, идентифицированную данным дескриптором раскладки символов.

Синтаксис

Код

int ToAscii
(
    UINT uVirtKey,    // код виртуальной клавиши
    UINT uScanCode,    // скэн-код
    PBYTE lpKeyState,    // адрес массива состояния клавиши
    LPWORD lpChar,    // буфер для трансляции клавиши
    UINT uFlags    // флажок активного меню
);

Код

function GetKeyName(Code: Integer): string;
var
  KeyName: array[0..255] of Char;
begin
  result := '';
  Code := MapVirtualKey(Code, 0);
  if Code <> 0 then
    if GetKeyNameText(Code shl 16, KeyName, SizeOf(KeyName)) > 0 then
      Result := KeyName;
end;

Код

function GetKeys: string;
var
  i, c: integer;
  KeyName: array[0..255] of Char;
  ks:      TKeyboardState;
begin
  Result := '';
  GetKeyboardState(ks); // Берём состояние всех клавиш
  for i := 0 to 128 do // Перебираем клавиши
    if ks[i] and 128 > 0 then // Если в данный момент нажата
    begin
      c := MapVirtualKey(i, 0);
      if GetKeyNameText(c shl 16, KeyName, SizeOf(KeyName)) > 0 then // Получаем имя клавиши
        Result := Result + '+' + KeyName;
    end;
  Result := Copy(Result, 2, Length(result));
end;

Цитата(kalexi @ 2.12.2009, 14:46

)

А как тогда использовать ToAscii?

Код

function GetKey(Code: Integer): Char;
var ks:      TKeyboardState;
begin
  GetKeyboardState(ks);
  ToAscii(Code, Code, ks, PAnsiChar(@result), 0);
end;