Delphi向当前窗口模拟键盘CTRL+V发送"粘贴"

本文整理自网络，侵删。

 
GetForegroundWindow();可以得到当前窗口句柄。
不过不需要用GetForegroundWindow()。
直接在 uses 中加入
clipbrd
在热键处理函数中加入
clipboard.Clear;
clipboard.AsText:=edit1.Text;
keybd_event($31,0,2,0); //清除你的快捷键
keybd_event(VK_MENU,0,2,0); //清除你的快捷键
Application.ProcessMessages; //清除你的快捷键
keybd_event(VK_CONTROL,0,0,0);
keybd_event($56,0,0,0);
keybd_event($56,0,2,0);
keybd_event(VK_CONTROL,0,2,0);
 

相关阅读 >>

Delphi2010 关于record类型rtti反射的用途和方法

Delphi 声明指令 调用左右

Delphi xe6开发的android应用实现在线升级完成后自动安装apk代码(加说明)

Delphi 官方 processmessages 用法代码例子

Delphi winapi: getclassname - 获取指定窗口的类名

Delphi 锁住listview防止刷新

Delphi 任务栏显示进度条 createcomobject(clsid_taskbarlist) as itaskbarlist4

Delphi(更改图标)

Delphi tparallel.for 老外得示例代码

Delphi 进程防杀之hook api法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi向当前窗口模拟键盘CTRL+V发送"粘贴"