Главная страница
    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.45 MB
Время: 0.037 c
2-1160985791
vitv
2006-10-16 12:03
2006.10.29
Проблема с процедурой


2-1160992430
cooc
2006-10-16 13:53
2006.10.29
Всем привет


3-1157479783
DBE
2006-09-05 22:09
2006.10.29
paradox на другом компе


10-1124615741
Shuric
2005-08-21 13:15
2006.10.29
Регистрация COM


2-1160537533
pkm
2006-10-11 07:32
2006.10.29
Типизированный файл.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский