Difference between revisions of "Windows version"
From HashVB
m (Reverted edit of Bxspkt, changed back to last version by Dee) |
|||
| Line 10: | Line 10: | ||
Version = GetVersion() | Version = GetVersion() | ||
| − | WindowsVersion = (Version And & | + | WindowsVersion = (Version And &HFF&) + (((Version And &HFF00&) \ &H100)) / 100 |
End Function | End Function | ||
| Line 32: | Line 32: | ||
* [http://www.earlsoft.co.uk/api/call.php?name=GetVersion Earlsoft API page] | * [http://www.earlsoft.co.uk/api/call.php?name=GetVersion Earlsoft API page] | ||
* [http://msdn.microsoft.com/library/en-us/sysinfo/base/getversion.asp MSDN page] | * [http://msdn.microsoft.com/library/en-us/sysinfo/base/getversion.asp MSDN page] | ||
| − | |||
Revision as of 14:31, 2 March 2006
| This article is based on Visual Basic 6. Find other Visual Basic 6 articles. |
There is a function in windows that will tell you what version it is running called, unsurprisingly, GetVersion()
The data this returns is not quite as friendly as it could be, so this function converts it to a nice usable value:
Private Declare Function GetVersion Lib "kernel32" () As Long Public Function WindowsVersion() As Single Dim Version As Long Version = GetVersion() WindowsVersion = (Version And &HFF&) + (((Version And &HFF00&) \ &H100)) / 100 End Function
The values for each version of windows are as follows:
| Windows NT 3.51: | 3 |
| Windows 3.1: | 3.1 |
| Windows NT 4: | 4 |
| Windows 95, 98 and ME: | 4.1 |
| Windows 2000: | 5 |
| Windows XP: | 5.01 (This is not 5.1 as Microsoft changed the format) |
