Buscar por:

Alterando a página inicial do internet explorer via programação

Código

{Adcione a Unit Registry a cláusula uses do aplicativo para poder compilar.}

implementation

 Uses Registry;

{$R *.DFM}

function GetIEStartPage : string;

Var

  Reg : TRegistry;

begin

  Reg:= TRegistry.Create;

  try

  Reg.RootKey:= HKEY_CURRENT_USER;

  Reg.OpenKey('SoftwareMicrosoftInternet ExplorerMain',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('SoftwareMicrosoftInternet ExplorerMain',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.delphi.eti.br');

end;

end.