如何在可执行程序里调用web上的搜索引擎并把结果返回？？

Question

在exe里有一个文本框，然后点击“搜索”按钮，自动根据文本框里的内容调用google等此类的搜索引擎，然后把搜索结果的那个页显示出来，该如何做呢？？

Answer 1

procedure TForm2.TeButton3Click(Sender: TObject);
var url,text:string;
begin
text:=teedit1.Text;
url:='http://www.google.com/search?q='+text;
with Tform4.Create(nil) do
 begin
  caption:=self.TeButton3.Caption;
  webbrowser1.Navigate(url);
  show;
 end;
end;procedure TForm2.TeButton4Click(Sender: TObject);
var url:string;
begin
url:='http://search.sina.com.cn/cgi-bin/search/search.cgi?_searchkey='+self.TeEdit1.Text+'&_andor=and&_ss=sina&_search=+%CB%D1+%CB%F7+';
with Tform4.Create(nil) do
 begin
  caption:=self.TeButton4.Caption;
  webbrowser1.Navigate(url);
  show;
 end;
end;procedure TForm2.TeButton5Click(Sender: TObject);
var url:string;
begin
   url:='http://page.search.sohu.com/cgi-bin/pagesearch.cgi?tn=sohu&si=gi&word='+self.TeEdit1.Text+'&ct=0&cl=2&lm=0';
   with Tform4.Create(nil) do
    begin
     caption:=self.TeButton5.Caption;
     webbrowser1.Navigate(url);
     show;
    end;
end;procedure TForm2.TeButton6Click(Sender: TObject);
var url:string;
    text:string;
begin
  text:=self.TeEdit1.Text;
  url:='http://seek.3721.com/right.htm?argse=new3721&name='+self.TeEdit1.Text;
  with tform4.Create(nil) do
   begin
    caption:=self.TeButton6.Caption;
    webbrowser1.Navigate(url);
    show;
   end;
end;