//调用搜索引擎
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的