Управление от клавы

[Schura]

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

[Terran]

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

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]

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

[Пепел Феникса]

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

[Schura]

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

[Пепел Феникса]

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