#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.8.1
 Author: Scorpio

 Script Function:
	Get the system default browser.

#ce ----------------------------------------------------------------------------

MsgBox(16, "Test", GetBrowser())

Func GetBrowser()
    $Value = RegRead("HKEY_CLASSES_ROOT\HTTP\shell\open\command\", "")
    $Value = StringLeft($Value, StringInStr($Value, ".exe") + 4)
	Return $Value
EndFunc

;Pink
MsgBox(0,"Default Broswer",GetDefaultBroswer())

Func GetDefaultBroswer()
Local Const $ASSOCSTR_EXECUTABLE=0x2
Local Const $shttp = 'http'

Local $hRet = DllCall('shlwapi.dll', 'long', 'AssocQueryStringW', 'dword', 0, 'dword', $ASSOCSTR_EXECUTABLE, 'wstr', $shttp, _
			"wstr", Null, 'wstr', '', 'dword*', Null)

Local $tPath=DllStructCreate("wchar[" & $hRet[6] & "]")
$hRet = DllCall('shlwapi.dll', 'long', 'AssocQueryStringW', 'dword', 0, 'dword', $ASSOCSTR_EXECUTABLE, 'wstr', $shttp, _
			"wstr", Null, 'ptr', DllStructGetPtr($tPath), 'dword*', $hRet[6])
Return DllStructGetData($tPath,1)

EndFunc