Главная страница
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.029 c
2-1160976705
Delpher
2006-10-16 09:31
2006.10.29
Присваивание обработке события значения.


2-1160668745
Ezorcist
2006-10-12 19:59
2006.10.29
Как закрасить форму картинкой в TBitmap?


15-1160511177
default
2006-10-11 00:12
2006.10.29
Грамматика Мерфи(English grammar in use)


15-1160474069
Vlad Oshin
2006-10-10 13:54
2006.10.29
Про отца. Мини-рассказ


6-1144297719
RA81
2006-04-06 08:28
2006.10.29
Как сделать туннель между двумя серверами?