[Delphi]Szuukanie w Google kod do poprawy ;/

Mam kod który ma za zadanie po wpisaniu w edicie jakiejs frazy i po kliknięciu na speedbuttona szukało w google
procedure TForm1.SpeedButton6Click(Sender: TObject); var i : integer; s : string; begin s := Edit2.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; Edit2.text := s; if Edit2.text = 'GOOGLE' then begin ShellExecute(Handle, 'open',Pchar('http://www.google.com.pl/search?q='+Edit2.text+'&hl=pl' ),nil,nil,SW_SHOWDEFAULT); end;
Jest problem ten kod za dobrze nie działa. Trzeba dodać tak aby on w Webbrowserze wyświetlał wynik i żeby po wpisaniu jakiejś frazy go szukał. Bo tam gdzie jest wpisane GOOGLE to tylko to moge wpisać i szuka mi wtedy, ale otwiera domyślną przeglądarkę wcale chyba ten kod nie wyszedł :/
Użytkownik prondzyk edytował ten post 29 kwiecień 2007, 20:20

---

No zamiast ShellExecute dajesz WebBrowser1.Navigate czyli zamiast tego:

ShellExecute(Handle,'open',Pchar('http://www.google.com.pl/search?q='+Edit2. text+'&hl=pl'),nil,nil,SW_SHOWDEFAULT);

dajesz:

WebBrowser1.Navigate('http://www.google.com.pl/search?q='+Edit2.text+'&hl=pl' );
Użytkownik Capellini edytował ten post 29 kwiecień 2007, 20:28

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl