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

Exibindo a Página Inicial do Internet Explorer com Delphi

Para exibir a página inicial do Internet Explorer via registro em delphi basta utilizar o código abaixo:

Adicione na cláusula USES:

uses 
  Registry;

  with TRegistry.Create do
  begin
    RootKey:=HKEY_CURRENT_USER;
    if OpenKey('Software\Microsoft\Internet Explorer\Main', TRUE) then
      ShowMessage(ReadString('Start Page'))
    else
      MessageDlg('Erro de leitura do registro', mtError, [mbOk], 0);
    CloseKey;
  end;