Desativar/ativar Internet Explorer

:?:

Lidiane,

De que forma você pretende desativar o Internet Explorer? Pode ser mais específica? Você pretende desabilitá-lo como navegador padrão ou é outra coisa?

Se você sabe qual chave no registro que deve ser alterada, consulte no help do Delphi sobre a classe TRegistryIniFile.

Bom, consegui bloquear o acesso aos arquivos pelo IE, atraves do evento click, agora soh falta deixar ele ´automatico´.
o código está aí:


Function GetText(WindowHandle: hwnd):string;
var
txtLength : integer;
buffer: string;
begin
TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0);
txtlength := txtlength + 1;
setlength (buffer, txtlength);
sendmessage (WindowHandle,wm_gettext, txtlength, longint(@buffer[1]));
result := buffer;
end;

function GetURL:string;
var
ie,toolbar,combo,
comboboxex,edit,
worker,toolbarwindow:hwnd;
begin
ie := FindWindow(pchar(´IEFrame´),nil);
worker := FindWindowEx(ie,0,´WorkerA´,nil);
toolbar := FindWindowEx(worker,0,´rebarwindow32´,nil);
comboboxex := FindWindowEx(toolbar, 0, ´comboboxex32´, nil);
combo := FindWindowEx(comboboxex,0,´ComboBox´,nil);
edit := FindWindowEx(combo,0,´Edit´,nil);
toolbarwindow := FindWindowEx(comboboxex, 0, ´toolbarwindow32´, nil);
result := GetText(edit);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
label1.Caption:=GetURL;
url:=(Copy(GetURL,1,1));
label2.caption:=url;

if (url=´C´) or (url=´F´) or (url=´\´) then
begin
PostMessage(FindWindow(´IEFrame´, nil), WM_CLOSE,0,0);
end;

end;



Pra automatizar, coloque um timer com intervalo de 10 e no evento OnTimer coloque o seguinte:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:=GetURL;
url:=(Copy(GetURL,1,1));
label2.caption:=url;
if (url=´C´) or (url=´F´) or (url=´\´) then
begin
PostMessage(FindWindow(´IEFrame´, nil), WM_CLOSE,0,0);
end;
end;


Para testar se está automatico mesmo eh soh colocar as duas janelas em modo ´restaurar´ uma do lado da outra....e conforme vc vai digitando na barra de endereços do IE, vai aparecendo no label1 do programa, se digitar C:\ ......ou file:///C.......ou \Algum Diretorio.......o programa fecha o IE automaticamente.... ou seja....pela barra de endereços nao tem + como acessar arquivos.

espero ter ajudado. caso queira manter contato, meu email - otto3d@hotmail.com

Vlw. 8)

oTTo Husckows :shock:

Eu preciso desativar o internet explorer para que ele possa ser aberto pelo usuário mas, que não seja mostrada nenhuma página da internet.

Obs.. não quero desativar a conecção, quero apenas que o usuário não acesse paginas da net. ok

não sei qual a chave do registro modificar esse é o problema...........



Lidiane

:?: :(