[Previous] [TOC] [Next]

Windows Versions

Before we get into system settings and Accessibility Options, I need to emphasize that not all accessibility options are available to all versions of Windows. In this section you can assume that unless otherwise noted, the settings are valid for Windows 95, Windows 98, Windows NT 4, and Windows NT 5. Where exceptions occur, in the sample programs I've added the Microsoft SysInfo Control 6.0 component to the project and added the control to the form. This allows me to check and make sure we're running on a system that supports the given Accessibility setting, as follows:

Dim nOS  As Integer
  Dim nVer As Integer
  Const WINDOWS_95 As Integer = 1
  Const WINDOWS_NT As Integer = 2
  Const VER_95_NT4 As Integer = 4

  With SysInfo1
      nOS = .OSPlatform
      nVer = .OSVersion
  End With

  ' If Windows 95, Windows 98, or Windows NT 5.0
  If (nOS = WINDOWS_95 And nVer >= VER_95_NT4) Or _
      (nOS = WINDOWS_NT And nVer > VER_95_NT4) Then
      ' Check accessibility setting
  End If

[Previous] [TOC] [Next]