Como Alterar a Página Inicial do Internet Explorer | Delphi

Alterando a Página Inicial Internet Explorer com Delphi via registro do Windows

Para definir a página inicial do Internet Explorer via registro em Delphi.

1. Adicione um Edit e altere seu nome para edtURL
2. Adicione um Button e nele basta utilizar o código abaixo:

with TRegistry.Create do
  begin
    RootKey:=HKEY_LOCAL_MACHINE;
    if OpenKey('Software\Microsoft\Internet Explorer\Main', TRUE) then
        begin
          WriteString('Start Page', edtURL.Text);
          ShowMessage('Alterado com Sucesso!');
        end

    else
      begin
        MessageDlg('Erro na alteração do registro', mtError, [mbOk], 0);
        CloseKey;
      end;
  end;

Adicione na cláusula USES:

uses 
  Registry;