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;