به دست آوردن نوع یا اسم ویندوز

[AbbasVB]

با سلام
دوستان کسی می دونه چه طوری میشه اسم ویندوز یا نوع اون رو به دست آورد
البته ورژن رو نمی خواهم از یک سری توابع استفاده کردم و با این که ویندوزم 7 هست ولی جواب می دهد که ویندوز NT هست من می خوام اگه اسم ویندوز رو بهم بده البته از خواندن مقادیر ریجستری میشه آون رو به دست آورد ولی من انجوری نمی خوام
دوستان کسی می تونه جواب بده!
با تشکر

[setroyd]

با api میتونی اسم رو به دست بیاری .

[AbbasVB]

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
Private Sub Form_Load()
Dim OSInfo As OSVERSIONINFO, PId As String
Me.AutoRedraw = True
OSInfo.dwOSVersionInfoSize = Len(OSInfo)
Ret& = GetVersionEx(OSInfo)
If Ret& = 0 Then MsgBox "Error Getting Version Information": Exit Sub
Select Case OSInfo.dwPlatformId
Case 0
PId = "Windows 32s "
Case 1
PId = "Windows 95/98"
Case 2
PId = "Windows NT "
End Select
Print "OS: " + PId
Print "Win version:" + Str$(OSInfo.dwMajorVersion) + "." + LTrim(Str(OSInfo.dwMinorVersion))
Print "Build: " + Str(OSInfo.dwBuildNumber)
End Sub


دوست عزیز من از این کد ها استفاده کردم ولی به دردک نخورد!

[hosein3000]

با سلام

دوست عزیز ، ببین بدردت می خوره یا نه ؟؟؟


با تشکر