به دست آوردن version ویندوز

[داود شهبازی]

با سلام
جهت مشخص نمودن version ویندوز از جهت آنکه xp یا 98 یا 2000 است از چه کدی باید استفاده کرد

[حامد مصافی]

Option Explicit
Private Type OSVERSIONINFOEX
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

Private Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" ( _
lpVersionInformation As OSVERSIONINFOEX) As Long

Public Function GetOSVersion() As String

Dim udtOSVersion As OSVERSIONINFOEX
Dim lMajorVersion As Long
Dim lMinorVersion As Long
Dim lPlatformID As Long
Dim sAns As String


udtOSVersion.dwOSVersionInfoSize = Len(udtOSVersion)
GetVersionEx udtOSVersion
lMajorVersion = udtOSVersion.dwMajorVersion
lMinorVersion = udtOSVersion.dwMinorVersion
lPlatformID = udtOSVersion.dwPlatformId

Select Case lMajorVersion
Case 5
sAns = "Windows 2000"
Case 4
If lPlatformID = VER_PLATFORM_WIN32_NT Then
sAns = "Windows NT 4.0"
Else
sAns = IIf(lMinorVersion = 0, _
"Windows 95", "Windows 98")
End If
Case 3
If lPlatformID = VER_PLATFORM_WIN32_NT Then
sAns = "Windows NT 3.x"
Else
sAns = "Windows 3.x"
End If

Case Else
sAns = "Unknown Windows Version"
End Select

OSVersion = sAns
End Function

[mohsengrisly]

سلام
ببخشیدا اما به جون خودم مطالب مهم را برای همین وقتها جمع اوری کردند :embr:
از تمام دوستان خواهش می کنم قبل از طرح سوال خود یه سری به بخش تاپیک های مهم هم بزنند
مطمئن باشید اینطوری کلی جواب خوب هم پیدا می کنید و منتظر هم نمی مانید فضا هم اشغال نمی شه
با این حال یه سری به اینجا بزنید
جواب شما
http://www.barnamenevis.org/forum/viewtopic.php?t=6822
:موفق: