Programação

Como Habilitar o Nível Personalizado em Opções da Internet – Segurança – Delphi

Habilitando o Nível Personalizado em Opções da Internet na aba Segurança com Delphi

Para habilitar o Nível Personalizado do Internet Explorer via Registro do Windows com Delphi.

// Uses Registry
uses
  Registry;

Crie um botão e adicione o código abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var
  reg: TRegistry;
  // Declarando uma constante onde a mesma pegue o caminho da chave no registro
  const
  ChaveRegistro = 'Software\Policies\Microsoft\Windows\CurrentVersion\Internet Settings';
begin
  // Cria uma instância da classe TRegistry
  reg := TRegistry.Create;

  // Chave raiz padrão é HKEY_LOCAL_MACHINE
  reg.RootKey := HKEY_LOCAL_MACHINE;

  if reg.OpenKey(ChaveRegistro, False) then
    begin
      // Se a chave foi encontrada deletar a mesma
      if reg.DeleteValue('Security_options_edit') then
        begin
          ShowMessage('A chave foi excluída com sucesso');
        end
      else
        begin
          ShowMessage('Não foi possível excluir, pois a chave especificada não existe');
        end;
    end;
  // Libera o registro
  reg.Free;
end;

Etiquetas

Artigos relacionados

Botão Voltar ao topo

Adblock detectado

Por favor, considere apoiar-nos, desativando o seu bloqueador de anúncios