po pierwzze musisz miec jakas inernetowa wyszukiwarke, chyba ze torzysz wlasna :U
nastepnie komponentem http get sciagasz plik np. z googli nie jest to zaawansowane ale co ci szkodzi
procedure TForm1.Button4Click(Sender: TObject);
var
i : integer;
s : string;
begin
s := edit1.text;
for i:=0 to Length(S) do
begin
if Pos(' ', s) > 0 then
begin
Insert('+', s, Pos(' ',s));
Delete(s, Pos(' ', s), 1);
end;
end;
edit1.text := s;
if wyszukiwarka.text = 'Google' then
begin
ShellExecute(Handle, 'open',Pchar('http://www.google.com.pl/search?q='+edit1.text+'&hl=pl'),nil,nil,SW_SHOWDEFAULT);
end;
{
http://www.google.com.pl/search?q=Bios+Update&hl=pl
}
end;
pozniej siagasz http://cezet.host.sk/HTTPdwn.rar i patrzysz co jest w nim tak ciekawego co sprawdza htmele, zawsze mozesz sciagniety plik tak interprertowac ze laiujesz go do memo i dac kod if pos('plik.exe',lowercase(memo1.text)) > 0 then co daje jak znalazl ten ciag znakow to.... na sciagniecie pliku sa rozne spooby zajrzyj do FAQ