关于搜索引擎……(200分)

我想在我的程序里利用yahoo,souhu搜索引擎，如何做？
我知道直接发URL，不过希望多搜集点格式而已……

CJ:我在清理旧贴的过程中看到有人找你

http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=272427
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=210154

1、今年的电脑报有一篇关于这个东西的详细报道，
您找找看？
2、找几个搜索方面的软件，使用一下，感觉一下。
3、找几个号称搜索大全的站点，看看它是怎么实现的？
4。找一些注册号大全的网站看看，它是怎么实现的？
http://astalavista.box.sk/cgi-bin/astalavista/robot
（有了网络，生活就是不一样，样样离不开它，呵呵：） ）

谢谢 wjiachun，麻烦你也帮俺整理整理？呵呵……
我连这里简直是……

procedure TSearchFrm.SearchWebClick(Sender: TObject);
begin
_keyword_:=Edit1.text;
server:= ServersFiles.Text;
if Edit1.text='' then
begin
showmessage('You must insert a search string') ;
exit ;
end ;
case ServersFiles.ItemIndex of
-1 : begin
server :='' ;
showmessage('Please Choose an Engine')
end;
0 : begin
searchstring:='http://filez.com/cgi/filez.cgi?query='+_keyword_+'&doit=Search&unique=1&filetype=&domain=&archive=amug.org&company=apple.com&hits=100';
SendQuery(searchstring);
end;
1: begin
searchstring:= 'http://ftpsearch.ntnu.no/ftpsearch?query='+_keyword_+'&doit=Search&type=Case+insensitive+substring+search&hits=100&matches=&hitsprmatch=&limdom=&limpath=&f1=Count&f2=Type&f3=Name&f4=Size&f5=Host&f6=Path&header=none&sort=none&trlen=20';
SendQuery(searchstring);
end ;
2 : begin
searchstring:= 'http://www.windows95.com/cgi-bin/search?keywords='+_keyword_+'&selection=Search+the+32-bit+Shareware+Library';
SendQuery(searchstring);
end ;
3: begin
searchstring:= 'http://search.shareware.com/code/engine/Find?logop=and&cfrom=quick&orfile=True&hits=25&search='+_keyword_+'&category=MS-Windows95';
SendQuery(searchstring);
end ;
4: begin
searchstring:= 'http://micros.hensa.ac.uk/cgi-bin/searchdb?keywords='+_keyword_+'&section=m_ibmpc/win95';
SendQuery(searchstring);
end ;
5: begin
searchstring:= 'http://search.tucows.com/cgi-bin/webglimpse/webhome/server/htdocs/search?maxlines=20&maxfiles=50&whole=off&errors=0&case=off&query='+_keyword_;
SendQuery(searchstring);
end ;
6: begin
searchstring:= 'http://ms3.dogpile.com/search?q='+_keyword_+'&fs=ftp&ss=stop&to=twenty';
SendQuery(searchstring);
end;
end;
end;

还有很多连接，不一一列举
免得灌水之嫌

列出来

灌一下
case ServersPeople.ItemIndex of
-1 : begin
server :='' ;
showmessage('Please Choose an Engine')
end;
0 : begin
searchstring:='http://query1.whowhere.com/jwz/name.wsrch?name='+_keyword_+'&org=&match=inexact';
SendQuery(searchstring);
end;
1 : begin
searchstring:='http://query1.whowhere.com/jwz/org.wsrch?org='+_keyword_+'&match=inexact';
SendQuery(searchstring);
end;
2 : begin
searchstring:='http://ibc.wustl.edu/htbin/domain_search?Field='+_keyword_;
SendQuery(searchstring);
end;
3 : begin
searchstring:='http://www.bigfoot.com/SEARCH?FormName=LOOKUP&SearchName='+_keyword_;
SendQuery(searchstring);
end;

4 : begin
searchstring:='http://www.switchboard.com/bin/cgiqa.dll?SR=&L='+_keyword_;
SendQuery(searchstring);
end ;

5: begin
searchstring:='http://www.switchboard.com/bin/cgiqa.dll?SR=&BUS=&L='+_keyword_;
SendQuery(searchstring);
end;

6 : begin
searchstring:='http://rs.internic.net/cgi-bin/whois?'+_keyword_;
SendQuery(searchstring);
end;
end;


