Abrir página com Internet Explorer dentro de sua aplicação Delphi

Olá galera, nesta dica irei mostrar como abrir uma página usando o Internet Explorer.

Adicione:

Edit = EdtEndereco

Button = BtnAbrir

Vamos dar uses em comObj.

Agora criamos um método para executar a chamada da página.

procedure TFrmPrincipal.AbrirIR(aURL: string);

var

  IE: Variant;

  WinHanlde: HWnd;

begin

  if (VarIsEmpty(IE)) then

  begin

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

   IE.Visible := True;

   IE.Navigate(aURL);

  end

  else

  begin

    WinHanlde := FindWindow('IEFrame', nil);

   if (0 <> WinHanlde) then

   begin

    IE.Navigate(aURL);

    SetForegroundWindow(WinHanlde);

   end

   else

    ShowMessage('Internet Explorer não pode ser aberto!');

  end;

end;

Evento onClick do BtnAbrir

procedure TFrmPrincipal.BtnAbrirClick(Sender: TObject);

begin

AbrirIR(EdtEndereco.Text);

end;

end.

Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y

wyamazack@rwsolution.com.br