N
netbug
Unregistered / Unconfirmed
GUEST, unregistred user!
我这里有两个程序,一个是发送消息的,请看:<br>procedure TForm1.Button1Click(Sender: TObject);<br>var i,j:integer;p1:^integer;<br>begin<br> i:=findwindow(nil,'form2');<br> j:=356;<br> getmem(p1,sizeof(j));<br> p1:=@j;<br> sendmessage(i,wm_user,integer(p1),0);<br>end;<br>与接受消息的,请看:<br>procedure mymessage1(var i:integer);message wm_user;<br>....<br>procedure TForm2.mymessage1(var i:integer);<br>var p2:^integer;<br>begin<br>p2:=ptr(i);<br>edit1.text:=inttostr(wm_user);<br>edit2.Text:=inttostr(p2^);<br>end;<br>我是想把第一个程序中的整数356也随着消息wm_user发送出去,在第二个程序<br>的edit2中得到,可是我在运行时,系统老是提示:Access Violation at address....,<br>(编译有通过),我想请问一下:我该如何做,才能把第一个程序中的整数356也<br>随着消息发送出去?谢谢.<br>