Вниз
Скачать: CL | DM;

Keybd_Event не хочет нажимать на "точку"   Найти похожие ветки 

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

Загадка. Элементарная казалось бы задача, дано  число (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) [1]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c
2-1131575395
solenko
2005-11-10 01:29
2005.11.27
Ошибка при вызове dll из VBA


6-1124244431
Гриха
2005-08-17 06:07
2005.11.27
TServerSocket и TClientSocket в Delphi 6 и 7


6-1124475554
Piter
2005-08-19 22:19
2005.11.27
Странная ошибка :(


11-1112327970
DmiSb
2005-04-01 07:59
2005.11.27
Не получается в DLL, собранную на VCL, передать PStream.


14-1131374953
oldman
2005-11-07 17:49
2005.11.27
Опрос. Кто вам мешает жить?




   Наверх