SendMessage函數VB中發送字符串解決之道

沒日沒夜的找了兩天，翻了無數的頁面，終於找到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.csdn.net/Expert/topic/4249/4249197.xml?temp=.6648065 中 Hassle 的回帖。謝謝他及樓主！