to huizhang:16 to 32 is error.<br>such as:<br>16:<br>var str:array[0..10] of char;<br> pstrchar;<br>pstr:=@str;<br>strcopy(pstr,'test');<br>sendmessage(Findwindow(nil,'32'),wm_user+10,1,Longint(pstr));<br>32:<br>on receive message:<br>var z:string;<br>z:=strpas(Pchar(message.Lparam));//it's error,accessvoliat..<br><br>how to do?<br>
这样传地址当然不行!win95里每一个程序有自己的代码段!用地址无效!<br>我的意思是<br>for i=1 to len(pstr) do<br>sendmessage(Findwindow(nil,'32'),wm_user+10,1,Longint(pstr));<br>传到/0是32知道结素!