Delphi Sources

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



Оформил: DeeCo

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;




Похожие по теме исходники

Нейросеть для распознавания образов

Механизм станка качалки для нефти

Весы для взвешивания

Кувшины для воды

 

Доска для игры Реверси

Internet Walker (браузер)

Generic Internet Spider

Explorer Popup Menu