اريد كود لمعرفة أصدار نسخة الويندوز

http://support.microsoft.com/kb/189249

اجابة بعد ثانية من كتابة السؤال :lol:

Public Declare Function GetVersionExA Lib "kernel32" _
			   (lpVersionInformation As OSVERSIONINFO) As Integer

Public Type OSVERSIONINFO
			   dwOSVersionInfoSize As Long
			   dwMajorVersion As Long
			   dwMinorVersion As Long
			   dwBuildNumber As Long
			   dwPlatformId As Long
			   szCSDVersion As String * 128
End Type

Public Declare Function ShellExecute Lib "shell32.dll" _
	Alias "ShellExecuteA" (ByVal hWnd As Long, _
	ByVal lpOperation As String, ByVal lpFile As String, _
	ByVal lpParameters As String, ByVal lpDirectory As String, _
	ByVal nShowCmd As Long) As Long


Public Function getwinOS() As String
	Dim osinfo As OSVERSIONINFO
			   Dim retvalue As Integer

			   osinfo.dwOSVersionInfoSize = 148
			   osinfo.szCSDVersion = Space$(128)
			   retvalue = GetVersionExA(osinfo)

			   With osinfo
			   Select Case .dwPlatformId

				Case 1

					Select Case .dwMinorVersion
						Case 0
							getversion = "Windows 95"
						Case 10
							getversion = "Windows 98"
						Case 90
							getversion = "Windows Millennium"
					End Select

				Case 2
					Select Case .dwMajorVersion
						Case 3
							getversion = "Windows NT 3.51"
						Case 4
							getversion = "Windows NT 4.0"
						Case 5
							If .dwMinorVersion = 0 Then
								getversion = "Windows 2000"
							Else
								getversion = "Windows XP"
							End If
					End Select

				Case Else
				   getversion = "Failed"
				End Select

			   End With

 getwinOS = UCase(getversion)
End Function

ولمعرفة اي service pack أستخدم

osinfo.szCSDVersion

وتوجد نسخ احدث من هذا الكود لمعالجة ويندوز فيستا (متوفةر من خلال البحث في هذا القسم)

شكرا بس ياريت التوضيح حول معرفة السيرفس باك

شكرا جزيلاً تحياتى

http://www.thevbzone.com/modOS_Info.bas

http://www.google.com/search?hl=en&q=o...G=Google+Search