Проблемы с кириллицей, Delphi XE

[CheChe]

Пишу приложение, которое сидит в фоне и в случае набора на клавиатуре каких-то определенных слов делает какие-то действия.
Ниже приведен код функции, которая возвращает нажатую кнопку.
Проблема в том, что если скомпилировать проект на Delphi XE, то на не русифицированной ОС эта функция возвращает кириллицу некорректно. Что странно, ведь если этот же проект скомпилировать в Delphi 7, то всё работает как надо. Помогите, пожалуйста, исправить эту функцию для Delphi XE.

function GetChar(LParam: Integer): AnsiString;
 var
   KeyState: TKeyboardState;
   RetCode: Integer;
   ID: DWORD;
   L: HKL;
   vkCode: DWORD;
   scanCode: DWORD;
 begin
  Result:= '';
  with PKbDllHookStruct(LParam)^ do
  begin
   case vkCode of
    VK_BACK:     Result:= ' [BackSpace] ';
    VK_RETURN:   Result:= ' [Enter] ';
    VK_SHIFT:    Result:= '[Shift]';
    VK_ESCAPE:   Result:= ' [Esc] ';
    VK_F1:       Result:= ' [F1] ';
    VK_F2:       Result:= ' [F2] ';
    VK_F3:       Result:= ' [F3] ';
    VK_MENU:     Result:= ' [Alt] ';
   else
    ID:= GetWindowThreadProcessId(GetForegroundWindow);
    GetKeyboardState(KeyState);
    SetLength(Result, 2);
    L:= GetKeyboardLayout(ID);
    RetCode:=  ToAsciiEx(vkCode, scanCode, KeyState, PChar(PAnsiChar(Result)), 0, L);
    if RetCode = 1 then
    begin
     if Result[1] < ' '
     then Result:=  AnsiString(Format(' [Ctrl+%s] ', [Chr(Ord(Result[1]) + Ord('@'))]))
     else SetLength(Result, 1);
    end
    else Result:= '';
   end;
  end;
 end;

[Stilet]

PChar(PAnsiChar(Result)

Это для чего?

[CheChe]

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

Это для чего?

Это копипаст из интернета. Повторюсь, всё работает если скомпилить в Delphi 7
Пробовал такие варианты, но безрезультатно:

PChar(Result)
PWideChar(Result)
PWChar(Result)

Пробовал заменить ToAsciiEx на ToUnicode, но тоже не сработало, пустую строку возвращает

[Stilet]

А как эта функция внутри выглядит?
Ты должен понимать, что ХЕ - юникодные, а Д7 - нет

[CheChe]

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

А как эта функция внутри выглядит?

Какая? ToAsciiEx и ToUnicode - это стандартные функции из модуля Windows.pas

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

Ты должен понимать, что ХЕ - юникодные, а Д7 - нет

Понимаю. А что нужно исправить - нет )

[Vapaamies]

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

Понимаю. А что нужно исправить - нет )

Оставляю в качестве домашнего задания. Рано или поздно нужно переставать быть начинающим, а для этого надо прикладывать самостоятельные усилия. Задача элементарнейшая -- нужно лишь согласованно поменять типы.

[CheChe]

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

Оставляю в качестве домашнего задания. Рано или поздно нужно переставать быть начинающим, а для этого надо прикладывать самостоятельные усилия. Задача элементарнейшая -- нужно лишь согласованно поменять типы.

Да я что только не перепробовал и уже совсем запутался

[Stilet]

PAnsiChar туда передавать скорее всего не нужно. И вообще работать с String а не Ansistring, ИМХО.
А вообще это вопрос еще где ты кракозябры эти наблюдаешь потом, может коды как раз приходят верные, а вот их отображение требует конвертации.

[CheChe]

поэкспериментировал с функцией ToUnicodeEx и всё заработало