Главная страница
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.47 MB
Время: 0.029 c
15-1160220729
TUser
2006-10-07 15:32
2006.10.29
Каким был русский язык совсем недавно?


2-1160945393
Incognito
2006-10-16 00:49
2006.10.29
Назначение версии для программы


2-1160642469
Fostr
2006-10-12 12:41
2006.10.29
SQL: Parameter not found


2-1160947024
Mavzik
2006-10-16 01:17
2006.10.29
Порядок передачи фокуса


10-1124891616
Spose
2005-08-24 17:53
2006.10.29
Определить активный элемент в TWebbrowser