Получить версию IE

Советы » Браузер » Получить версию IE

uses

Registry; function

GetIEVersion(Key: string

): string

; var

Reg: TRegistry; begin

Reg := TRegistry.Create; try

Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('SoftwareMicrosoftInternet Explorer', False

); try

Result := Reg.ReadString(Key); except

Result := ''; end

; Reg.CloseKey; finally

Reg.Free; end

; end

; procedure

TForm1.Button1Click(Sender: TObject); begin

ShowMessage('IE-Version: ' + GetIEVersion('Version')[1] + '.' + GetIEVersion('Version')[3]); ShowMessage('IE-Version: ' + GetIEVersion('Version')); // <major version>.<minor version>.<build number>.<sub-build number> end

;

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

Категории

Статьи

Советы

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