delphi - 将编辑中的文本插入鼠标指针所在的任何窗口

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

如果光标下方的窗口不是编辑窗口，这可能是良性的。