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的返回键,来调试程序了。
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步