delphi设置浏览器主页
2009-12-23 16:08
411 查看
function TFrmStarPage.ShowStartPage:string;
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 TFrmStarPage.SetStartPage(Const Page: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',page);
Reg.CloseKey;
reg.Free;
end;
procedure TFrmStarPage.FormShow(Sender: TObject);
begin
EdOldPage.Text:=ShowStartPage;
end;
procedure TFrmStarPage.BtnSetClick(Sender: TObject);
begin
if trim(EDStarPage.Text) = '' then
begin
SetStartPage('about:blank');
end
else
SetStartPage(EDStarPage.Text);
end;
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 TFrmStarPage.SetStartPage(Const Page: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',page);
Reg.CloseKey;
reg.Free;
end;
procedure TFrmStarPage.FormShow(Sender: TObject);
begin
EdOldPage.Text:=ShowStartPage;
end;
procedure TFrmStarPage.BtnSetClick(Sender: TObject);
begin
if trim(EDStarPage.Text) = '' then
begin
SetStartPage('about:blank');
end
else
SetStartPage(EDStarPage.Text);
end;
相关文章推荐
- 浏览器被恶意设置主页http://www.2345.com/?kunown的解决方法
- Windows2008server R2 组策略设置浏览器主页
- 被流氓360设置浏览器主页的解决办法(如果你也遇到了跟我一样的问题,不妨看一下是不是这个原因)
- Delphi 设置IE默认主页 通用注册表设置
- 设置浏览器主页步骤
- [备忘]假如浏览器无视主页设置默认打开hao123
- wp7设置浏览器主页
- wp7设置浏览器主页
- 设置浏览器主页不被修改
- wp7设置浏览器主页
- “浏览器设置从上次停下的地方继续,但是电脑重启打开后还是主页”问题的解决办法
- 设置浏览器主页
- 浏览器访问时设置主页
- 设置主页 收藏网站 兼容 ie firefox 等浏览器
- 安卓5.1自带浏览器主页设置–转载
- 设置浏览器主页
- 设置cookies过期时间的几种方法(cookies随浏览器关闭而失效的方法)
- 如何在sublime text 中设置快捷键 运行浏览器
- 设置ngnix下的文件在浏览器端直接下载而不是被浏览器默认打开
- 流氓提示设置主页或者收藏