Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!Code-Beispiel
Internet Explorer (IE) Version ermitteln
| Lizenz: | Erster Autor: | Letzte Bearbeitung: |
| FBPSL |  Sebastian |  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:
RegOpenKeyEx- RegQueryValueEx
- KEY_READ-Konstante (für RegQueryValueEx)
- RegCloseKey
Beispiele / Screenshots
| Zusätzliche Informationen und Funktionen | |||||||
|---|---|---|---|---|---|---|---|
|
|||||||
Bearbeiten
Versionen