MapVirtualKeyEx получение виртуального кода клавиши

[Winexcel]

Доброго времени суток! Прошу помощи, не могу получить виртуальный код клавиши русской буквы, учитывая раскладку, как я пробовал получить:
Способ 1:

var
	i:integer;
	keybLayout: HKL;
begin
	LoadKeyboardLayout(PChar('00000419'), KLF_ACTIVATE);
	KeybLayout:=GetKeyboardLayout(0);
	i:=MapVirtualKeyEx(30, MAPVK_VSC_TO_VK, KeybLayout); 
	memo1.Lines.Add(inttostr(i));

Здесь я попытался перевести скан-код клавиши в виртуальный код, но попытки тщетны, на выходе получил :

65

Пробовал ещё и так:

c:='ф';
h:=LoadKeyboardLayout(PChar('00000419'), KLF_ACTIVATE);
i:=vkkeyscanex(c,h);
memo1.Lines.Add(inttostr(i));

Но также не обвенчалось успехом, что же я не так делаю?

[Stilet]

30,

Это что за 30 такое?

[Winexcel]

Сообщение от Stilet

Это что за 30 такое?

Это скан-код клавиши

[BLACK_RAIN]

не понял, что за виртуальный код клавиши русской буквы? код ASCII-символа?
если да, то

function GetCharFromVirtualKey(Key: Word): string;
var
    keyboardState: TKeyboardState;
    asciiResult: Integer;
begin
    GetKeyboardState(keyboardState) ;

    SetLength(Result, 2) ;
    asciiResult := ToAscii(key, MapVirtualKey(key, 0), keyboardState, @Result[1], 0) ;
    case asciiResult of
      0,2: Result := '';
      1: SetLength(Result, 1) ;
      else
        Result := '';
    end;
end;

var
t,t2 : string;
b : byte;

      t := GetCharFromVirtualKey(<код клавиши>);
      b := Byte(t[1]);
      t2 := IntToStr(b);

[Stilet]

что за виртуальный код клавиши русской буквы?

Это код клавиши, не зависимый от раскладки клавиатуры. MapVirtualKey как раз декодирует этот сканкод (по факту это номер клавиши в процессоре клавиатурном) относительно раскладки.

Это скан-код клавиши

Но ты, я так понимаю, хочешь туда передавать из параметра функции код? или нет?

[min@y™]

автор, а нафига тебе эти бубнотанцы с винапи? что у тебя за цель?

[Winexcel]

Проблема решена. Можно закрывать, решение :

function Chr_To_Vk(symbol:Char):SmallInt;
var
VK:SmallInt;
FEarly, FLast:SmallInt;
begin
VK:=$0410;
//case Upper symbol
if UpperCase(symbol) = symbol then begin
if symbol = 'Ё' then Result := $0401 else
begin
FEarly := ord('А');
FLast := Ord(symbol);
Result := VK + (FLast - FEarly);
end;
end else
begin
if symbol = 'ё' then Result := $0451 else
begin
FEarly := ord('а');
FLast := Ord(symbol);
Result := VK + (FLast - FEarly);
end;
end;
end;