2024年11月14日 星期四

Delphi 12实现模拟键盘输入

红鱼儿 | 博客园_红鱼儿 |08:04:00

首先要引用Winapi.Windows单元，然后实现函数： procedure SimulateKeyPress(Key: Word); begin keybd_event(Key, MapVirtualKey(Key, 0), 0, 0); // 按下键 keybd_event(Key, MapV