【delphi源码】获取、设置ie浏览器首页

function ShowStartPage:string; //获取ie浏览器首页
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('SoftWare\Microsoft\Internet Explorer\Main',true);
result:=reg.ReadString('Start Page');
Reg.CloseKey;
reg.Free;
end;

procedure SetStartPage(Const Page:string); //设置ie浏览器首页
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('SoftWare\Microsoft\Internet Explorer\Main',true);
reg.WriteString('Start Page',page);
Reg.CloseKey;
reg.Free;
end;

---

上一篇：主题中队会完整程序

下一篇:石教函〔2012〕146号省教育厅关于举办河北省第二届学校国防教育科研论文报告会的通知