레지스트리에 신뢰하는 웹사이트 등록하기

procedure Tfrm_Main.SetRegistry;
var
   Reg  : TRegistry;
begin
   Reg := TRegistry.Create;

   try
      try
        Reg.RootKey := HKEY_CURRENT_USER;
        Reg.OpenKey( 'SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\www.naver.com', True );
        Reg.WriteInteger('*', 2);

      except
         //
      end;

   finally
      Reg.Free;
   end;
end;