用代码修改IE的选项-高级的部分项目后，再用IE手工修改，IE会提示运行期错误。(100)

软件运行时，会修改。procedure CheckScriptRegValue(IsCheck: Boolean);var reg:TRegistry; KeyName:string;const UsedKeyPath='Software/Microsoft/Internet Explorer/Main'; BoolStr:array [Boolean] of string=('no','yes');begin reg:=TRegistry.Create; try reg.RootKey:=HKEY_CURRENT_USER; if reg.OpenKey(UsedKeyPath,False) then begin KeyName:='Disable Script Debugger'; if reg.ReadString(KeyName) <> boolstr[ischeck] then reg.WriteString(KeyName,boolstr[ischeck]); KeyName:='DisableScriptDebuggerIE'; if reg.ReadString(KeyName) <> boolstr[ischeck] then reg.WriteString(KeyName,boolstr[ischeck]); KeyName:='Error Dlg Displayed On Every Error'; if reg.ReadString(KeyName) <> boolstr[not ischeck] then reg.WriteString(KeyName,boolstr[not ischeck]); reg.CloseKey; end;// SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE,0, LongInt( PChar('Software/Microsoft/Internet Explorer') )); finally reg.free; end;end;然后运行IE，把修改的选项再修改一下，比如前面EXE取消了选中某个项目，现在再选中。点击确定或者应用后，IE报错。http://www.delphibbs.com/keylife/images/u274058/RegErr.JPG

楼主，我用你的代码试了，没出错啊设置也成功了我的环境 win2003+ delphi6 + IE6

楼上在IE里再相反的修改一次，确定呢？

出错动画http://www.delphibbs.com/keylife/images/u274058/IEError.gif

没错啊，我试了n遍了 另外 楼主 贴的 出错动画 gif图片 ，一点都没动嘛。。。

动的

接受答案了.