这样使用为什么会出错

[ioriliao1]

procedure TForm1.Button1Click(Sender: TObject);begin
        Edit1.Text:=IntToStr(Form1.Handle);
        SendMessage(Form1.Handle,1024+100,0,0); //执行到这句会出错，错误信息为:Project project1.exeraised exception class exteranl 'sigsegv'
end;       

请问各位前辈这是什么原因，谢谢！

[ioriliao1]

谢谢各位。问题解决了。

[Harryfin]

你的消息响应函数里面有错

[npkaida]

贴出来的代码没有错，
把 sigsegv 代码贴出来看看。

[ioriliao1]

[Quote=引用 1 楼 harryfin 的回复:]
你的消息响应函数里面有错
[/Quote]
谢谢，是响应函数有问题。这一句
Edit1.Text:=string(pShare^.WindowText);
pShare的结构是这样定义的pShare:PMemoryShare
type
TMemoryShare=record
{Sender:DWORD;
MessageID:DWORD;}
Data:array[1..2] of DWORD;
MouseInfoStruct:TMOUSEHOOKSTRUCT;
WindowText:array[0..1024] of char;
end;
PMemoryShare =^TMemoryShare;
请问什么地方错了呢？谢谢！

[iqyely]

来关注下。