delphi SendMessage处理弹出窗体

[地狱圣者]

首先两个函数的说明如下：
SendMessage该函数将指定的消息发送到一个或多个窗口。此函数为指定的窗口调用窗口程序，直到窗口程序处理完消息再返回。
而函数PostMessage不同，将一个消息寄送到一个线程的消息队列后立即返回。


请问，调用SendMessage后弹出另外一个窗体，如何再接着处理这个弹出的窗体。最好有代码示例，谢谢！
代码：
Form1单元：
procedure TForm1.btn1Click(Sender: TObject);
var
btnComp:TComponent;
begin
btnComp:=FindComponent('btn2');
if btnComp<> nil then
//SendMessage(TButton(btnComp).Handle,WM_KEYDOWN,MK_LBUTTON,0);
//SendMessage(TButton(btnComp).Handle,WM_KEYUP,MK_LBUTTON,0);

{第一步：自动点击btn2,弹出form2}
TButton(btnComp).Perform(WM_LBUTTONDOWN, 0, 0);
TButton(btnComp).Perform(WM_LBUTTONUP, 0, 0);
{第二步：在form2的文本框中输入信息，点击button}

end;

procedure TForm1.btn2Click(Sender: TObject);
begin
Form2:=TForm2.Create(self);
Form2.ShowModal;
edt1.text:=Form2.edtInfo.Text;
end

form2单元：
procedure TForm2.btn1Click(Sender: TObject);
begin
close;
end;

代码地址：
http://download.csdn.net/detail/dongjunwen/7462297

求解第二步如何做。。。。。。。。。。。。。。。谢谢！！

[tcmakebest]

楼主这是在做实验吗,干嘛跟sendmessage较劲,完全可以用别的正常一点办法来实现

[Andy-88]

获得弹出窗口的句柄再 Sendmessage 哈哈

[地狱圣者]

窗体还没弹出来， 能先获取到句柄？

[地狱圣者]

@tcmakebest 跨进程的 所以要用到sendMessage