寻找Delphi高手，向当前窗口发送“粘贴”

Question

我想用Delphi做一个自定义快捷键粘贴的工具。
比如：我设置alt+1为快捷键，值为“hello Delphi”，然后我在任何窗口输入文字时按alt+1，在我正在输入文字窗体的光标处就会出现“hello Delphi”。
请高手指点，我该使用什么语句呢？
补充：快捷键我是用hotkey控件实现的，注册在GlobalAddAtom里，是系统全局快捷键
用sendMessage(句柄,wm_setText,0,integer(pchar（你要发送的字符串变量）))；
如何获取当前窗口的句柄？
当快捷键有“alt”的时候，用“keyboardEvent（ctrl+v）；”就变成了alt+ctrl+v，无法实现粘贴功能。

GetActiveWindow 得到当前被激活的窗口句柄
我用SendMessage(GetActiveWindow,WM_PASTE,0,0);为什么没起作用呢？
部分代码：
if (Msg.LparamLo = Shift[1]) AND (Msg.LParamHi = Key[1]) then
Clipboard.AsText:=edit1.Text;
SendMessage(GetActiveWindow,WM_PASTE,0,0);//不灵
{
keybd_event(VK_CONTROL,0,0,0);//跟alt叠加了
keybd_event($56,0,0,0);
keybd_event($56,0,2,0);
keybd_event(VK_CONTROL,0,2,0);
}

任意程序中都要能用

Answer 1

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; //清除你的快捷键

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

Answer 2

这个简单。
首先你需要用的2个东西一个 是delphi的类。TClipboard 剪贴板类。首先你引用uses clipbrd;然后就能用到一个全局变量clipboard了。
然后 在快捷键alt+1的时候 判断窗体句柄？怎么判断？windowFromPoint吧，是本窗体就clipboard.astext:='hello delphi';不是就keyboardEvent（ctrl+v）；就可以了 这个是用的剪贴板。
当然牛X一点 就用sendMessage来实现，消息无处不在。sendMessage(句柄,wm_setText,0,integer(pchar（你要发送的字符串变量）))；
打完收工。

很少delphi问题能有50分的。不错

找句柄 是吧
findwindow就可以了。

Answer 3

当前窗口的句柄 self.handle