finding Windows Version

I know there's one at http://www.vbforums.com/showthread.p...hreadid=157607 but when I tryed adding in the ones for the Windows XP and 2000 and such, I just get debugging errors....can someone give me the full codeing of it (with the 2000 and XP in it too)?? thanks.

How about right here, on this very same page...

http://forums.vb-world.net/showthrea...hreadid=157607

it seems like you didn't read all the way thru. I did put that code in, but when I tryed puting in:

VB Code:

.dwMajorVersion = 5 ' win2K or XP 
.dwMinorVersion = 0 ' Win 2000 
.dwMinroVersion = 1 ' Win XP

or something like that, I just get a error, so I wantted to know what the full code with that part in it looks like. thanks

sorry for doing this but....^bump^

You should read my thread, but anyway

put this in a module

VB Code:

'constants returned by OperatingSystem
Global Const Windows95 As Integer = 95
Global Const Windows98 As Integer = 98
Global Const WindowsNT3 As Integer = 3 'v3.51
Global Const WindowsNT4 As Integer = 4
Global Const WindowsXP As Integer = 1

Put this on your form

VB Code:

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 Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVersionInfo) As Integer
 
Public Function OperatingSystem() As Integer
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
      If .dwMinorVersion = 0 Then
         OperatingSystem = Windows95
      ElseIf .dwMinorVersion = 10 Then
         OperatingSystem = Windows98
      End If
   Case 2
      If .dwMajorVersion = 3 Then
         OperatingSystem = WindowsNT3
      ElseIf .dwMajorVersion = 4 Then
         OperatingSystem = WindowsNT4
       ElseIf .dwMinorVersion = 1 Then
         OperatingSystem = WindowsXP ' Win XP
         ElseIf .dwMinorVersion = 0 Then
         OperatingSystem = Windows2000 ' Win 2000
         
         End If
      
   Case Else
      OperatingSystem = 0
End Select
End With
End Function

If you want an image to show, or a message box to pop up, do this :

VB Code:

Private Sub Form_Load()
If OperatingSystem = WindowsXP Then 'what you want it to do. You can change WindowsXP to Windows98, Windows2000 and so on.
End Sub

I just get this error that you see in the picture below :(

http://www.simon-soft.com/images/error.jpg

never mind, I found something at http://www.planetsourcecode.com/vb/s...27682&lngWId=1 that helped me out