Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

29th
Фев

Нажатие клавишь в чужом окне

Posted by Chas under Delphi

Aliens_wolfs
Небольшой пример:

//Если известен хендл окна то работай по сообщениям нажатия в самом окне

procedure SetKeyMessage(Handle: HWND; Key: DWORD);

begin

SendMessage(Handle, WM_KEYDOWN, Key, 0);

SendMessage(Handle, WM_KEYUP, Key, 0);

end;
//Эмуляция клавиши

procedure SetKey(Key: DWORD);

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;
//Использовать так
//Просто эмулировать

SetKey(Ord(A)); //SetKey(38);=код клавиши стрелки вверх

//или если хендел окна игры известен то

SetKeyMessag(сюда хендел игры, Ord(A));