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;