|
|
|
| Title | Use the SysInfo control to get the operating system version |
|---|
| Keywords | SysInfo, OS version, operating system version |
|---|
| Categories | Software Engineering, Windows, Controls |
|---|
|
|
|
Use the SysInfo control's OSPlatform, OSVersion, and OSBuild properties.
This seems to work only in Windows 95/98 and Windows NT.
|
|
Private Sub Form_Load()
Select Case SysInfo1.OSPlatform
Case 0
lblOsVersion.Caption = "Win32s"
Case 1
lblOsVersion.Caption = "Windows 95 / 98"
Case 2
lblOsVersion.Caption = "Windows NT"
End Select
lblOsBuild.Caption = Format$(SysInfo1.OSBuild)
lblOsPlatformId.Caption = Format$(SysInfo1.OSVersion)
End Sub
|
| |
 |
| |
|
