Gerson12,
Revisa el siguiente código tomado del link :
http://www.delphipages.com/forum/sho...d.php?t=152828
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellApi;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
Function OpenObject(strObjectPath:string) : boolean;
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Function TForm1.OpenObject(strObjectPath:string) : boolean;
var
h : integer;
zFname: array[0..79] of Char;
begin
result := true;
h := ShellExecute
(
0,
'open',
StrPcopy(zFname,'http://www.google.com/search?hl=en&q=' + strobjectpath),
NIL,
NIL,
SW_SHOWNORMAL
);
if h < 33 then result := false;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if not OpenObject(Edit1.Text) then
MessageDlg('Can''t open default WEB Browser.', mtError,[mbOk], 0);
end;
end.
El código anterior invoca al Browser por defecto y realiza una búsqueda en Google pasando un TEdit como parámetro.
Espero sea útil
Nelson.