Delphi编写IE标题首页设置软件 TRegistry注册表类

最新推荐文章于 2010-10-11 22:20:00 发布

原创最新推荐文章于 2010-10-11 22:20:00 发布 · 639 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#delphi #ie #url #user

Delphi 7 专栏收录该内容

13 篇文章

订阅专栏

本文介绍了一种使用Delphi从Windows注册表中读取Internet Explorer的窗口标题和起始页面的方法，并展示了如何通过TRegistry组件操作注册表。

不尽人意，希望看到的大大帮我改正。

var reg,reg1:TRegistry; title,url:string; function SetReg():Boolean; begin SetWindowLong(Form1.Edit1.Handle,gwl_style,GetWindowLong(Form1.Edit1.Handle,gwl_style)or ES_CENTER); SetWindowLong(Form1.Edit2.Handle,gwl_style,GetWindowLong(Form1.Edit2.Handle,gwl_style)or ES_CENTER); reg:=TRegistry.Create; reg.RootKey:=HKEY_CURRENT_USER; reg.OpenKey('Software/Microsoft/Internet Explorer/Main',False); title:=reg.ReadString('Window Title'); Form1.Edit1.Text:=title; reg.CloseKey; reg.Free; reg1:=TRegistry.Create; reg1.RootKey:=HKEY_CURRENT_USER; reg1.OpenKey('Software/Microsoft/Internet Explorer/Main',False); url:=reg1.ReadString('Start Page'); url:=AnsiReplaceText(url,'http://',''); Form1.Edit2.Text:=url; reg1.CloseKey; reg1.Free; end; procedure TForm1.FormCreate(Sender: TObject); begin SetReg; end;