嘿，我明白你的困扰！普通记事本的编辑控件类名是Edit，但Notepad++用的是Scintilla编辑器组件，它的窗口类名是Scintilla——这就是你原来的代码失效的核心原因。下面是调整后的完整实现：

核心思路 #

1. 定位Notepad++的主窗口（类名是Notepad++，用类名定位比标题更可靠）
2. 找到主窗口下的Scintilla编辑控件
3. 通过WinAPI发送文本（两种方式可选：剪贴板粘贴/直接发送文本消息）

完整代码示例 #

Procedure TForm1.Button1Click(Sender: TObject);
var
  nppMainHandle, nppEditHandle : HWND;
Begin
  // 1. 查找Notepad++主窗口
  nppMainHandle := FindWindow('Notepad++', nil);
  
  if nppMainHandle = 0 then
  begin
    ShowMessage('找不到Notepad++窗口！');
    Exit;
  end;

  // 2. 查找主窗口内的Scintilla编辑控件
  nppEditHandle := FindWindowEx(nppMainHandle, 0, 'Scintilla', nil);
  
  if nppEditHandle = 0 then
  begin
    ShowMessage('找不到Notepad++的编辑区域！');
    Exit;
  end;

  // 方法一：用剪贴板粘贴（和你原来的逻辑一致）
  Clipboard.AsText := '这是发给Notepad++的测试文本！';
  SendMessage(nppEditHandle, WM_PASTE, 0, 0);

  // 方法二：直接发送文本（无需剪贴板，更高效）
  // SendMessage(nppEditHandle, WM_SETTEXT, 0, LPARAM(PChar('直接发送的测试文本！')));
End;

额外说明 #

• 如果你的Notepad++打开了多个窗口，FindWindow只会返回第一个匹配的窗口。要定位特定窗口，可以结合窗口标题（比如FindWindow('Notepad++', '我的文档.txt - Notepad++')），或者用EnumWindows枚举所有窗口进行筛选。
• Scintilla控件还支持专属的高级消息（比如SCI_SETTEXT插入到光标位置），如果需要更精细的编辑操作，可以参考Scintilla的官方API文档，不过WM_SETTEXT和WM_PASTE已经能满足基础的文本发送需求。

内容的提问来源于stack exchange，提问作者Paulo Silva