Windows versions

[bona]

Just will appreciate if anyone tell what will be returned by the GetVersion() function for Windows ME.
The code:

Private Declare Function GetVersion Lib "kernel32" () As Long
Public Function GetWinVersion() As String
Dim Ver As Long, WinVer As Long
Ver = GetVersion()
WinVer = Ver And &HFFFF&
GetWinVersion = Format((WinVer Mod 256) + ((WinVer \ 256) / 100), "Fixed")
End Function

Private Sub Form_Load()

MsgBox "Windows version: " + GetWinVersion
End Sub

And for Windows XP Professional the version is 5.01. Is the Windows XP Home Edition gives the same version?

[The Hobo]

For Windows ME it will be: 4.90

As for XP, I'm not sure, but it should be 5.Something for all versions.

[bona]

Thanks, Hobo.

[prog_tom]

windows 2000 is 5.00