Standardbrowser ermitteln Mit nachfolgender Funktion können Sie den im System festgelegten Standard-Browser ermitteln. Die Funktion gibt hierbei den vollständigen Dateinamen ...
Autor:   Dieter Otter	Bewertung:	Views:  24.786
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Mit nachfolgender Funktion können Sie den im System festgelegten Standard-Browser ermitteln. Die Funktion gibt hierbei den vollständigen Dateinamen (inkl. Pfad) zurück und zusätzlich noch den Namen (die Bezeichnung), sollte es sich um den MSIE, Netscape oder Opera-Browser handeln.

' Hier die benötigten API-Deklarationen
Declare Function FindExecutable Lib "shell32.dll" _
  Alias "FindExecutableA" ( _
  ByVal lpFile As String, _
  ByVal lpDirectory As String, _
  ByVal lpResult As String) As Long
 
' Diese Funktion ermittelt den im System festgelegten
' Standard-Browser und gibt den Pfad inkl. Dateinamen
' zurück.
' 
' Zusätzlich wird in der Variable sName noch der Name
' des Browsers zurückgegegen
' 
' Ist kein Standard-Browser eingerichtet, so wird ein
' Leerstring zurückgegeben
Public Function StandardBrowser(sName As String) As String
 
  Dim sExe As String
  Dim tmpFile As String
  Dim F As Integer
 
  tmpFile = App.Path + IIf(Right$(App.Path, 1) <> "\", _
    "\", "") + "test~12345.html"
  F = FreeFile
  Close #F: Open tmpFile For Output As #F
  Close #F
  sExe = AnwendungFuerDatei(tmpFile)
  Kill tmpFile
 
  If sExe <> "" Then
    If InStr(LCase$(sExe), "iexplore") > 0 Then
      sName = "Microsoft Internet Explorer"
    ElseIf InStr(LCase$(sExe), "netscape") > 0 Then
      sName = "Netscape Communicator"
    ElseIf InStr(LCase$(sExe), "opera") > 0 Then
      sName = "Opera-Browser"
    Else
      sName = ""
    End If
  End If
 
  StandardBrowser = sExe
End Function
 
' Diese Funktion ermittelt die Standard-Anwendung
' in Verbindung mit einem bestimmten Dateityp
' 
' Die Funktion gibt als Ergebnis den Dateinamen mit
' vollständigen Pfad zurück
' 
' Kann keine assoziierte Anwendung ermittelt werden
' wird ein Leerstring zurückgegeben
 
' Diese Funktion stammt aus einem vorigen Tipp
Public Function AnwendungFuerDatei(ByVal Datei As String) _
  As String
 
  ' Datei: Pfad+Dateinamen einer existierenden Datei
 
  Dim Pfad As String
 
  Pfad = Space$(256)
  FindExecutable Datei, vbNullString, Pfad
  If Pfad <> "" Then
    Pfad = Left$(Pfad, InStr(Pfad, vbNullChar) - 1)
  End If
  If UCase$(Pfad) = UCase$(Datei) Then Pfad = ""
 
  AnwendungFuerDatei = Pfad
End Function

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.