Abrindo o internet explorer - Via Ole

        Coloque em use  Comobj
        Crie a seg. procedure:
procedure AbreInternetExplorer(URL : string);
var
IE : Variant;
begin
  IE := CreateOleObject('InternetExplorer.Application');
  IE.Visible := true;
  IE.Navigate(URL);
          Coloque um button e um edit e digite:
  if Edit1.Text <> '' then
  AbreInternetExplorer(Edit1.Text);

  At? a   prxima, espero que estas dicas possam ajudar a alguem, um abra?o.

  Adalmo,  Ipatinga, Minas Gerais - reisipa@uol.com.br

    

Autor : desconhecido

Voltar