吾爱破解 - LCG - LSG |安卓破解|病毒分析|www.52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 8596|回复: 12
收起左侧

[其他转载] 自己写了个2345网址推广主页设置工具

  [复制链接]
codebutcher 发表于 2013-3-31 17:41
本帖最后由 xheonen 于 2013-10-13 08:53 编辑

//Delphi版本:Delphi XE3 With Update2

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,Registry;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
   Reg:TRegistry;
begin
    Reg:=TRegistry.Create;
    Reg.RootKey:=HKEY_CURRENT_USER;
    if   Reg.OpenKey('\Software\Microsoft\Internet Explorer\Main',true)   then
    Reg.WriteString('Start Page','http://www.2345.com/?');
    Reg.Free;
    Application.Terminate;
end;

end.

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

 楼主| codebutcher 发表于 2013-3-31 17:55
本帖最后由 codebutcher 于 2013-3-31 17:57 编辑

Delphi源代码文件下载地址:
请参见附件文本文档。

2013-03-31.txt

240 Bytes, 下载次数: 22, 下载积分: 吾爱币 -1 CB

头像被屏蔽
sx364882922 发表于 2013-4-7 23:35
sharer 发表于 2013-4-9 15:39
woaililuovip 发表于 2013-4-9 15:44
这个我朋友可以用。
liquanhai 发表于 2013-4-9 16:35
好像2345已经被微软告了一下,得赔偿3600万:http://tech.qq.com/a/20121210/000166.htm
why 发表于 2013-5-19 21:16
虽然这只是一个非常简单的代码,但还是要技持一下。
beiank 发表于 2013-7-8 21:14
非常给力啊 谢谢啦 主页还是那个吧
头像被屏蔽
pg586 发表于 2013-10-13 08:32
提示: 作者被禁止或删除 内容自动屏蔽
立华奏 发表于 2013-10-13 08:40
个人比较讨厌这种 设置推广主页的
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则 警告:本版块禁止灌水或回复与主题无关内容,违者重罚!

快速回复 收藏帖子 返回列表 搜索

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-3-29 22:00

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表