delphi模拟按键实现粘贴快捷键ctrl V

delphi模拟按键实现粘贴快捷键ctrl+V

作者:webfly 日期:2011-10-19

字体大小: 小 中 大

delphi模拟按键实现粘贴快捷键ctrl+V

keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);
keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), 0, 0);
keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0);
 

以上代码delphi7亲测可用