Фев 13, 2013 - Уроки Visual Basic.NET Написать комментарий
Браузер по умолчанию
Узнаем какой браузер выбран по умолчанию.
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), , "Браузер по умолчанию")
Похожие записи:
Метки: Браузер по умолчанию
Евгений
Просмотров: 3 692
Запись опубликована в 13:05