Как получить символ?(Delphi)

[The_Darkness]

Здравствуйте, такой вопрос. Как lParam сообщения WM_KEYDOWN перевести в символ. Учитывая при этом раскладку. Т.е. чтобы 'A' не стало вдруг 'Ф' и наоборот. Заранее благодарю

[The_Darkness]

Неужели никто не знает? А нельзя пересылать полученное сообщение в свою форму, а в форме обрабатывать его в OnKeyDown? Там ведь оно сразу транслируется в символ.

Ну или хотябы объясните почему

  retcode := ToAscii(vkey,MapVirtualKeyEx(vkey, 0,keyb),keystate, @Result[1],0);
  {Vkey - lparam;keyb - текущая раскладка клавиатуры;keystate - getKeyboardState;Result - string}

Переводит только в русский?

вот написал так

  Case Word(GetKeyboardLayout(GetWindowThreadProcessID(GetForegroundWindow))) of
   $409:keyb:=LoadKeyboardLayout('00000409',KLF_ACTIVATE);
   $419:keyb:=LoadKeyboardLayout('00000419',KLF_ACTIVATE);
  End;
  retcode := ToAscii(vkey,MapVirtualKeyEx(vkey, 0,keyb),keystate, @Result[1],0);

Работает вроде, но:
1)По-моему это не лучший вариант
2)В окне компилятора делфи при нажатии кнопки на клаве винда виснет, пока не тыкнешь Ctrl+Alt+Del, с чем это связано? И как исправить? ХЕЛП кто нибдуь

[Stilet]

Ты хук делаешь? Клавшпиёна?

[The_Darkness]

Да, тока клавишпиеном эту кривую конструкцию трудно назвать по следующим причинам:
1)Не делает разницы между русскими и англицкими буквами
2)Если нажать Ctr+Alt+Del и вылазит окошко безопасность виндовс, хук перестает работать, почему я не знаю.Есть способ проверить работает ли хук? Мне в голову пришел только один, послать своему окну WM_KEYDOWN с каким нить символом, и если хук не отловит, значит не работает
3)Вместо Esc,Alt и прочих кнопок вылазит непонятно что.
Пожалйста помогите, кто нить. Не хочу бараном вырасти

Вот нашел насчет этого

2)Если нажать Ctr+Alt+Del и вылазит окошко безопасность виндовс, хук перестает работать, почему я не знаю.Есть способ проверить работает ли хук? Мне в голову пришел только один, послать своему окну WM_KEYDOWN с каким нить символом, и если хук не отловит, значит не работает

-

An application that has installed a JournalRecordProc hook procedure should watch for the VK_CANCEL virtual key code (which is implemented as the CTRL+BREAK key combination on most keyboards). This virtual key code should be interpreted by the application as a signal that the user wishes to stop journal recording. The application should respond by ending the recording sequence and removing the JournalRecordProc hook procedure. Removal is important. It prevents a journaling application from locking up the system by hanging inside a hook procedure.

This role as a signal to stop journal recording means that a CTRL+BREAK key combination cannot itself be recorded. Since the CTRL+C key combination has no such role as a journaling signal, it can be recorded. There are two other key combinations that cannot be recorded: CTRL+ESC and CTRL+ALT+DEL. Those two key combinations cause the system to stop all journaling activities (record or playback), remove all journaling hooks, and post a WM_CANCELJOURNAL message to the journaling application.

В общем надо отловить это сообщение и снова запустить хук(я использую WH_JOURNALRECORD)
Всем спасибо В особенности Stilet