從編輯中插入文本到鼠標指針所在的任何窗口

Question

如何在不使用剪貼板和/或窗口句柄的情況下將編輯控件中的文本插入到鼠標指針所在的任何窗口中。

我用Delphi 7

Answer 1

1. 呼叫GetCursorPos找出光標。
2. 致電WindowFromPoint查找光標下的窗口。
3. 發送EM_REPLACESEL消息以替換該窗口中的選擇。如果沒有選擇任何內容，則文本將插入插入符號中。

注：是爲此做好了準備，以更普遍比之失敗。許多應用程序不使用窗口編輯控件。對於更強大的解決方案，您應該查看UI Automation。

---

你問了一些代碼。下面是它的樣子：

var 
    Pos: TPoint; 
    Target: HWND; 
... 
if not GetCursorPos(Pos) then 
    RaiseLastOSError; 
Target := WindowFromPoint(Pos); 
if Target<>0 then 
    SendMessage(Target, EM_REPLACESEL, ord(True), LPARAM(PChar(Edit1.Text))); 

如果光標下方的窗口不是編輯窗口，這可能是良性的。