Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!Code-Beispiel
Windows-Version ermitteln
| Lizenz: | Erster Autor: | Letzte Bearbeitung: |
| k. A. |  ytwinky |  16.09.2010 |
Der folgende Code ermittelt die Windows-Version, auf der das Programm ausgeführt wird. Erkannt werden alle Windows-Versionen von Windows NT 3.51 über Windows 9x bis hin zu Windows 7.
#Include once "windows.bi"
DIM Erg As Integer
Function GetOSplatform () As Integer
DIM OSV As OSVERSIONINFO
Dim mOsVersion AS String
DIM Erg As Integer
OSV.dwOSVersionInfoSize = sizeof(OSV)'Laenge des UDT angeben
Erg = GetVersionEx(@OSV) 'Funktion aufrufen und
IF Erg <> 0 THEN 'Rueckgabewert abfragen
Select Case OSV.dwPlatformId
Case 0
mOsVersion = "??"
Case 1
Select Case OSV.dwMinorVersion
Case 0
mOsVersion = "95"
Case 10
mOsVersion = "98"
if (OSV.dwBuildNumber and &HFFFF) = 2222 Then
mOsVersion = "98 SE"
end if
Case 90
mOsVersion = "ME"
End Select
Case 2
Select Case OSV.dwMajorVersion
Case 3
mOsVersion = "NT 3.51"
Case 4
mOsVersion = "NT 4.0"
Case 5
Select Case OSV.dwMinorVersion
Case 0
mOsVersion = "2000"
Case 1
mOsVersion = "XP"
Case 2
mOsVersion = "Server 2003"
End Select
Case 6
Select Case OSV.dwMinorVersion
Case 0
mOsVersion = "Vista"
Case 1
mOsVersion = "7"
End Select
End Select
End Select
MessageBox (0, "Windows " + mOsVersion + Chr(10) _
+ Trim(Str (OSV.dwMajorVersion)) + ". " _
+ Trim(Str (OSV.dwMinorVersion)) + ". " _
+ Trim(Str (OSV.dwBuildNumber and &HFFFF)) + " " _
+ Trim (OSV.szCSDVersion), "Version", MB_OK)
END If
GetOSplatform = OSV.dwPlatformId
End Function
Erg = GetOSplatformGeschrieben wurde der Code von volta, der inzwischen eine 
Ergänzung dafür geschrieben hat.
| Zusätzliche Informationen und Funktionen | |||||||
|---|---|---|---|---|---|---|---|
|
|||||||
Bearbeiten
Versionen