Замена клавиш в чужом приложении при нажатии

[Ecosasha]

Для чего это надо, для программ, игр, где не предусмотрена настройка клавиш, и файла настройки нормального.
Приведу пример, например, есть игра "Glove on Fight".
В ней клавиши для клавиатуры не настраиваются, а по умолчанию:
Стрелки - для движения персонажа
Z,X,C - удары.

Требуется переделать
W,A,S,D - для движения персонажа
J,K,L - удары.

Первое, что пришло в голову, это сделать по быстрому приложение на Дельфи, которое будет "активным всегда сверху и иметь в уголке просто маленький размер".
Нажимая на нем нужные клавишы WASD, мы просто отсылаем сообщение с другими клавишами другому приложению, зная его хэндл.

Проверяем:

// SetForegroundWindow(FindWindow(nil,'Glove on Fight'));
 hw:=FindWindow(nil,'Glove on Fight');
 sendmessage(hw,WM_IME_KEYUP,90, 0);//90='z'

Возникло предположение, что может просто не то окно, есть дочернее окно. Посмотрел по WinSpy++, Microsoft Spy ++, пробовал даже на другие хэндлы у него. Но в целом, по свойствам видно, что отправляется нажатие на главное окно.

В чем ошибка, почему нормально срабатывает эмуляции нажатия клавиши для "Блокнота", Notepad++ и для других некотрых программ, а здесь не работает.

Что подскажите?

P.S. Или может уже есть готовые программы, в которых выбираешь нужный процесс из списка, и делаешь список нужных клавиш. Искал, но не нашел.

[Человек_Борща]

читай про хуки.

[Ecosasha]

Сообщение от Человек_Борща

читай про хуки.

Про хуки смотрел,
и такая конструкция, подсмотренная на одном из сайтов, вроде бы должна сработать, но опять же для "notepad" работает, а для данной проги нет.
При нажатии на F11 - происходит нажатие "z".

var
 hKeyHook: HHOOK;
//запускаем сначала хук
procedure TFMain.Button1Click(Sender: TObject);
begin
  hKeyHook:=SetWindowsHookEx(13,@KeyEvent,GetModuleHandle(nil),0);   
  //13 =WH_KEYBOARD_LL
  //2=WH_KEYBOARD
end;

//останавливаем хук
procedure TFMain.Button4Click(Sender: TObject);
begin
   UnhookWindowsHookEx(hKeyHook);
end;

function KeyEvent(nCode: Integer; wParam, lParam: Longint): LongInt; stdcall;
begin
  Result:=CallNextHookEx(hKeyHook,nCode,wParam,lParam);
  if ((nCode = HC_ACTION) and (wParam = WM_KEYDOWN)) and (PKBDLLHOOKSTRUCT(lParam).vkCode=VK_F11) then 
begin
      //Зажимаем клавишу  z
      keybd_event(ORD('Z'), MapVirtualkey(ord('Z'), 0 ), 0, 0);
      // Отпускаем клавишу z
      keybd_event(ord('Z'), MapVirtualkey(ord('Z'), 0 ), KEYEVENTF_KEYUP, 0);

//     FMain.clickkey(90);

  end;

procedure TFMain.clickkey(key:word);
begin
 keybd_event(key,0,0,0);
 keybd_event(key,0,KEYEVENTF_KEYUP,0);
end;

Вроде бы простой пример, менял значения для SetWindowsHookEx, на 2 и 13 и другие даже, но нет реакции.
Может быть ошибка кроется в передаче клавиши, то есть она воспринимается как символ или как-то конвертируется внутри данной "японской проги"?
Прилагаю скрины от MS Spy++ Messages при нажатии клавиши "z" в данной проге.

Или что-то не учитываю?
В целом, есть предположение? что может реакции нет из-за того, что операционная Windows 7 x64?

[Человек_Борща]

Глобальный хук системы нужен. Там перехватываешь нажатие, смотришь куда адресовано нажатие, если в нужную программу, то делаешь замену.

[Aliens_wolfs]

Для глобального Хука могут быть проблемы со всеми клавишами, например остальные клавиши которые не эмулируются уже не будут работать их нужно будет прорписывать для эмуляции.
Вот вариант для захвата определенных клавиш

  private
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

//Если известен хендл окна то работай по сообщениям нажатия в самом окне
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;

procedure TForm1.FormCreate(Sender: TObject);
begin
//Захватываем клавиши
RegisterHotKey(handle, ord('Z'), 0, ord('Z'));
RegisterHotKey(handle, ord('X'), 0, ord('X'));
RegisterHotKey(handle, ord('C'), 0, ord('C'));

RegisterHotKey(handle, 37, 0, 37); //стрелка в лево
RegisterHotKey(handle, 39, 0, 39); //стрелка в право
RegisterHotKey(handle, 39, 0, 38); //стрелка в верх
RegisterHotKey(handle, 39, 0, 40); //стрелка в низ
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
//Освобождаем клавиши
UnRegisterHotKey(handle, ord('Z'));
UnRegisterHotKey(handle, ord('X'));
UnRegisterHotKey(handle, ord('C'));

UnRegisterHotKey(handle, 37);
UnRegisterHotKey(handle, 39);
UnRegisterHotKey(handle, 38);
UnRegisterHotKey(handle, 40);
end;

//Ловим нажатие клавиш и эмулируем нажатие других клавиш.
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
Case Msg.HotKey  of
ord('Z'): SetKey(Ord(J)); //или если хендел окна игры известен то SetKeyMessag(Хендел игны, Ord(J));
ord('X'): SetKey(Ord(K));
ord('C'): SetKey(Ord(L));

37: SetKey(Ord(A));
39: SetKey(Ord(D));
38: SetKey(Ord(W));
38: SetKey(Ord(S));
end;
end;