uses Clipbrd;
把数据复制到粘贴板:
clipboard.AsText:='11111111';
把复制的数据写入变量:
str:=clipboard.AsText;
把数据模拟粘贴:
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0); //ctrl+v 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);
模拟ctrl+v粘贴!
标签:delphi
发表评论