|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.03.2012, 16:00 | #1 |
Регистрация: 19.03.2012
Сообщений: 3
|
Программное нажатие клавиш в FoxPro приложении
День добрый всем! На работе пишу виртуальную клавиатуру для FoxPro-приложения (считай Дос).Тестил работу на блокноте и на command строке, клавиши срабатывают, цифры вводятся. А вот то, что нужно - при активном ДОС-окне программно нажать клавишу- никак не выходит. Не реагирует и все.
Да, вот еще, предвидя возможные вопросы говорю - в самом окне нет дополнительных полей, как только делаешь его активным, с реальной клавиатуры сразу можно печатать, так что дополнительные хэндлы здесь без надобности. Вот пример, если кто что сможет подсказать, будет здорово Последний раз редактировалось Whereami; 19.03.2012 в 16:17. |
21.03.2012, 08:24 | #3 |
Регистрация: 19.03.2012
Сообщений: 3
|
Аватар, благодарю. Буду пробовать.
|
21.03.2012, 14:20 | #4 |
Регистрация: 19.03.2012
Сообщений: 3
|
Спасибо большое, помогло. Вставил
const ExtendedKeys: set of Byte = [ // incomplete list VK_INSERT, VK_DELETE, VK_HOME, VK_END, VK_PRIOR, VK_NEXT, VK_LEFT, VK_UP, VK_RIGHT, VK_DOWN, VK_NUMLOCK ]; и procedure SimulateKeystroke(Key: byte); var flags: DWORD; scancode: BYTE; begin if Key in ExtendedKeys then flags := KEYEVENTF_EXTENDEDKEY else flags := 0; scancode := MapVirtualKey(Key, 0); keybd_event(Key, scancode, flags, 0); keybd_event(Key, scancode, KEYEVENTF_KEYUP or flags, 0); end; ...и все заработало. Буду разбираться, как это сделано. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программное нажатие 3-х клавиш | artemavd | Общие вопросы Delphi | 12 | 19.09.2011 14:24 |
Программное нажатие кнопки в TWebBrowser | RIO | Работа с сетью в Delphi | 3 | 16.07.2011 22:27 |
Программное нажатие клавиши в чужом приложении | Der_G()RuNu(h | Работа с сетью в Delphi | 33 | 10.07.2011 18:57 |
Программное нажатие клавиш | Damien4Damien | Общие вопросы Delphi | 2 | 17.10.2010 16:26 |
сделать нажатие клавиш, в неактивном приложении | Димарик | Общие вопросы Delphi | 1 | 22.06.2007 22:48 |