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

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('SoftwareMicrosoftInternet ExplorerTypedURLs', 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
;

Другое по теме:

• Проверка существования URL
• Получение URL от IE
• Взять часть URL, которая следует после названия сайта