请教发送与接收消息的一个问题

[okdelphi]

我的Application.Title:='MyApp'；主窗体为Form1且Form1.Caption:='MainForm'

现在我在Form2中建立一个按钮，向程序发送消息，请问我得怎么做才对呢？
方法一、
H := FindWindow(nil, PChar('MyApp'));
SendMessage(H,1111,0,0);
方法二、
H := FindWindow(nil, PChar('MainForm'));
SendMessage(H,1111,0,0);

我使用以上两种办法都没能在Application.OnMessage中捕获，请问得怎么办才能在Form2发送一个消息
让Application响应呢？


望请得到您的指教，万分感谢！！！

[duncan_nick]

你这样试试，
procedure TForm2.Button1Click(Sender: TObject);
begin
postmessage(form1.Handle,wm_close,0,0);
end;

[okdelphi]

应该不行，因为form1.handle与FindWindow(nil, PChar('MainForm')); 是等价的啊。

还有什么办法吗？