ShellAPI 调用搜索引擎

//调用搜索引擎 
uses ShellAPI;

//google web search
procedure TForm1.Button1Click(Sender: TObject);
var
  SearchStr:PWideChar;
  SearchEngineStr:string;
begin
   SearchEngineStr:='http://search.yahoo.com/search?p=';
   SearchStr:=PWideChar(SearchEngineStr + Edit1.Text);
   ShellExecute(Handle,'open',SearchStr,0,0,SW_SHOWNORMAL)
end;

//其他地址
http://www.google.com/search?q=TARGETSTRING
http://search.yahoo.com/search?p=TARGETSTRING
http://search.msn.com/results.aspx?q=TARGETSTRING
http://a9.com/TARGETSTRING
http://search.ebay.com/search/search.dll?satitle=TARGETSTRING

//问题
如何获取任何一款搜索引擎的搜索地址
如 baidu的

通过 Wiz 发布