(Resolvido) Fazer busca no Google pelo Delphi

[João Paulo Taraciuk]

Boa tarde

Estou fazendo uma tela de cadastros de medicamentos e gostaria de colocar um link para uma busca por informações adicionais do medicamento, algo assim: Clique aqui para saber mais sobre este medicamento.

E clicando no link ou botão, abriria uma tela do Google com a pesquisa pelo nome do medicamento.

Como eu poderia chamar essa pesquisa do Google que retornasse já com os resultados?

utilizo o Delphi 7.

Editado Fevereiro 18, 2009 por João Paulo Taraciuk

[Jhonas]

Estou fazendo uma tela de cadastros de medicamentos e gostaria de colocar um link para uma busca por informações adicionais do medicamento, algo assim: Clique aqui para saber mais sobre este medicamento.

E clicando no link ou botão, abriria uma tela do Google com a pesquisa pelo nome do medicamento.

Como eu poderia chamar essa pesquisa do Google que retornasse já com os resultados?

De maneira bem simplista voce pode colocar em um form os seguintes componentes

um Edit

um botao

um WebBrowser

e use o seguinte código

procedure TForm1.Button1Click(Sender: TObject);
Var ConsultaEndereco : string;
begin
   ConsultaEndereco := 'http://www.google.com.br/search?hl=pt-BR&q='+TRIM(Edit1.Text)+'&meta=&aq=0&o que=';
   ConsultaEndereco := ConsultaEndereco + TRIM(Edit1.Text);
   WebBrowser1.Navigate(ConsultaEndereco);
end;

OBS: no edit voce digita o medicamento e ele traz os endereços onde existem informãções a respeito dele

na verdade este código serve para pesquisar no google usando qualquer palavra

abraço

[João Paulo Taraciuk]

Muito bom Jhonas, era isso mesmo que eu procurava.

Obrigado!!!