Привет всем!
Программа внизу должна открывать консоль в 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;
В ручном режиме всё работает.