Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Keybd_Event не хочет нажимать на "точку" [D7, WinME]


Реактор ©   (2005-09-24 16:17:00) 

Загадка. Элементарная казалось бы задача, дано  число (Quote1)которое иммет вид 1.****
Надо симитировать нажатие на клавиатуре, соответствующее набору этого числа.

Вот код

Keybd_Event( 49, 0, 0, 0 );
 Keybd_Event( 49, 0, KEYEVENTF_KEYUP, 0 );
 Keybd_Event( 190, 0, 0, 0 );
 Keybd_Event( 190, 0, KEYEVENTF_KEYUP, 0 );
 Keybd_Event( Quote1 mod 10000 div 1000 + 48, 0, 0, 0 );
 Keybd_Event( Quote1 mod 10000 div 1000 + 48, 0, KEYEVENTF_KEYUP, 0 );
 Keybd_Event( Quote1 mod 1000 div 100 + 48, 0, 0, 0 );
 Keybd_Event( Quote1 mod 1000 div 100 + 48, 0, KEYEVENTF_KEYUP, 0 );
 Keybd_Event( Quote1 mod 100 div 10 + 48, 0, 0, 0 );
 Keybd_Event( Quote1 mod 100 div 10 + 48, 0, KEYEVENTF_KEYUP, 0 );
 Keybd_Event( Quote1 mod 10 + 48, 0, 0, 0 );
 Keybd_Event( Quote1 mod 10 + 48, 0, KEYEVENTF_KEYUP, 0 );


Вроде бы элементарно, но не работает. Если убрать две строки кода, где нажимается точка, то все цифры печатаются без проблем. А с двумя строками, где имитируется нажатие клавиши "точка", почему-то печатаются после точки две цифры, а потом раздается "колокольчик", как буд-то буфер клавиатуры переполнен. В чем может быть причина?


Реактор   (2005-09-24 16:30:00) [1]

Извините за беспокойство. Сам нашел.


Наверх

Титульная страница Поиск, карта сайта Написать письмо