Internet Explorer

[Eder]

Ola..pessoal

tem algum maneira de controlar as opções do internet explorer via codigo pelo delphi???

Tipo eu queria mexer com os controles de segurança, ativar, desativar etc....

seria possível??

Grato...t+ :)

[D4n1l0d]

olha, mecher nas configurações de segurança eu não sei, mas contrar o iexplore sim, olha abaixo;

(Retirado de 850 Dicas e Truques Delphi e modificado por D4n1l0d)

683 - 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,
Antes de tudo declare a unit ComObj na clausula uses;

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}

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 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, que está configurada em seu browser.

IEApp.FullScreen := true; - Serve para exibir o browser, sem nenhuma barra de ferramenta.

IEApp.StatusText; := 'Qualquer texto'

ps, para você conseguir mais funções coloque um componente Twebbrowser, pois muitas das funções que você tem nele funcionam no IEApp ( variant );

[Eder]

beleza...vou dar uma pesquisada...muito grato amigo..t+ :D

[Micheus]

Eder, dê também uma olhada nesta chave do windows: HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Security