I’m building a web app running the IDE on a virtual Win XP system (Parallel Desktop on my Mac).
This is because it will be easier to build an app with a connection to MSSQL db.
When running the app from the IDE, it keeps launching the app in IE (v6) with “unsupported browser” error and not launching Chrome which is the default browser on the my XP machine.
I just tried with 2013r3.1 and XP. I see the same problem here. If you don’t mind, please create a Feedback report about this and we will look into it.
Have a peek in the registry & see whats in
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.html
and
HKEY_CLASSES_ROOT\http\shell\open\command
[code]Nom de la cl: HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.html
Nom de la classe:
Heure de dernire criture: 22/10/2013 - 10:38
Valeur 0
Nom: Progid
Type: REG_SZ
Donnes: ChromeHTML
Nom de la cl: HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.html\OpenWithList
Nom de la classe:
Heure de dernire criture: 22/10/2013 - 10:38
Valeur 0
Nom: a
Type: REG_SZ
Donnes: chrome.exe
Valeur 1
Nom: MRUList
Type: REG_SZ
Donnes: ab
Valeur 2
Nom: b
Type: REG_SZ
Donnes: NOTEPAD.EXE
Nom de la cl: HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.html\OpenWithProgids
Nom de la classe:
Heure de dernire criture: 09/10/2013 - 09:06
Valeur 0
Nom: htmlfile
Type: REG_NONE
Donnes:
Valeur 1
Nom: ChromeHTML
Type: REG_NONE
Donnes:
[/code]
Hkey_classes_root:
Nom de la cl: HKEY_CLASSES_ROOT\\http\\shell\\open\\command
Nom de la classe: <Sans classe>
Heure de dernire criture: 22/10/2013 - 12:36
Valeur 0
Nom: <SANS NOM>
Type: REG_SZ
Donnes: "C:\\Program Files\\Google\\Chrome\\Application\\chrome.exe" -- "%1"
Odd since I’d expect the command to be the one from
HKEY_CLASSES_ROOT\http\shell\open\command
If you create a simple desktop app with a listbox on the window & this code in the open event of the listbox what do you get ?
Dim data As String
Dim reg As New RegistryItem("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\FileExts\\.html")
if reg is nil then
Listbox1.addrow "1) nil reg key HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\FileExts\\.html"
else
Listbox1.addrow "1) reg key HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\FileExts\\.html"
end if
Try
Dim userChoiceItem As RegistryItem = reg.Child("UserChoice")
if userChoiceItem is nil then
Listbox1.addrow "2) nil reg key UserChoice"
else
Listbox1.addrow "2) reg key UserChoice"
end if
Dim progID As String = userChoiceItem.Value("Progid")
Listbox1.addrow "3) reg key Progid = " + progid
reg = New RegistryItem("HKEY_CLASSES_ROOT\" + progID + "\\shell\\open\\command")
if reg is nil then
Listbox1.addrow "4) nil reg key " + "HKEY_CLASSES_ROOT\" + progID + "\\shell\\open\\command"
else
data = reg.Value(0)
Listbox1.addrow "4) reg key " + "HKEY_CLASSES_ROOT\" + progID + "\\shell\\open\\command = " + data
end if
Catch err As RegistryAccessErrorException
reg = New RegistryItem("HKEY_CLASSES_ROOT\\http\\shell\\open\\command")
if reg is nil then
Listbox1.addrow "5) nil HKEY_CLASSES_ROOT\\http\\shell\\open\\command"
else
data = reg.Value(0)
Listbox1.addrow "5) reg key " + "HKEY_CLASSES_ROOT\\http\\shell\\open\\command " + data
end if
End Try