¿Como usar buscadores?

[JXJ]

Quiero usar al menos dos buscadores.el google y el yahoo

con un programa. que pueda lanzar el navegador predeterminado
o en la ventana del navegador abierto. que luego cuando instalo un programa
y este me dice que si visito su sitio web unas veces. me abre
una nueva ventana y otras usa la ultima ventana que yo abri.

para elegir,. el buscador a usar pongo un TLisBox con las opciones

|google | | TEdit | | Buscar |
|yahoo |

Un TEdit. para colocar el texto de la buqueda .

Lo que no se es como usar los buscadores y lanzar el navegador.

Espero puedan ayudarme

Graica.s

[dec]

Hola,

Básicamente puedes fijarte en las "urls" de los buscadores cuando buscas por una palabra. Luego puedes llamar al programa (navegador) que quieres utilizar pasándole como parámetro la "url" en cuestión, que contendrá ya la palabra a buscar junto con las opciones que te sea posible añadir.

A continuación más o menos cómo podría llevarse a cabo una búsqueda sencilla en Google (1):

Código Delphi [-]
uses
   ShellApi;
 
 procedure BusquedaEnGoogle(navegador, palabrasClave: string);
 var
   urlBase, cadenaBusqueda: string;
 begin
   urlBase := 'http://www.google.com/search?hl=es&q=%s';
   cadenaBusqueda := Format(urlBase, [palabrasClave]);
   ShellExecute(GetDesktopWindow, 'open', PChar(navegador),
     PChar(cadenaBusqueda), nil, SW_MAXIMIZE);
 end;
 
 // Ejemplo de llamada
 //
 procedure TForm1.Button1Click(Sender: TObject);
 var
   navegador, palabraClave: string;
 begin
   navegador := 'iexplore.exe';
   palabraClave := 'ClubDelphi';
   BusquedaEnGoogle(navegador, palabraClave);
 end;

(1) Pienso que el procedimiento podría mejorarse no poco, pero, en cualquier caso, creo que da idea de lo que puede hacerse.

[JXJ]

Gracias., revisando el codigo, se me hace más claro entender. lo que
pretendo hacer. : D