Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » System

Internet Explorer (IE) Version ermitteln

Lizenz:Erster Autor:Letzte Bearbeitung:
FBPSLAdministratorSebastian 19.02.2012

Mit dieser Funktion lässt sich ermitteln, welche Version des MS Internet Explorer auf dem System installiert ist:

#include "windows.bi"

Const BufferLen = 255

' Funktion zum Ermitteln der installierten Internet-Explorer-Version
' Gibt die Version als String zurück. Beispiel: 9.0.8112.16421
Function GetIEVersion () As String

    Dim As Integer result, dataType, dataLen=BufferLen
    Dim As ZString*bufferLen buffer
    Dim As HKEY OpenedKey

    result = RegOpenKeyEx ( _
        HKEY_LOCAL_MACHINE, _
        StrPtr("Software\Microsoft\Internet Explorer"), _
        NULL, _
        KEY_READ, _
        @OpenedKey _
    )
    If (result <> ERROR_SUCCESS) Then
        Print "Error in RegOpenKeyEx. Function returned " & result & "."
        Return ""
    End If

    result = RegQueryValueEx ( _
        OpenedKey, _
        StrPtr("Version"), _
        NULL, _
        @dataType, _
        @buffer, _
        @dataLen _
    )
    Select Case result
        Case ERROR_MORE_DATA:
            Print "Error in RegQueryValueEx: ERROR_MORE_DATA. Value buffer too small (" & BufferLen & ")!"
        Case ERROR_FILE_NOT_FOUND:
            Print "Error in RegQueryValueEx: ERROR_FILE_NOT_FOUND. Version key not found. Could not determine IE version!"
            Return ""
    End Select

    If (dataType <> REG_SZ) Then
        Print "Warning: RegQueryValueEx returned data type different from REG_SZ."
    End If

    result = RegCloseKey ( OpenedKey )
    If (result <> ERROR_SUCCESS) Then
        Print "Error in RegCloseKey. Function returned " & result & "."
        Return ""
    End If

    'Debug:
    'PRINT "DataType=" & dataType
    'PRINT "DataLen=" & dataLen
    'PRINT "Result=" & result

    Return Trim(buffer)

End Function


' === Hauptprogramm ===

dim as string IEVersion = GetIEVersion()

Print "Die installierte Version des Internet Explorers ist "; chr(34); IEVersion; chr(34); "."
Print "Beliebige Taste zum Beenden dr"; chr(129); "cken."
Sleep
End

Die verwendeten WinAPI-Funktionen in der MSDN Library:

Beispiele / Screenshots

IE Version unter Windows 95

IE Version unter Windows 7


Zusätzliche Informationen und Funktionen
  • Das Code-Beispiel wurde am 19.02.2012 von AdministratorSebastian angelegt.
  • Die aktuellste Version wurde am 19.02.2012 von AdministratorSebastian gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen