¿Como usar buscadores?

[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.