Управление от клавы - Общие вопросы Delphi

Schura · 21.04.2009, 00:28

Всем привет. Есть небольшая проблема. Необходимо создать програмку которая эмитирует нажатие от 5 до 15 кнопок клавиотуры но при этом на эти нажатия должны реагировать другие програмы.

Terran · 21.04.2009, 00:51

Может это не самый хороший вариант, зато работает.

Код:

Procedure SetKey(Key: Integer);
Begin
Keybd_Event(Key, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0);
Keybd_Event(Key, 0, KEYEVENTF_EXTENDEDKEY,0);
Keybd_Event(Key, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0);
End;
Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
SetKey(48);
SetKey(50);
SetKey(51);
SetKey(52);
SetKey(53);
SetKey(54);
SetKey(55);
SetKey(56);
SetKey(57);
SetKey(49);
SetKey(48);
SetKey(49);
SetKey(49);
SetKey(49);
SetKey(50);
SetKey(49);
SetKey(51);
SetKey(49);
SetKey(52);
SetKey(49);
SetKey(53);
End;

Schura · 21.04.2009, 18:16

Спасибо за совет, зделал процедуру как Ты и указал но что то неработает. Никаких ошибок нету, компиляция проходит нормально, от работы ехе файла никакой реакции. Почему?

Пепел Феникса · 21.04.2009, 18:20

а ты оставляешь свою форму сверху?
если да то конечно не сработает

Schura · 21.04.2009, 19:16

Да проверил работу на текстовом и вордовском документе - всё работает, но с игрой для которой делаю не хочит, вчём дело?

Пепел Феникса · 21.04.2009, 19:25

там может быть иная форма нажатий
через опрос какая кнопка нажата или нет
тогда естественно она не получает сообщений о нажатиях(точнее не обрабатывает) тут уж я не знаю

21.04.2009, 00:28	#1
Schura Регистрация: 21.04.2009 Сообщений: 3	Управление от клавы Всем привет. Есть небольшая проблема. Необходимо создать програмку которая эмитирует нажатие от 5 до 15 кнопок клавиотуры но при этом на эти нажатия должны реагировать другие програмы.

21.04.2009, 18:16	#3
Schura Регистрация: 21.04.2009 Сообщений: 3	Спасибо за совет, зделал процедуру как Ты и указал но что то неработает. Никаких ошибок нету, компиляция проходит нормально, от работы ехе файла никакой реакции. Почему? Последний раз редактировалось Schura; 21.04.2009 в 18:23.

21.04.2009, 18:20	#4
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	а ты оставляешь свою форму сверху? если да то конечно не сработает Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

21.04.2009, 19:25	#6
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	там может быть иная форма нажатий через опрос какая кнопка нажата или нет тогда естественно она не получает сообщений о нажатиях(точнее не обрабатывает) тут уж я не знаю Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
3 в одном: Хук клавы, мышки и.....	Vognedar	Win Api	2	02.03.2009 13:39
Отслеживание мыши клавы	LAFUDR	Win Api	1	13.05.2008 12:37
Эмуляция клавы и мыши	ЧИЖ	Общие вопросы Delphi	4	02.04.2008 07:51
как обрабатывать события с клавы?	proglamer	Паскаль, Turbo Pascal, PascalABC.NET	13	25.10.2007 11:41
Прерывание от клавы	Киркоров	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	10	04.09.2007 10:03

21.04.2009, 19:16	#5
Schura Регистрация: 21.04.2009 Сообщений: 3	Да проверил работу на текстовом и вордовском документе - всё работает, но с игрой для которой делаю не хочит, вчём дело?