Wednesday 14 September 2011

Microsoft Windows Operating System Version Validation (XP


Private Sub GetOperatingSystemVersions()

        Dim OSVersion As System.OperatingSystem = 
         System.Environment.OSVersion
        If OSVersion.Version.Major.ToString.Trim <> "5" Then
            ''Not Windows XP

            System.Windows.MessageBox.Show
("Please Note: Only Computers which are using 
the Microsoft Windows XP System can use this 
Application at this time. The Application will 
be closed.", "Computer Operating System In Use 
Is Not Supported", MessageBoxButton.OK, 
MessageBoxImage.Exclamation)

            ''Stop App
            End
        End If
    End Sub

No comments:

Post a Comment