Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.06.2017, 11:19
ratttx6 ratttx6 вне форума
Прохожий
 
Регистрация: 03.06.2017
Сообщения: 3
Версия Delphi: Delphi 7
Репутация: 10
Печаль Эмуляция нажатия клавиш для другого приложения (Win10 под D3D) не работает - Delphi

Добрый день! У меня такая трабла возникла. Нужно В игре под директ3Д зажать правую кнопку мышки на несколько секунд и отпустить.
Вот код и варианты кодов. (перепробовал даже клавиши посылать)
Код:
по таймеру...
Handle := GetForegroundWindow();
PostMessage(Handle, WM_IME_KEYDOWN,VK_ESCAPE,0 );

или

keybd_event(VK_ESCAPE, 0, 0, 0);
Sleep(2000);
keybd_event(VK_ESCAPE, 0, KEYEVENTF_KEYUP, 0);

или


SendMessage(Handle, MOUSEEVENTF_LEFTDOWN, 0, 0);
Sleep(2000);
SendMessage(Handle, MOUSEEVENTF_LEFTUP, 0, 0);

или

var
d:tINPUT;
g:tagmouseinput;
pt:Tpoint;
begin
getcursorpos(pt);
g.dx:=pt.x;
g.dy:=pt.y;
g.mouseData:=0;
g.dwFlags:=MOUSEEVENTF_LEFTDOWN ;
g.time:=0;
d.mi:=g;
d.Itype:=INPUT_MOUSE;
SendInput(1,d,sizeof(d));

или
по идее этот вариант просто обязан работать... НО просто в винде менюшка вылетает(норма), а в игре ничего....
mouse_event(MOUSEEVENTF_RIGHTDOWN,6 00,600,0,0); //- нажать
Sleep(2000);
mouse_event(MOUSEEVENTF_RIGHTUP,600 ,600,0,0); //- отпустить
Админ: Пользуемся тегами при оформлении кода!

В другие приложения, текстовики и тд и тп - послать команды могу... А в игру не могу - ноль внимания, фунт презрения. В чем может быть проблема? "Задача В игре под Д3Д зажать правую кнопку мышки. "
Прошу пришлите рабочий вариант, а то у же который день мучаюсь - проблему так и не решил.
Большое ПАСИБА! ) П.с. гуглил, гуглил... гуглил... Уже мозг сломал.

Последний раз редактировалось Admin, 04.06.2017 в 14:17.
Ответить с цитированием
  #2  
Старый 03.06.2017, 21:06
ratttx6 ratttx6 вне форума
Прохожий
 
Регистрация: 03.06.2017
Сообщения: 3
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

До меня доперло!!! В чем проблема! steam сам перехватывает эмуляцию нажатий клавиш и Блокирует ее! И как это обойти??
Ответить с цитированием
  #3  
Старый 05.06.2017, 22:23
ApxaHGe1 ApxaHGe1 вне форума
Активный
 
Регистрация: 08.04.2008
Адрес: Нижний новгород
Сообщения: 311
Репутация: 38
По умолчанию

писать на уровне драйвера )
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:38.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter