SendMessage从Delphi应用程序到Java应用程序RICHEDIT50W控件

Question

有谁知道如何将文本从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.也许应用程序阻止消息甚至处理自己的消息。有没有办法找到应用程序接受的消息？

Answer 1

我刚刚发现应用程序阻止了一些消息，然后我遇到了这个帖子：

Sending an application keystrokes with “SendMessage”

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