home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch14code / chksys.bas < prev    next >
Encoding:
BASIC Source File  |  1995-08-12  |  791 b   |  23 lines
  1. Attribute VB_Name = "Module1"
  2. ' Global flags section.
  3. Public gDisableAdvanced As Boolean
  4. Sub Main()
  5.     Dim System As Object
  6.     ' You must compile and register the SYSTEM.VBP
  7.     ' project before the following line will run.
  8.     ' See the Chapter 21 directory for SYSTEM.VBP.
  9.     Set System = CreateObject("WinAPI.Information")
  10.     ' Check the system criteria.
  11.     If System.MeetsCriteria(486, 8) = False Then
  12.         ' Set flag to disable some features.
  13.         gbDisableAdvanced = True
  14.         ' Notify user.
  15.         MsgBox ("Your computer does not meet the minimum requirements " & _
  16.             "of 8 megabytes memory and 486 or later processor. " & _
  17.             "Some features have been disabled.")
  18.     Else
  19.         gbDisableAdvanced = False
  20.     End If
  21. End Sub
  22.  
  23.