Ver Mensaje Individual
  #8  
Antiguo 29-12-2004
barrauda barrauda is offline
Miembro
 
Registrado: jun 2003
Ubicación: Balcarce - Buenos Aires
Posts: 42
Reputación: 0
barrauda Va por buen camino
Ya conseguí solucionar mi problema

Hola a todos, lo que pude hacer para que no funcione el Internet Explorer diría que no es muy profesional pero funciona.
Lo que yo deseaba era que no se ejecute directamente el Internet Explorer pero en vista de que no me pudieron ayudar a solucionar se me ocurrió que si deshabilitaba el Proxy no se podría navegar. pude hacerlo y acá les paso el código por las dudas que alguien necesite algo por el estilo

colocar en el USES la palabra Registry


Código:
procedure Tform1.DeshabilitaProxy(bandera: Boolean);
  var
    reg: TRegistry;
  begin
    reg := TRegistry.Create;     //crea el registro
    reg.RootKey := HKEY_CURRENT_USER;    //nos situa en esta clave
    reg.OpenKey('Software', True);
    reg.OpenKey('Microsoft', True);
    reg.OpenKey('Windows', True);
    reg.OpenKey('CurrentVersion', True);
    reg.OpenKey('Internet Settings', True);
    if bandera = True then
    begin
                reg.WriteString('ProxyServer', 'proxi:1');  //Cambia el nombre del proxy
        end
        else if bandera = False then
        begin
                reg.WriteString('ProxyServer', 'nombredelproxy:número');  //habilita Proxy
        end;
    reg.CloseKey;      //cierra el registro
  end;
Luego llamanos al procedimiento desde un botón por ejemplo y le ponemos el valos true o False de acuerdo a lo que queremos hacer:

DeshabilitarProxy(true); //deshabilitamos el proxy del navegador.
DeshabilitarProxy(false); //volvemos a colocar el proxy al navegador.

Aclaración: esto les va a servir si se conectan a Internet por medio de un proxy, a mi me funcionó pero puede ser que haya casos donde no funcione.
Responder Con Cita