Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > ОС и железо
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 08.06.2012, 10:29
Yarcim Yarcim вне форума
Прохожий
 
Регистрация: 08.06.2012
Сообщения: 9
Репутация: 10
По умолчанию Возможно ли с'эмулировать альтернативный ввод символов (Alt+NumPad)

Если тема не совсем понятна поясняю: Мне нужно с'эмулировать ввод символов в текущее мест курсора при помощи клавиши ALT+NumPad. (для тех кто не знает, если зажать клавишу Alt и ввести трихцифровой код, появится знак из ASCII таблицы). Так вот мне нужно это сделать программно.

Пробую так, но желаемого эффекта не получается.
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.SetFocus;

  keybd_event(VK_MENU,0, 0, 0);
  keybd_event(VK_NUMPAD3,32,0, 0);
  keybd_event(VK_NUMPAD3,32,KEYEVENTF_KEYUP, 0);
  keybd_event(VK_NUMPAD9,32,0, 0);
  keybd_event(VK_NUMPAD9,32,KEYEVENTF_KEYUP, 0);
  keybd_event(VK_NUMPAD5,32,0, 0);
  keybd_event(VK_NUMPAD5,32,KEYEVENTF_KEYUP, 0);

keybd_event(vk_menu, 0, keyeventf_keyup, 0);

end;
По хорошему должна появиться русская буква "Л" (Alt+Num395),но ничего не выходит.

Может быть я что-то делаю не так, или существует какое-то аппаратное ограничение на программный ввод таким способом?
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:24.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter