Как узнать путь к браузеру по умолчанию

Советы » Браузер » Как узнать путь к браузеру по умолчанию

uses

Registry; {....} procedure

TForm1.Button1Click(Sender: TObject); var

Reg: TRegistry; KeyName: string

; ValueStr: string

; begin

Reg := TRegistry.Create; try

Reg.RootKey := HKEY_CLASSES_ROOT; KeyName := 'htmlfileshellopencommand'; if

Reg.OpenKey(KeyName, False) then

begin

ValueStr := Reg.ReadString(''); Reg.CloseKey; Label1.Caption := ValueStr; end

else

ShowMessage('No Default Webbrowser !'); finally

Reg.Free; end

; end

;

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

Категории

Статьи

Советы

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