vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik:    |   VB-Versionen: VB2005, VB2008, VB201001.09.11
Standardbrowser ermitteln

Diese Funktion ermittelt den im System festgelegten Standard-Browser und gibt den vollständigen Dateinamen und Pfad zurück.

Autor:  Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  1.539 
http://www.tools4vb.de/System:  WinXP, Win7, Win8, Win10, Win11 Beispielprojekt 

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()