红鱼儿

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的返回键,来调试程序了。

 

posted on   红鱼儿  阅读(244)  评论(0编辑  收藏  举报

努力加载评论中...
点击右上角即可分享
微信分享提示