Delphi 12实现模拟键盘输入

首先要引用Winapi.Windows单元，然后实现函数：

procedure SimulateKeyPress(Key: Word);
begin
  keybd_event(Key, MapVirtualKey(Key, 0), 0, 0); // 按下键
  keybd_event(Key, MapVirtualKey(Key, 0), KEYEVENTF_KEYUP, 0); // 释放键
end;

调用：

  SimulateKeyPress(vkHardwareBack);

模拟手机上的物理返回键！

所有支持的键值定义在System.UITypes单元，第200行开始，这里不抄了。

注意，这里只支持单按键。

好了，用这个方法，就可在windows上模拟android的返回键，来调试程序了。