تابع چک سرویس پک 2 بودن ویندوز:



 Public Shared Function ServicePack2Installed() As Boolean

            Dim flag As Boolean = False

            Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microso  ft\Windows NT\CurrentVersion")

            If (Not key Is Nothing) Then

                Dim obj2 As Object = key.GetValue("CSDVersion")

                If (Not obj2 Is Nothing) Then

                    flag = obj2.Equals("Service Pack 2")

                End If

            End If

            Return flag

        End Function


عملکرد تابع خیلی سادست. در مسیر رجیستری که میبینید اطلاعات خیلی خوبی هست که یکیش همین مشخصات ویندوز هست. خیلی راحت با این تابع مقدار CSDVersion رو میخونید و چک می کنید که اگر Service Pack 2 بود تابع مقدار true برگردونه در غیر اینصورت مقدار Flase برگردونده بشه
اگه فرصت کردید به این مسیر در رجیستری سری بزنید میتونید تابع های دیگری رو راحت بنویسید . مثلا نام و ورژن ویندوز - مشخصات نصاب ویندوز - محل نصب ویندوز و ...



HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion