• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

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

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

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


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Ubuntu18.04 安装与配置 Matlab2018a发布时间:2022-07-18
下一篇:
[MATLAB] plot画图简单细节随记发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap