Question

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);

然而我运行下来，这行代码不是一直都好用
有时候能用
有时候就只能显示字母V
这是怎么回事

Answer 1

Memo1.PasteFromClipboard; //粘贴到Memo1控件中

//以下实现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)

Answer 2

keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);

Answer 3

不知道你是放在什麼事件中，我的就是放在浮动菜单的粘贴click中

Answer 4

同时ctrl+v