Браузер по умолчанию

Узнаем какой браузер выбран по умолчанию.

Dim regshell As Object
Dim DefaultBrowser As String
regshell = CreateObject("Wscript.Shell")
DefaultBrowser = regshell.regread("HKEY_CLASSES_ROOT\HTTP\shell\open\command\")
DefaultBrowser = LSet(DefaultBrowser, InStr(1, DefaultBrowser, ".exe", vbTextCompare) + 4)
DefaultBrowser = Replace(DefaultBrowser, Chr(34), vbNullString)
MsgBox(IO.Path.GetFileName(DefaultBrowser), , "Браузер по умолчанию")

DefaultBrowser Браузер по умолчанию

googleplus Браузер по умолчанию
livejournal Браузер по умолчанию
  Метки:
  Евгений
  Просмотров: 1 624
  Запись опубликована в 13:05

Есть что сказать? Тогда действуй!


:wink: :twisted: :roll: :oops: :mrgreen: :lol: :idea: :evil: :cry: :arrow: :?: :-| :-o :-P :-D :-? :) :( :!: 8-O 8)