To Smiledayly及All:
怎么不提醒我用程序来恢复?呵呵~~~~~苦思冥想了几昼夜,终于想到自己写程序来恢复,呵呵~~~~虽然还是没办法打开编辑表直接修改,但是用程序改注册表获得了成功,高兴呀!
如果谁找到办法可以取消2000Server系统管理对注册表编辑的禁用限制,使我可以以Administrator身份登入并修改注册表,并且告诉我,将获得50大洋的奖励! 呵呵~~~绝不食言哦...
相信这个问题十分简单,只是对于不会的我来说却是个不小的遗憾。请大家继续关注!
应该不急着结结贴才对 :)
以下语句行解决了Internet选项中主页设置按钮被灰化后的恢复问题:
procedure TForm1.Button3Click(Sender: TObject);
Var reg1 : TRegistry;
begin
reg1 := TRegistry.Create;
try
reg1.RootKey := HKEY_USERS;
{ .DEFAULT//Software//Policies//Microsoft//Internet Explorer//Control Panel
下的DWORD值“homepage”的键值被修改的缘故。原来的键值为“0”,被修改为“ 1”
(即为灰色不可选状态)。}
if reg1.OpenKey('.DEFAULT/Software/Policies/Microsoft/Internet Explorer/Control Panel',true) then
begin
if reg1.ValueExists('HomePage') then
// reg1.WriteInteger('HomePage',0);
reg1.DeleteValue('Homepage');//删除此键值
reg1.CloseKey ;
end;
reg1.RootKey := HKEY_CURRENT_USER;
If reg1.OpenKey('Software/Policies/Microsoft/Internet Explorer/Control Panel',true) then
begin
if reg1.ValueExists('HomePage') then
reg1.DeleteValue('HomePage');
reg1.CloseKey;
end;
finally
reg1.Free;
inherited;
end;
end;