#include <Array.au3>


if _Get_Standardbrowser(False) then
MsgBox(0, "Standardbrowser", ""& @TAB & _Get_Standardbrowser(False) )
Else
	MsgBox(0, "niete", ""& @TAB & _Get_Standardbrowser(False) )
EndIf



;MsgBox(0, "Standardbrowser", "des Systems : "& @TAB & _Get_Standardbrowser(False) )

Func _Get_Standardbrowser($user = True)
    If $user Then
        $key = RegRead("HKEY_CURRENT_USER\Software\Classes\http\shell\open\command","")
    Else
        $key = RegRead("HKEY_CLASSES_ROOT\http\shell\open\command","")
    EndIf
    If StringLeft($key, 1) = '"' Then
        $key = StringMid($key, 2, StringInStr($key, '"', 0, 2) - 2)
    Else
        If StringInStr($key, " ") > 0 Then $key = StringLeft($key, StringInStr($key, " ") - 1)
    EndIf
    If StringLen($key) > 0 Then Return $key
    Return 0
EndFunc