Internet - manipulando o Internet Explorer

// Manipulando o Internet Explorer

{

Neste artigo ensinarei como manipular o Internet Explorer, e 

através de sua aplicação poder ordenar comandos ao Browser mais 

utilizado no mundo.

Inicie o Delphi e crie uma nova aplicação,Insira no formulário 4 Tbuttons. 

Coloque na propriedade caption do Button1 "Iniciar" e no evento OnClick, 

insira o seguinte código: }

procedure TForm1.Button1Click(Sender: TObject);

begin

  IEApp := CreateOLEObject('InternetExplorer.Application');

  IEApp.visible := true;

  IEApp.Top := 0;

  IEApp.Left := 0;

  IEApp.width := screen.width;

  IEApp.height := screen.height;

  IEApp.Navigate('http://www.ClubeDelphi.com.br');

end;

// Explicando o código: Tenho certeza de que você já notou a 

// facilidade do código. Ele cria uma aplicação do tipo Internet Explorer, 

// e atribui algumas propriedades. Essas propriedades servem para informar 

// que o navegador deve estar visível, informar a posição onde será 

// criado o browser, o tamanho da tela e o endereço que ele vai abrir.

// Coloque na propriedade caption do Button2 "Voltar" e 

// no evento OnClick, insira o seguinte código:

procedure TForm1.Button2Click(Sender: TObject);

begin

  IEApp.GoBack;

end;

// Explicando o Código: O Botão irá funcionar como o próprio botão 

// Voltar do Browser.

// Coloque na propriedade caption do Button3 "Avançar" e no 

// evento OnClick, insira o seguinte código:

procedure TForm1.Button3Click(Sender: TObject);

begin

  IEApp.GoForward;

end;

// Explicando o Código: O Botão irá funcionar como o próprio botão 

// Avançar do Browser.

// Coloque na propriedade caption do Button4 "Fechar" e no evento 

// OnClick, insira o seguinte código:

procedure TForm1.Button2Click(Sender: TObject);

begin

  IEApp.Quit;

end;

// Explicando o Código: Este botão irá fechar o browser.

// Agora, insira a Unit Comobj na parte de uses lá em cima no código, 

// depois adicione a variável IEApp do tipo Variant na parte de 

// declaração de variáveis onde está declarado o formulário:

var

 Form1: TForm1;

 IEApp: Variant;

implementation

{$R *.DFM}

// Agora salve e execute a sua aplicação e comece a controlar o nosso 

// Internet Explorer.

Existem ainda alguns outros comandos que podem ser usados, tais como:

IEApp.Refresh;  //  Serve para atualizar o browser.

IEApp.Stop;     //  Serve para parar o browser.

IEApp.GoHome;   // Serve para ir para a página inicial

IEApp.FullScreen := true; // Exibir o browser, sem barra de ferramenta.

IEApp.StatusText := 'Qualquer texto';