Как прочитать/изменить startpage IE?

uses 
  {...,}Registry; 
   
function GetIEStartPage: string; 
var 
  Reg: TRegistry; 


begin 
  Reg := TRegistry.Create; 
  try 
    Reg.RootKey := HKEY_CURRENT_USER; 
    Reg.OpenKey('Software\Microsoft\Internet Explorer\Main', False); 
    try 
      Result := Reg.ReadString('Start Page'); 
    except 
      Result := ''; 
    end; 
    Reg.CloseKey; 
  finally 
    Reg.Free; 
  end; 
end; 

function SetIEStartPage(APage: string): Boolean; 
var 
  Reg: TRegistry; 
begin 
  Reg := TRegistry.Create; 
  try 
    Reg.RootKey := HKEY_CURRENT_USER; 
    Reg.OpenKey('Software\Microsoft\Internet Explorer\Main', False); 
    try 
      Reg.WriteString('Start Page', APage); 
      Result := True; 
    finally 
      Reg.CloseKey; 
      Result := False; 
    end; 
  finally 
    Reg.Free; 
  end; 
end; 

// Show the Startpage 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ShowMessage(GetIEStartPage); 
end; 

// Set the Startpage 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  SetIEStartPage('http://forum.vingrad.ru'); 
end; 


Взято с сайта



Содержание раздела

---