从Delphi应用程序向Java应用程序RICHEDIT50W控件发送消息

有人知道如何从Delphi应用程序向java应用程序RICHEDIT50W控件发送文本吗？我尝试过这个，但不起作用：

oPinWindowHandle := FindWindow(nil, 'My Caption');
oRichEditControl := FindWindowEx(oPinWindowHandle, 0, 'RICHEDIT50W', nil);
SendMessage(oRichEditControl, WM_SETTEXT, 0, LongInt(PChar(msg)));

oRichEditControl和oPinWindowHandle都具有有效的句柄

编辑

---

SendMessage工作正常。它返回1。也许应用程序正在阻止消息，你甚至可以处理自己的消息。有没有办法找到应用程序接受哪些消息？

我刚刚发现应用程序正在阻止一些消息，然后我遇到了以下问题：

---

这帮助我绕过了这个问题。

首先，使用Spy++仔细检查hwnd是否正确对SendMessage的调用是否返回错误？当UIPI阻止消息时，使用GetLastError检索的最后一个错误设置为5（拒绝访问）。@Rafael这是

SendMessage

函数返回的值（如果正常工作，则必须为1或true）？SendMessage返回的值是什么？@smasher它工作正常。系统封送文本。