操作注册表，实在不懂，帮我改一下下面的参数。通过程序去掉《对该区域中所有站点要求服务器验证(https://)》

Question

[hkey_current_user\software\microsoft\windows\currentversion\internet settings\Zones\2]
 "flags"=dword:00000043
将00000043改成00000047  
IE的信任站点中的选项“对该区域中所有站点要求服务器验证”通过程序去掉《对该区域中所有站点要求服务器验证(https://)》

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  areg: TRegistry;
  val: dword;
begin
  areg := TRegistry.Create;
  if areg.OpenKey
    ('software\microsoft\windows\currentversion\internet settings\Zones\2') then
  begin
    val := $47;
    areg.WriteInteger(val);
    areg.CloseKey
  end;
  areg.Destroy;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  areg: TRegistry;
  val: dword;
begin
  areg := TRegistry.Create;
  if areg.OpenKey
    ('software\microsoft\windows\currentversion\internet settings\Zones\2',
    false) then
  begin
    val := $47;
    areg.WriteInteger('flags', val);
    areg.CloseKey
  end;
  areg.Destroy;
end;