Приветствую, уважаемые кодеры. При написании очередной софтины возникла острая необходимость получить дефаултный UserAgent. На текущий момент располагаю только возможностью определить браузер (где-то с форума выдрал кусок и приукрасил)
Если кто располагает какой информацией, прошу делиться ;D
Код:
Dim $defaultBrowser
$defaultBrowser = RegRead('HKEY_CLASSES_ROOT\http\shell\open\command\', '')
$defaultBrowser = StringTrimLeft($defaultBrowser, 1)
$defaultBrowser = StringMid($defaultBrowser, 1, StringInStr($defaultBrowser, '"') - 1)
TraySetIcon($defaultBrowser)
TrayTip('Браузер по умолчанию', $defaultBrowser, 10, 4)
Sleep(10000)
Если кто располагает какой информацией, прошу делиться ;D