Показать сообщение отдельно
  #1  
Старый 17.01.2010, 13:46
DungeonLords DungeonLords вне форума
Активный
 
Регистрация: 21.07.2008
Сообщения: 257
Репутация: 14
Печаль Не работает автонажатие

Привет всем!

Программа внизу должна открывать консоль в CSS и нажимать клавишу "верхняя стрелка". Вопрос: почему этого не происходит?

И дополнитльный вопрос: как мне эмулировать нажатие Enter? В таблице кодов написано 1C, но когда я так пишу вылезает ошибка.
Код:
procedure TForm1.AsyncTimer1Timer(Sender: TObject);
begin
if (iskeydown('G')) or (iskeydown('g')) or (iskeydown('п')) or (iskeydown('П'))  then
 begin
 keybd_event(96,0,0,0);   //241
 keybd_event(96,0,KEYEVENTF_KEYUP,0);

 {!}
 keybd_event(48,0,0,0);
 keybd_event(48,0,KEYEVENTF_KEYUP,0);

  {ENTER}
  keybd_event(65,0,0,0);
 keybd_event(65,0,KEYEVENTF_KEYUP,0);
 end;

В ручном режиме всё работает.
__________________
Делаем'c разные игры. Искать на glscene.ru
Ответить с цитированием