Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\' + HostIP + '\' + sIPLevel1, True);
Reg.WriteInteger(sIPHead, 2);
Reg.CloseKey;
Reg.Free; 相应目录下,已经增加了键值,且与正常用IE操作添加的值相同,为什么访问网站还是不算受信任站点各位大侠,我这么做是为了使Web页上的ActiveX不发出提示,如果不用这个方法,你们有什么其它的方法,谢赐教
IEnumSTATURL = interface(IUnknown)
['{3C374A42-BAE4-11CF-BF7D-00AA006946EE}'] 里面具体的函数自已google一下