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 发布