Option Explicit
 
Private Declare Function VBEX_FileExists Lib "vbex32.dll" _
  Alias "VBFILEEXISTS" (ByVal sFilename As String) As Long
Private Declare Function VBEX_FileVersion Lib "vbex32.dll" _
  Alias "VBFILEVERSION" (ByVal sFilename As String) As String

Private Sub Command1_Click()
  Dim sPath As String
  Dim sVersion As String
  Const HKEY_LOCAL_MACHINE = &H80000002
 
  sPath = fWertLesen(HKEY_LOCAL_MACHINE, _
    "SOFTWAREClassesApplicationsiexplore.exeShellOpenCommand", "")
  If sPath <> "" Then
    sPath = Replace(sPath, Chr$(34), "")
    If InStr(sPath, "%") > 0 Then
      sPath = RTrim$(Left$(sPath, InStr(sPath, "%") - 1))
    End If
 
    If VBEX_FileExists(sPath) Then
      <font color=green>' Version auslesen</font>
      sVersion = VBEX_FileVersion(sPath)
    End If
  End If
End Sub