home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #4 / CDRTV2N4.iso / is32.bas < prev    next >
BASIC Source File  |  1996-03-11  |  814b  |  38 lines
  1. Declare Function GetWinPlatform Lib "STKIT416.DLL" () As Long
  2.  
  3. Function IsVer32 () As Integer
  4.     If IsWindows95() Or IsWindowsNT() Then
  5.         IsVer32 = True
  6.     Else
  7.         IsVer32 = False
  8.     End If
  9. End Function
  10.  
  11. Function IsWindows95 () As Integer
  12. '**********************************************************
  13.     Const dwMask95 = &H2&
  14.     If Right$(path, 1) <> "\" Then
  15.         ChDir path + "\"
  16.     Else
  17.         ChDir path
  18.     End If
  19.     ChDir "\"
  20.     If GetWinPlatform() And dwMask95 Then
  21.         IsWindows95 = True
  22.     Else
  23.         IsWindows95 = False
  24.     End If
  25.  
  26. End Function
  27.  
  28. Function IsWindowsNT () As Integer
  29.     Const dwMaskNT = &H1&
  30.     If GetWinPlatform() And dwMaskNT Then
  31.         IsWindowsNT = True
  32.     Else
  33.         IsWindowsNT = False
  34.     End If
  35.  
  36. End Function
  37.  
  38.