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

Советы » URL » Вывести типы 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

;

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

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com