Delphi里如何模拟组合按键发送?

5 | 匿名 |浏览365次
检举|收藏|2016/04/02 14:00

例如模拟复制和粘贴的按键,要怎么实现呢?

全部回答(1)
  • procedure ExcuteKeyevent(bVk: Byte; Key: Char);
    begin
      keybd_event(bVk, MapVirtualKey(bVk, 0), 0, 0);
      keybd_event(Ord(Key), MapVirtualKey(Ord(Key), 0), 0, 0);
      keybd_event(Ord(Key), MapVirtualKey(Ord(Key), 0), KEYEVENTF_KEYUP, 0);
      keybd_event(bVk, MapVirtualKey(bVk, 0), KEYEVENTF_KEYUP, 0);
    end;

    使用方法:

    ExcuteKeyevent(VK_CONTROL, 'C');

    ExcuteKeyevent(VK_CONTROL, 'V');

    回答于 2016/04/19 23:03
0人关注该问题



 加载中...