case ServersWeb.ItemIndex of
-1 : begin
server :='' ;
showmessage('Please Choose an Engine');
exit;
end;
0 : begin
searchstring:='http://www.excite.com/search.gw?search='+_keyword_+'&collection=web&display=html2%2Clb&x=19&y=6';
SendQuery(searchstring);
end;

1 : begin
searchstring :='http://webcrawler.com/cgi-bin/WebQuery?searchText='+_keyword_;
SendQuery(searchstring);
end;
2 : begin
searchstring :='http://www.hotbot.com/search.html?_v=1.0&OP=0&SM=MC&MT='+_keyword_+'&SW=&MOD=0&date=WH&DR=newer&DM=1&DD=1&DY=96&DV=10&DU=years&smiley=&RD=AN&RG=NA&domain=&DC=10&FJA=off&FJS=off&FRA=off&FAC=off&FSW=off&FVR=off&FSU=off&FSM=off&OP=0&MOD=0&search.x=59&search.y=18';
SendQuery(searchstring);
end;
3 : begin
searchstring :='http://query3.lycos.cs.cmu.edu/cgi-bin/pursuit?'+_keyword_;
SendQuery(searchstring);
end;
4 : begin
searchstring := 'http://altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=.&q='+_keyword_;
SendQuery(searchstring);
end;
5 : begin
searchstring := 'http://galaxy.einet.net/www/www.html?'+_keyword_;
SendQuery(searchstring);
end;
6 : begin
searchstring := 'http://www2.infoseek.com/Titles?qt='+_keyword_;
SendQuery(searchstring);
end;
7 : begin
searchstring := 'http://ultra.infoseek.com/Titles?qt='+_keyword_+'&nh=20&sv=US&lk=1';
SendQuery(searchstring);
end;
8 : begin
searchstring := 'http://www.mckinley.com/search.gw?search='+_keyword_+' &c=web&look=magellan&sorig=rpage';
SendQuery(searchstring);
end;
9 : begin
searchstring :='http://www.metacrawler.com/cgi-bin/nph-metaquery?general=$'+_keyword_+'&method=0&type=Fast+Search&sort=relevance&ltarget=window&useFrames=1&iface=int1';
SendQuery(searchstring);
end;
10 : begin
searchstring := 'http://ms1.dogpile.com/search?q='+_keyword_+'&fs=web&ss=stop&to=twenty';
SendQuery(searchstring);
end;
11 : begin
searchstring := 'http://google.stanford.edu/search?num=50&query='+_keyword_;
SendQuery(searchstring);
end;
12 : begin
searchstring := 'http://search.thunderstone.com/texis/websearch/?q='+_keyword_+'&c=&max=20&dsbu=1';
SendQuery(searchstring);
end;
end;



case ServersOther.ItemIndex of
-1 : begin
server :='' ;
showmessage('Please Choose an Engine');
exit;
end;
0 : begin
searchstring :='http://xp8.dejanews.com/dnquery.xp?query='+_keyword_+'&defaultOp=AND&svcclass=dncurrent&maxhits=50&format=verbose&threaded=0&showsort=newsgroup&agesign=1&ageweight=1';
SendQuery(searchstring);
end;
1 : begin
searchstring :='http://www.findlaw.com/scripts/lc.pl?entry='+_keyword_+' &sites=wlegal';
SendQuery(searchstring);
end;
2 : begin
searchstring :='http://catalog.com/cgibin/htgrep/file=/vivian/lists.html,/vivian/newlists.html&grab=yes?'+_keyword_;
SendQuery(searchstring);
end;
3 : begin
searchstring :='http://www.nova.edu/Inter-Links/cgi-bin/news-lists.pl?'+_keyword_;
SendQuery(searchstring);
end;
4 : begin
searchstring :='http://www.rand.org/cgi-bin/Genea/rsl?'+_keyword_;
SendQuery(searchstring);
end;
5 : begin
searchstring :='http://www.lycos.com/cgi-bin/pursuit?cat=graphics&query='+_keyword_+'&ab=the_catalog&x=20&y=10';
SendQuery(searchstring);
end;
6 : begin
searchstring :='http://www.lycos.com/cgi-bin/pursuit?cat=sounds&query='+_keyword_+'&ab=the_catalog&x=36&y=9';
SendQuery(searchstring);
end;
7 : begin
searchstring :='http://www.gamesdomain.co.uk/cgi-bin/wwwwais?keywords='+_keyword_+'&Submit.x=21&Submit.y=18';
SendQuery(searchstring);
end;
8 : begin
searchstring :='http://infoplease.com/cgi-bin/isearch?DwebQuery='+_keyword_+'&in=all&type=quick&go=Go%21';
SendQuery(searchstring);
end;
9 : begin
searchstring :='http://quoteserver.dogpile.com/texis/stock/dogpile?cmd=tick&query='+_keyword_;
SendQuery(searchstring);
end;
end;



