всё оказалось и проще, и совсем не так как предполагалось...
1. массив TKeyboardState в данном контексте не влияет на результат никак.
2. скан-код нафиг не нужен (в данном конкретном случае)
3. нужен КОРРЕКТНЫЙ код виртуальной клавиши (virtual-key code)
4. MapVirtualKey в данном случае не годится, нужно использовать VkKeyScan.
окончательный рабочий вариант функции:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
function QwertyToRUS(Ch: Char): Char;
const
CEnglish = $0409;
CRussian = $0419;
var
VkKey: SmallInt;
Res: LongInt;
LStates: TKeyboardState;
function IsUpperCase(aKeyKode: SmallInt): boolean;
begin
Result := (aKeyKode and $100) <> 0;
end;
begin
Result := #0;
VkKey := VkKeyScan(Ch);
Res := ToAsciiEx(VkKey, 0, LStates, @Result, 0, CRussian);
if Res = 0 then
Result := Ch
else if Res < 0 then
raise Exception.Create('The specified key is a dead key')
else if Res > 1 then
raise Exception.Create('The dead-key character (accent or diacritic) stored in the keyboard layout cannot be composed with the specified virtual key to form a single character')
else if IsUpperCase(VkKey) then
Result := AnsiUpperCase(Result)[1];
end;
