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;