![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Эмуляция нажатия клавиш [D6, WinXP]
RyDmi © (2004-05-20 23:18:00)Хочу сделать джойстик через LPT и необходимо написать прогу, которая бы обрабатывала клавиши управления: VK_UP, VKDOWN и т.д. Мне нужно эмулировать нажатие этих клавиш в играх, т.е. я нажимаю на джойстике например кнопку вправо, а прога эмулирует нажатие VK_RIGHT. Как осуществить? Пробовал через keyb_event(...) - не помогает. Посылал WM_KEYDOWN - тоже! Возможно я что-то не так делаю? Вот пример:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event(VK_Right,VK_right,0,0);
end;
и другой:
procedure TForm1.Timer1Timer(Sender: TObject);
var H:HWND;
begin
h:=GetForegroundWindow;
sendmessage(H,WM_KEYDOWN,VK_right,5);
end;
Очень прошу помочь!
WebErr (2004-05-21 16:25:00) [1]А с чего ты взял, что посылаешь сообщение НУЖНОМУ окну? :))))
RyDmi (2004-05-21 16:11:00) [2]Люди, ну помогите кто - нибудь! PLEASE!
RyDmi (2004-05-20 23:47:00) [3]Дело в том, что в приложениях всё работает, а в играх - нет. Как поступить?