Question

How can I insert the text from an Edit control into any window where the mouse pointer is, without using the clipboard and/or window handle.

I am using Delphi 7.

Answer 1

1. Call GetCursorPos to find out where the cursor is.
2. Call WindowFromPoint to find the window under the cursor.
3. Send an EM_REPLACESEL message to replace the selection in that window. If nothing is selected then the text will be inserted at the caret.

Note: Be prepared for this to fail more commonly than it succeeds. Many applications don’t used windowed edit controls. For a more robust solution you should look into UI Automation.

---

You asked for some code. Here’s what it would look like:

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

If the window underneath the cursor is not an edit window, this will, probably, be benign.