Вывести типы URL для Internet Explorer

Delphi , Интернет и Сети , URL

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses registry;

 procedure ShowTypedUrls(Urls: TStrings);
 var
   Reg: TRegistry;
   S: TStringList;
   i: Integer;
 begin
   Reg := TRegistry.Create;
   try
     Reg.RootKey := HKEY_CURRENT_USER;
     if Reg.OpenKey('Software\Microsoft\Internet Explorer\TypedURLs', False) then
     begin
       S := TStringList.Create;
       try
         reg.GetValueNames(S);
         for i := 0 to S.Count - 1 do
         begin
           Urls.Add(reg.ReadString(S.Strings[i]));
         end;
       finally
         S.Free;
       end;
       Reg.CloseKey;
     end;
   finally
     Reg.Free;
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   ShowTypedUrls(ListBox1.Items);
 end;

Программа на Delphi, которая извлекает типизированные URL из реестра Internet Explorer и отображает их в списке.

Вот разбивка кода:

Процедура ShowTypedUrls

• Создает объект TRegistry для взаимодействия с реестром Windows.
• Открывает ключ "Software\Microsoft\Internet Explorer\TypedURLs" под текущим пользователем в реестре.
• Извлекает имена значений (т.е., URL) из ключа и хранит их в объекте TStringList под названием S.
• Итерирует по URL в списке и добавляет каждый к параметру Urls, который ожидается быть объектом TStrings.
• Закрывает реестровый ключ и освобождает объект S.

Событийный обработчик Button1Click

• Вызывает процедуру ShowTypedUrls, передавая ListBox1.Items как параметр Urls. Это пополняет список с типизированными URL из Internet Explorer.

Типы URL, которые можно извлечь с помощью этого кода:

• Типизированные URL, хранящиеся в истории Internet Explorer, что может включать часто посещаемые сайты или закладки.
• Любые другие URL, которые были введены в адресной строке Internet Explorer и последовательно сохранены в реестре.

Обратите внимание, что этот код извлекает типизированные URL только из реестра текущего пользователя. Если вы хотите извлечь URL из реестров других пользователей или из системного реестрового ключа, вам нужно изменить свойство RootKey объекта TRegistry соответственно.

В статье описывается способ вывода типов URL в Internet Explorer с помощью использования регистра и Delphi, где создается список строк, содержащий записи из реестра.

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

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

:: Главная :: URL ::