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、小弟不才,简单写个知识点小结,如有高手,还请多多赐教!