home *** CD-ROM | disk | FTP | other *** search
/ Un Siglo de Tango! / tango.iso / stp / stcheck.inc < prev    next >
Text File  |  1995-09-30  |  2KB  |  92 lines
  1. ' ===================================================================
  2. ' Sierra 3
  3. ' ARCHIVO:    STCHECK.INC
  4. ' PROYECTO:   INSTALAR (Tango!)        VERSION: 0.0
  5. ' CULPABLE:   Sergio D. Llorens        FECHA: 2/8/95
  6. '                                      ULTIMA MODIFICACION: 2/8/95
  7. ' DESCRIPCION: Chequeo del sistema para instalacion de Tango!
  8. ' ===================================================================
  9. CONST CHECKING              = 170
  10. CONST CHECK_CPU             = 171
  11. CONST CHECK_WINVER          = 172
  12. CONST CHECK_VIDEO           = 173
  13. CONST CHECK_RAM             = 174
  14. CONST CHECK_AUDIO           = 175
  15.  
  16. Declare Sub CheckSystem Lib "mscuistf.dll"
  17.  
  18. SYSCHECK:
  19.  
  20.     SetSymbolValue "DIAG_CPU",    "OK"
  21.     SetSymbolValue "DIAG_WINVER", "OK"
  22.     SetSymbolValue "DIAG_VIDEO",  "OK"
  23.     SetSymbolValue "DIAG_RAM",    "OK"
  24.     SetSymbolValue "DIAG_AUDIO",  "OK"
  25.  
  26.  
  27.     sz$ = UIStartDlg( "mscuistf.dll", CHECKING, "FCheckingDlgProc", 0, "" )
  28.  
  29.     CheckSystem
  30.  
  31.     UIPop 1
  32.  
  33. ' --- CPU < 386: Aborta instalaci≤n
  34. SYSCHECK_CPU:
  35.     If GetSymbolValue( "DIAG_CPU" ) = "ERROR" Then
  36.         sz$ = UIStartDlg("mscuistf.dll", CHECK_CPU, "FInfoDlgProc", 0, "")
  37.  
  38.         If sz$ = "REACTIVATE" THEN
  39.             GoTo SYSCHECK_CPU
  40.         End If
  41.         UIPop 1
  42. '    GoTo QUIT_FAILURE
  43.     End If
  44.  
  45. ' --- WinVer < 3.1: Aborta instalaci≤n
  46. SYSCHECK_WINVER:
  47.     If GetSymbolValue( "DIAG_WINVER" ) = "ERROR" Then
  48.         sz$ = UIStartDlg("mscuistf.dll", CHECK_WINVER, "FInfoDlgProc", 0, "")
  49.  
  50.         If sz$ = "REACTIVATE" THEN
  51.             GoTo SYSCHECK_WINVER
  52.         End If
  53.         UIPop 1
  54. '    GoTo QUIT_FAILURE
  55.     End If
  56.  
  57. ' --- Video no se banca 256 colores o mas: Continua instalaci≤n
  58. SYSCHECK_VIDEO:
  59.     If GetSymbolValue( "DIAG_VIDEO" ) = "ERROR" Then
  60.         sz$ = UIStartDlg("mscuistf.dll", CHECK_VIDEO, "FInfoDlgProc", 0, "")
  61.  
  62.         If sz$ = "REACTIVATE" THEN
  63.             GoTo SYSCHECK_VIDEO
  64.         End If
  65.         UIPop 1
  66.     End If
  67.  
  68. ' --- RAM < 4MB: Continua instalaci≤n
  69. SYSCHECK_RAM:
  70.         If GetSymbolValue("DIAG_RAM" ) = "ERROR" Then
  71.             sz$ = UIStartDlg("mscuistf.dll", CHECK_RAM, "FInfoDlgProc", 0, "")
  72.  
  73.             If sz$ = "REACTIVATE" THEN
  74.                 GoTo SYSCHECK_RAM
  75.             End If
  76.             UIPop 1
  77.         End If
  78.  
  79. ' --- No hay plaqueta de audio: Continua instalaci≤n
  80. SYSCHECK_AUDIO:
  81.     If GetSymbolValue( "DIAG_AUDIO" ) = "ERROR" Then
  82.         sz$ = UIStartDlg("mscuistf.dll", CHECK_AUDIO, "FInfoDlgProc", 0, "")
  83.  
  84.         If sz$ = "REACTIVATE" THEN
  85.             GoTo SYSCHECK_AUDIO
  86.         End If
  87.         UIPop 1
  88.     End If
  89.  
  90. RETURN
  91.  
  92.