[shamsiev]

подскажите пожалуйста как реализовать функцию чтобы сменить полученные букву на туже только на русскую раскладку. Перехватываю хуком:

Код:

case PKbdDllHookStrukt(LParam)^.vkCode of
65..90:
                begin
                      if GetKeyState($10) < 0 then
                        begin
                        StrResult:=UpperCase(Chr(PKbdDllHookStrukt(LParam)^.vkCode)); //A..Z
                        buff:=buff+StrResult;
                        end
                      else
                        begin
                        StrResult:=LowerCase(Chr(PKbdDllHookStrukt(LParam)^.vkCode)); //a..z
                        buff:=buff+StrResult;
                        end;
end;

тут я получаю английские буквы а как преобразовать их в русские.