Delphi 设置IE默认主页 通用注册表设置

IE浏览器的主页设置参数是保存在注册表中的，现在如果我们想通用程序操作来自定义IE主页，只要修改下注册表的对应参数，把地址设置成我们想要的网址，下面我就把代码贴出来。

1、因为要用到注册表的相关操作，要在“uses”中添加“Registry”。

uses Messages,Clipbrd,ShellAPI,SysUtils,HttpApp,Registry,StdCtrls,Windows,Forms,classes;

 2、创建过程“SetHomePage(Url:string)”，和方法“GetHomePage():string”，创建TRegistry的实例变量，进行读取和修改IE主页对应的键值。程序开发中，可以考虑先获取当前IE主页是不是自己要设定的，如果是就不必重复设置了。

class procedure TUtils.SetHomePage(Url:string);
var
    reg: TRegistry ;
begin
    reg := TRegistry.Create;
    reg.RootKey := HKEY_CURRENT_USER;
    reg.OpenKey('Software\Microsoft\Internet Explorer\Main',true);
    reg.WriteString('Start Page',Url);
    reg.Free;
end;
class function TUtils.GetHomePage():string;
var
   reg:Tregistry;
begin
   reg:=Tregistry.Create;
   reg.RootKey:=HKEY_CURRENT_USER;
   if reg.OpenKey('Software\Microsoft\Internet Explorer\Main',false) then
   begin
       Result := reg.ReadString('start page');
   end;
   reg.CloseKey;
   reg.Free;
end;

3、调用时，一定要注意出错处理，因为现在很多杀毒软件发现主页被更改后，会弹出提示框的，比如360，就弹出信息框，让你确认是否断续更改主页， 如果用户取消更改主页，我们的应用程序会报错的，360拒绝了我们程序代码的执行。

  try
      TUtils.SetHomePage('http://www.txtcut.com');
  except
  end;

 4、小弟不才，简单写个知识点小结，如有高手，还请多多赐教！