Имитация ввода клавиатуры в Delphi с использованием WinAPI

Question

Мне нужно программно ввести один символ в ячейку сетки Delphi (в другом приложении).

Для того, чтобы сделать это вручную, необходимы следующие шаги:

1. Нажмите кнопку F3.
2. Нажмите клавишу со стрелкой вправо 3 раза.
3. Нажмите кнопку пробела.
4. Тип буквы «E» на клавиатуре.

5. Нажмите клавишу со стрелкой вправо.

   // Press F3 button   
   keybd_event(VK_F3, 0, 0, 0);   
   // Press right arrow key 3 times 
   keybd_event(VK_RIGHT, 0, 0, 0); 
   keybd_event(VK_RIGHT, 0, 0, 0); 
   keybd_event(VK_RIGHT, 0, 0, 0); 
   
   // Press the space button 
   keybd_event(VK_SPACE, 0, 0, 0); 
   
   // Type letter E 
   keybd_event(Ord('E'), 0, 0, 0); 
   
   // Move to the right 
   keybd_event(VK_RIGHT, 0, 0, 0); 
   

Но это не работает. Когда я запускаю этот код, ничего не происходит.

Как мне изменить этот код, чтобы он действительно имитировал ввод пользователя?

Answer 1

Каждое нажатие клавиши - это клавиша вниз, а затем клавиша вверх. Поэтому вам нужно два вызова keybd_event за нажатие клавиши. Например, нажать F3:

keybd_event(VK_F3, 0, KEYEVENTF_KEYDOWN, 0); 
keybd_event(VK_F3, 0, KEYEVENTF_KEYUP, 0); 

Обратите внимание, что KEYEVENTF_KEYDOWN не фактически определяется заголовочных файлов Windows, или перевода Delphi. Определите его как 0. Это делает код яснее, выписанным явно, хотя.

Естественно, вы не поместили бы свой код парными вызовами в keybd_event. Но вместо этого вы завершаете парные вызовы в вспомогательную функцию.

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