Windows - chamar explorer via ole

Top  Previous  Next

// Chamar Explorer via OLE

 

uses ActiveX, ComObj;

 

procedure AbreInternetExplorer(URL : string);

var

  IE : Variant;

begin

  IE := CreateOleObject('InternetExplorer.Application');

  IE.Visible := true;

  IE.Navigate(URL);

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  if Edit1.Text <> '' then AbreInternetExplorer(Edit1.Text);

end;