后端开发
delphi操作注册表添加网站到信任站点及修改自定义级别安全设置
发布时间:2024-04-01 23:00:27 浏览量:120
代码如下:
Reg:=TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
//修改注册表的SecureProtocols项值为2720以支持SSL3.0 TLS1.0 TLS1.1 TLS1.2
if Reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionInternet Settings',True) then
begin
Reg.WriteInteger('SecureProtocols', 2720);
end;
//添加https://fpdk.hunan.chinatax.gov.cn网址到信任站点
if Reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionInternet SettingsZoneMapDomainsfpdk.hunan.chinatax.gov.cn',True) then
begin
Reg.WriteInteger('https', 2);
end;
//修改信任站点自定义级别安全设置
if Reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones2',True) then
begin
Reg.WriteInteger('1001', 0); //下载已签署的 ActiveX 控件
Reg.WriteInteger('1004', 0); //下载未签署的 ActiveX 控件
Reg.WriteInteger('1200', 0); //运行 ActiveX 控件和插件
Reg.WriteInteger('1201', 0); //对没有标记为可安全执行脚本的 ActiveX 控件进行初始化和脚本运行
Reg.WriteInteger('1208', 0); //允许以前未使用的 ActiveX 控件在没有提示的情况下运行
Reg.WriteInteger('1209', 0); //允许脚本小程序
Reg.WriteInteger('1400', 0); //活动脚本编写
Reg.WriteInteger('1402', 0); //Java 小程序脚本编写
Reg.WriteInteger('1405', 0); //对标记为可安全执行脚本的 ActiveX 控件执行脚本
Reg.WriteInteger('1406', 0); //跨域访问数据源
Reg.WriteInteger('1607', 0); //跨域浏览子框架
Reg.WriteInteger('1608', 0); //允许 META REFRESH
Reg.WriteInteger('1609', 0); //显示混合内容
Reg.WriteInteger('160A', 0); //在将文件上载到服务器时包括本地目录路径
Reg.WriteInteger('1806', 0); //启动应用程序和不安全文件
Reg.WriteInteger('1809', 3); //禁用-使用弹出窗口阻止程序
Reg.WriteInteger('2201', 0); //ActiveX 控件自动提示
end;
Reg.CloseKey;