andreas wrote:
> Wie lese ich das Betriebsystem bei Visual Basic aus, je nachdem muss
ich
> unterschiedliches installieren?
' Hinweis: Sollten Sie nur im Besitz dieser Text-Datei und nicht
' des zugeh�rigen Projektes sein, gehen Sie folgenderma�en vor:
' 1.) �ffnen Sie Visual Basic
' 2.) Erstellen Sie ein neues Projekt
' 3.) Markieren und kopieren den auf dieser Seite unten stehen-
' den Source-Code
' 4.) F�gen Sie den kopierten Text in Ihr Form ein
' 5.) Erstellen Sie folgende Steuerelemente auf Ihrem Form :
Ein Form: Form1
' 6.) Speichern Sie das ganze ab und starten Sie das Programm
'Dieser Source stammt von http://www.activevb.de
'und kann frei verwendet werden. F�r eventuelle Sch�den
'wird nicht gehaftet.
'Um Fehler oder Fragen zu kl�ren, nutzen Sie bitte unser Forum.
'Ansonsten viel Spa� und Erfolg mit diesem Source !
'Dank an Heino f�r den 2k
Option Explicit
Private Declare Function GetVersionEx Lib "kernel32" Alias _
"GetVersionExA" (lpVersionInformation As OSVERSIONINFO) _
As Long
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Const VER_PLATFORM_WIN32s = 0
Const VER_PLATFORM_WIN32_WINDOWS = 1
Const VER_PLATFORM_WIN32_NT = 2
Private Sub Form_Load()
Dim OSString$, OSVersion As OSVERSIONINFO, BuildNr&
OSVersion.dwOSVersionInfoSize = Len(OSVersion)
Call GetVersionEx(OSVersion)
OSString = "Unbekanntes Betriebssystem"
With OSVersion
If (.dwBuildNumber And &HFFFF&) > &H7FFF Then
BuildNr = (.dwBuildNumber And &HFFFF&) - &H10000
Else
BuildNr = .dwBuildNumber And &HFFFF&
End If
If .dwPlatformId = VER_PLATFORM_WIN32_NT Then
If .dwMajorVersion = 4 Then
OSString = "Windows NT"
ElseIf .dwMajorVersion = 5 Then
OSString = "Windows 2000"
End If
ElseIf .dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
If (.dwMajorVersion > 4) Or _
(.dwMajorVersion = 4 And .dwMinorVersion = 10) Then
If BuildNr = 1998 Then
OSString = "Windows 98"
Else
OSString = "Windows 98 SE"
End If
ElseIf (.dwMajorVersion = 4 And .dwMinorVersion = 0) Then
OSString = "Windows 95"
End If
ElseIf .dwPlatformId = VER_PLATFORM_WIN32s Then
OSString = "Windows 32s"
End If
End With
Me.Caption = OSString
End Sub
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
