Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.29;
Скачать: CL | DM;

Вниз

SendInput( with INPUT_KEYBOARD) & WordPad   Найти похожие ветки 

 
kami ©   (2006-10-09 20:13) [0]

При "нажатии" любой клавиши через SendInput WordPad начинает грузить процессор на 100%. На других программах пока такого замечено не было. Кто нибудь сталкивался с подобным и как решал?
З.Ы. Please, не надо про мои кривые руки - у Eraser -a такая же проблема с ROM, а (имхо) его радиус кривизны рук стремится к 0.


 
Leonid Troyanovsky ©   (2006-10-09 20:28) [1]


> kami ©   (09.10.06 20:13)  
> При "нажатии" любой клавиши через SendInput WordPad начинает
> грузить процессор на


Ну, ты б хоть привел бы преступный код,
бо, всухую трудно рассуждать.

--
Regards, LVT.


 
kami ©   (2006-10-09 20:50) [2]

Leonid Troyanovsky ©   (09.10.06 20:28) [1]
всухую трудно рассуждать


Привожу.

procedure TForm1.Timer1Timer(Sender: TObject);
var
 Inputs:array[0..1] of tagInput;
 // с дин. массивами не хочет отрабатывать,
 // хотя возвращает желаемое кол. посланных клавиш
begin
 //Timer1.Enabled:=False;
 FillChar(Inputs[0], SizeOf(tagInput)*2, #0);

 Inputs[0].Itype:=INPUT_KEYBOARD;
 Inputs[0].ki.wVk:=VK_RETURN;

 Inputs[1].Itype:=INPUT_KEYBOARD;
 Inputs[1].ki.wVk:=VK_RETURN;
 Inputs[1].ki.dwFlags:=KEYEVENTF_KEYUP;

 Caption:="Sended "+IntToStr(SendInput(2, Inputs[0], SizeOf(tagInput)))+" keyevents";
end;


Запускаем WordPad, запускаем этот код и активируем WordPad. На "реальных" машинах происходит через раз, зато на VMWare работать дальше невозможно пока не закроешь WordPad.


 
Ketmar ©   (2006-10-09 21:21) [3]

о. добрались до вм-твари. "сколько нам открытий чудных..." (ц)


 
kami ©   (2006-10-09 21:24) [4]

Ketmar ©   (09.10.06 21:21) [3]
добрались до вм-твари

Не вижу ничего тварного в этом. Мой радиус кривизны рук не подлежит измерению, а на своей машине ловить AV и GPF как-то неохота.


 
Ketmar ©   (2006-10-09 21:28) [5]

я намекаю на то, что о вм-твари в [0] не было ни слова. %-)


 
icWasya ©   (2006-10-10 09:32) [6]

а это что?
FillChar(Inputs[0], SizeOf(tagInput)*2, #0);



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

Текущий архив: 2006.10.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.045 c
2-1161061981
wipr
2006-10-17 09:13
2006.10.29
Проблемы с отображением данных из БД в QuickReport


15-1159957324
Layner
2006-10-04 14:22
2006.10.29
Господа москвичи! Подскажите самый крупный IT универсам в столице


11-1137023812
-=Mike=-
2006-01-12 02:56
2006.10.29
Нужно реализовать следующий функционал для инкрементного поиска


2-1160631958
Sergey_b
2006-10-12 09:45
2006.10.29
DLL


2-1160749564
KidMan
2006-10-13 18:26
2006.10.29
Как узнать кол-во строк в таблице