Как прочитать или изменить StartPage IE

Delphi , Интернет и Сети , Браузер

Автор: http://www.swissdelphicenter.ch

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;

Вот перевод текста на русский язык:

Это фрагмент кода программирования Delphi, который читает и пишет значение "Start Page" в реестре Windows для Интернета-Эксплорера (IE). Код содержит две функции: GetIEStartPage для получения текущего значения начала страницы, и SetIEStartPage для установки нового начала страницы.

Функции

1. GetIEStartPage: Функция читает значение "Start Page" из реестра и возвращает его как строку. Если ключ не существует или значение пусто, она возвращает пустую строку.
   • Создает объект TRegistry для взаимодействия с реестром.
   • Открывает ключ "Software\Microsoft\Internet Explorer\Main" под HKEY_CURRENT_USER.
   • Читает значение "Start Page" как строку с помощью Reg.ReadString.
   • Закрывает ключ и освобождает объект реестра.
2. SetIEStartPage: Функция устанавливает новое значение начала страницы в реестре. Она принимает параметр APage, представляющий новый URL начала страницы.
   • Создает объект TRegistry для взаимодействия с реестром.
   • Открывает ключ "Software\Microsoft\Internet Explorer\Main" под HKEY_CURRENT_USER.
   • Пишет новое значение начала страницы с помощью Reg.WriteString.
   • Закрывает ключ и освобождает объект реестра. Функция возвращает True, если операция была успешной.

Процедуры

1. Button1Click: Процедура вызывается при клике первой кнопки. Она вызывает GetIEStartPage для получения текущего значения начала страницы и отображает его в сообщении.
2. Button2Click: Процедура вызывается при клике второй кнопки. Она вызывает SetIEStartPage с URL 'http://forum.vingrad.ru' как новым началом страницы.

Замечания

• Код использует реестровую ключ HKEY_CURRENT_USER, который хранит пользовательские настройки.
• Ключ "Software\Microsoft\Internet Explorer\Main" используется для доступа к настройкам IE.
• Значение "Start Page" используется для хранения текущего значения начала страницы.
• Объект TRegistry обеспечивает способ взаимодействия с Windows-реестром.

В целом, этот код демонстрирует, как читать и писать значения реестра в Delphi с помощью компонента TRegistry.

В статье описывается, как изменить стартовую страницу Internet Explorer (IE) с помощью программирования на языке Delphi, а также как считать текущее значение стартовой страницы.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Браузер ::