Testing for Default Browser

[DoctorWho]

I need a bit of help - is there a way to test to see if Internet Explorer is set as the default browser? We have a few applications that require ActiveX and therefore Internet Explorer and I would like to change my current installation script to display a message if the user has anything other than IE as their default browser - I don't want to change it for them, just let them know that some applications will not work correctly without IE as the default browser.

Thanks in advance for any assistance.

[UEZ]

Here is a good description which registry values you need to check: http://newoldthing.wordpress.com/2007/03/23/how-does-your-browsers-know-that-its-not-the-default-browser/ or ask Google

Br,

UEZ

Edited August 9, 2011 by UEZ

[DoctorWho]

Thanks UEZ, I'll check it out..

[wakillon]

You can try this

ConsoleWrite ( "-->-- Defaut Browser Path : " & _GetDefaultBrowser ( ) & @Crlf )

Func _GetDefaultBrowser ( )
    $_DefautBrowser = StringRegExp ( RegRead ( "HKEY_CLASSES_ROOT\http\shell\open\command", "" ), '(?s)(?i)"(.*?)"', 3 )
    If Not @error Then Return $_DefautBrowser[0]
EndFunc ;==> _GetDefaultBrowser ( )

[GEOSoft]

I may as well throw in my 2 cents

ConsoleWrite("IE is default = " & _IEisDefault() & @CRLF)

Func _IEisDefault()
    Return StringRegExp(RegRead("HKCR\http\shell\open\command", ""), "(?i)^.+iexplore\.exe.+$", 0)
EndFunc

Edited August 9, 2011 by GEOSoft

[jvanegmond]

I may as well throw in my 2 cents

ConsoleWrite("IE is default = " & _IEisDefault() & @CRLF)

Func _IEisDefault()
    Return StringRegExp(RegRead("HKCR\http\shell\open\command"), "(?i)^.+iexplore\.exe.+$", 0)
EndFunc

RegRead takes 2 parameters, and there is no need for the regexp when StringInStr is enough.

[GEOSoft]

Yes, I had better correct that. StringInStr will work but not with a single call making the return.

In his case StringInStr() would return 37. I want it to return 1 or 0 and still do it in a single call.

[JohnOne]

If I read that article correctly, win xp sets the default browser for (edit)all users

Here;s what I got got 7 and vista.

MsgBox(0, 0, _DefaultBrowser())


Func _DefaultBrowser()
    ;TODO Get path for winxp
    If @OSVersion = "WIN_7" Or @OSVersion = "WIN_VISTA" Then
        $sRegPath = "HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\Associations\UrlAssociations\http\UserChoice\"
    Else
        Return "WIN_XP"
    EndIf
    Return StringReplace(RegRead($sRegPath, "Progid"), "URL", "")
EndFunc   ;==>_DefaultBrowser

Edited August 9, 2011 by JohnOne

[jvanegmond]

Yes, I had better correct that. StringInStr will work but not with a single call making the return.

In his case StringInStr() would return 37. I want it to return 1 or 0 and still do it in a single call.

Bad excuse for more complicated (harder to read, and slower) code. There is no 1 vs. 0 requirement. Function success: Non-zero. Failure: Zero. Very C++. Edited August 9, 2011 by Manadar

[GEOSoft]

Then write it in C++. It won't bother me one bit.

Harder to read? Slower? Hmmmmmm, maybe not.

Edited August 9, 2011 by GEOSoft

[sticks221]

I appreciate that this is an old post but thought that any others stuggling to find a solution to this might appricate the solution I have come up with after much searching, playing and testing. This solution works on Windows XP, 7 (32bit) and 7 (64bit);

[size=4][font=arial,helvetica,sans-serif]Func _GetDefaultBrowser()
local $browserTest1 = RegRead("HKEY_CURRENT_USERSoftwareClientsStartMenuInternet","")
local $browserTest2 = RegRead("HKEY_CLASSES_ROOThttpshellopencommand","")[/font][/size]
[size=4][font=arial,helvetica,sans-serif] if not $browserTest1 = "" Then
$browser = $browserTest1
Else
$browser = $browserTest2
endif[/font][/size]
[size=4][font=arial,helvetica,sans-serif] Select
case StringInStr($browser,"IExplore")
return "Internet Explorer V" & RegRead("HKEY_LOCAL_MACHINESoftwareMicrosoftInternet Explorer","version")
case StringInStr($browser,"Chrome")
return "Chrome V" & RegRead("HKEY_CURRENT_USERSoftwareGoogleUpdate","version")
case StringInStr($browser,"Firefox")
return "Firefox V" & RegRead("HKEY_LOCAL_MACHINESoftwareMozillaMozilla Firefox","CurrentVersion")
case StringInStr($browser,"Opera")
return "Opera V" & FileGetVersion (RegRead("HKEY_CURRENT_USERSoftwareOpera Software","Last CommandLine v2"))
case StringInStr($browser,"Safari")
return "Safari V" & RegRead("HKEY_LOCAL_MACHINESoftwareApple Computer, Inc.Safari","version")
case Else
return "Unsupported (" & $Browser & ")"
EndSelect
EndFunc[/font][/size]
[size=4][font=arial,helvetica,sans-serif]

(This is my first post so apologies if the code post doesnt come out as planned!)

Edited September 10, 2012 by sticks221