用消息传递Tstrings型数据

Question

TStrings是一个Class，所以它的大小恰好合LongInt相等。
可以这样：
SendMessage(Formb.Handle, WM_YOURMESSAGE, 0, LongInt(YourTstrings));接收端这样写：
var
  a : TStrings;  a := TStrings(Msg.LParam);
  a.Add('Hello, world');

Answer 1

方法两种1.可以把要传输的东西先复制到剪贴版上。然后发消息通知另一个程序，粘贴就可以了，不过这种情况容易发生半路抢劫的问题，你可以利用SetTreadPriority来设置程序优先级来控制
2。利用WM_COPYDATA消息来传递数据
 uParam：目的程序窗口的句柄
 lParam:COPYDATASTRUCT的数据结构