Rubrik: | VB-Versionen: VB2005, VB2008, VB2010 | 01.09.11 |
Nachfolgende Funktion ermittelt den im System festgelegten Standardbrowser durch Auslesen der Windows-Registrierdatenbank und gibt den vollständigen Pfad inkl. Dateinamen zurück.
Imports Microsoft.Win32
...
''' <summary>
''' Ermittelt den Pfad und Dateinamen des Standard Browsers
''' </summary>
Private Function GetDefaultBrowser() As String
Dim BrowserPath As String = String.Empty
Dim oKey As RegistryKey = Nothing
Try
' Registry-Wert auslesen
oKey = Registry.ClassesRoot.OpenSubKey("HTTP\shell\open\command", False)
' Anführungszeichen entfernen
BrowserPath = oKey.GetValue(Nothing).ToString().ToLower().Replace("""", "")
If Not BrowserPath.EndsWith("exe") Then
' Falls noch Parameter angegeben sind, diese jetzt entfernen
BrowserPath = BrowserPath.Substring(0, BrowserPath.LastIndexOf(".exe") + 4)
End If
Finally
If oKey IsNot Nothing Then
oKey.Close()
End If
End Try
Return BrowserPath
End Function
Aufrufbeispiel:
Dim BrowserPath As String = GetDefaultBrowser()