case ServersDictionary.ItemIndex of
-1 : begin
server :='' ;
showmessage('Please Choose an Engine');
exit;
end;
0 : begin
searchstring :='http://c.gp.cs.cmu.edu:5103/prog/webster?'+_keyword_;
SendQuery(searchstring);
end;
1 : begin
searchstring :='http://work.ucsd.edu:5141/cgi-bin/thesaurus?'+_keyword_;
SendQuery(searchstring);
end;
2 : begin
searchstring :='http://wombat.doc.ic.ac.uk/?'+_keyword_;
SendQuery(searchstring);
end;
3 : begin
searchstring :='gopher://info.mcc.ac.uk:70/77/miscellany/acronyms/.index/index?'+_keyword_;
SendQuery(searchstring);
end;
4 : begin
searchstring :='http://www.cnam.fr/Jargon/?'+_keyword_;
SendQuery(searchstring);
end;
5 : begin
searchstring :='http://www.leo.org/cgi-bin/dict-search?search='+_keyword_+'&hits=20';
SendQuery(searchstring);
end;
6 : begin
searchstring :='http://humanities.uchicago.edu/cgi-bin/FR-ENG.sh?word='+_keyword_;
SendQuery(searchstring);
end;
7 : begin
searchstring :='http://humanities.uchicago.edu/cgi-bin/ENG-FR.sh?word='+_keyword_;
SendQuery(searchstring);
end;
end;



case ServersNews.ItemIndex of
-1 : begin
server :='' ;
showmessage('Please Choose an Engine');
exit;
end;
0 : begin
searchstring :='http://www.cs.indiana.edu:800/cstr/search?'+_keyword_;
SendQuery(searchstring);
end;
1 : begin
searchstring :='http://www.lpac.ac.uk/bin/bibtexSearch?.@@'+_keyword_;
SendQuery(searchstring);
end;
2 : begin
searchstring :='http://www.bsdi.com/bsdi-man/?'+_keyword_;
SendQuery(searchstring);
end;
3 : begin
searchstring :='gopher://gopher.lib.ncsu.edu:3001/7?'+_keyword_;
SendQuery(searchstring);
end;
4 : begin
searchstring :='http://www.leo.org/cgi-bin/rfc-search?search='+_keyword_+'&hits=50';
SendQuery(searchstring);
end;
5 : begin
searchstring :='http://www.leo.org/cgi-bin/SFgate?database=ien&database=internet-drafts&database=ietf&text='+_keyword_+'&maxhits=50&directget=0&convert=&dmpenv=no&debug=off';
SendQuery(searchstring);
end;
6 : begin
searchstring :='http://www.discovery.com/cgi-bin/searcher/-?search='+_keyword_;
SendQuery(searchstring);
end;
7 : begin
searchstring :='http://cgi.pathfinder.com/cgi-bin/altavista/pshell?venue=pathfinder&q='+_keyword_+'&pg=q&date=all&x=12&y=9';
SendQuery(searchstring);
end;
8 : begin
searchstring :='http://search.cnn.com:8765/query.html?rq=0&col=cnni&qt='+_keyword_+'&qc=&qm=0&st=1&nh=10&lk=1&rf=1&go=go';
SendQuery(searchstring);
end;
9 : begin
searchstring :='http://www.newslink.org/cgi/search.cgi?terms='+_keyword_+'&type=Entire+site';
SendQuery(searchstring);
end;
10 : begin
searchstring :='http://www.mojones.com/cgi-bin/kidofwais.pl?'+_keyword_;
SendQuery(searchstring);
end;
11 : begin
searchstring :='http://www.latimes.com/bin/iatoc?NS-query='+_keyword_+'&NS-adv-search=0&NS-search-type=boolean&NS-max-records=20&NS-collection=DailyNews&NS-collection=APOnline';
SendQuery(searchstring);
end;
end;

好好好，好好好！没有别的，我就发分给老房了

接受答案了.