Ver Mensaje Individual
  #2  
Antiguo 03-09-2005
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
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.
__________________
David Esperalta
www.decsoftutils.com

Última edición por dec fecha: 03-09-2005 a las 21:15:59. Razón: (ampliación del texto)
Responder Con Cita