Fórum manipulando Internet Explorer #159597

var
 Reg: TRegistry;
 SubKey: String;
begin
   begin
     Reg := TRegistry.Create;
     Reg.RootKey := HKEY_CURRENT_USER;
     SubKey := ´\Software\Microsoft\Internet Explorer\Main\´;
     Reg.Access := KEY_ALL_ACCESS;
     Reg.OpenKey(SubKey, False);
     Reg.WriteString(´Start Page´, StartPage);
     Reg.CloseKey;
     Reg.Free;
   end

implementation
 Uses Registry;
{$R *.DFM}
 
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;
 
procedure TForm1.Button1Click(Sender: TObject);{Aqui vc vê qual a página inicial}
begin
  ShowMessage(GetIEStartPage);
end;
 
procedure TForm1.Button2Click(Sender: TObject);{Aqui vc altera a página inicial}
begin
  SetIEStartPage(´www.napoles.hpg.com.br´);
end;
end.