程序后台工作的问题

Question

我想写一个自动安装一些常用装机软件的程序，因为在前台自动安装的话，前台的键盘和鼠标就不能操作了，不然自动安装就进行不下去了。所以我打算让自动安装在后台完成。
我已经写了如下一段代码：
var
  Form1: TForm1;
  sin:TStartupInfo;
  pin:TProcessInformation;
  s:string;
  h2:thandle;
  FWindowHandle:THandle;
implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
sin.cb:=sizeof(sin);
sin.wShowWindow:=SW_SHOW;
sin.dwFlags:=STARTF_USESHOWWINDOW;
s:='a';
sin.lpDesktop:=pchar(s);
h2:=CreateDesktop(pchar(s),nil,nil,DF_ALLOWOTHERACCOUNTHOOK,GENERIC_ALL,nil);
CreateProcess('d:\1.exe',nil,nil,nil,False,0,nil,nil,sin,pin);
代码写到这里，安装程序已经在后台成功运行了，但是还要获取一个窗口的标题，然后向这个窗口发送点击某一按钮的命令。
我一开始用FindWindow去找窗口，然后sendmessage去实现点击按钮的命令。但是失败了。在网上找了一片文章，http://blog.csdn.net/babyvspp/archive/2008/02/26/2122291.aspx，但是看不太懂，有没有高人能不能按照文章上的方法简单的帮我往下写段代码啊？在线程方面我是一窍不通。谢谢各位了。