没日没夜的找了两天,翻了无数的页面,终于找到VB中用SENDMESSAGE向其他程序发送消息的方法。
将第四个参数修改成ByVal lParam As String,然后使用WM_SETTEXT调用,终于OK。VB6+XP系统下向DELPHI窗体中TEDIT发送字符串成功。中英文字符串都可以。DELPHI窗体不需要焦点。源代码如下:
lngHwnd = FindWindow("TFormMain", vbNullString) ' FindWindow(vbNullString, "数据差分") TFormMain是DELPHI的窗口类
lngHwnd = GetWindow(lngHwnd, GW_CHILD)
s = "窗体捕捉"
SendMessage lngHwnd, WM_SETTEXT, 0, s
源方法参考自
http://community.youkuaiyun.com/Expert/topic/4249/4249197.xml?temp=.6648065 中 Hassle 的回帖。谢谢他及楼主!
将第四个参数修改成ByVal lParam As String,然后使用WM_SETTEXT调用,终于OK。VB6+XP系统下向DELPHI窗体中TEDIT发送字符串成功。中英文字符串都可以。DELPHI窗体不需要焦点。源代码如下:
lngHwnd = FindWindow("TFormMain", vbNullString) ' FindWindow(vbNullString, "数据差分") TFormMain是DELPHI的窗口类
lngHwnd = GetWindow(lngHwnd, GW_CHILD)
s = "窗体捕捉"
SendMessage lngHwnd, WM_SETTEXT, 0, s
源方法参考自
