home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Musical Instruments / Musical-Instruments.iso / msstp / mmperf.inc < prev    next >
Text File  |  1993-08-26  |  4KB  |  148 lines

  1. ' mmperf.inc
  2. ' Microsoft Multimedia Publishing Group common system diagnostic
  3. ' routines for Setup scripts.
  4. ' Copyright (c) 1993 Microsoft Corporation.
  5.  
  6. ' Development notes:
  7. ' This file should be #included into the main .mst file.
  8. ' The first routine in the main .mst file should be called INIT.
  9. ' The exit confirmation dialog routine should be called DIAG_QUIT.
  10.  
  11. ' You can specify which problems force an exit by adding/removing
  12. ' comments from the lines in this file which read "GoTo DIAG_QUIT."
  13.  
  14. ' The following values should be customized for the specific application:
  15.  
  16. ' Begin customization
  17. ' ***********************************************
  18.  
  19. ' CD-ROM performance test file.  This file needs to be > 1.5MB.
  20. CONST TEST_PATH$ = "\msstp\mmperf.dat"
  21.  
  22.  
  23. ' ***********************************************
  24. ' End customization
  25.  
  26. Declare Sub GetSystemInfo   Lib "mscuistf.dll"
  27. Declare Sub DoSysCheckNoWnd Lib "mscuistf.dll"
  28.  
  29. Declare Function RunningNT Lib "mscuistf.dll" As Integer
  30. Declare Function SymbolDriveIsCD Lib "mscuistf.dll" As Integer
  31.  
  32.  
  33. MMPERFFOROPENERS:
  34.     ' Note the opening routine in the main script needs to be called INIT.
  35.     GoTo INIT
  36.  
  37.  
  38. SYSCHECK:
  39.     SetSymbolValue "testpath", TEST_PATH$
  40.  
  41.     SetSymbolValue "DIAG_RAM",    "OK"
  42.     SetSymbolValue "DIAG_WINVER", "OK"
  43.     SetSymbolValue "DIAG_AUDIO",  "OK"
  44.     SetSymbolValue "DIAG_MIDI",   "OK"
  45.     SetSymbolValue "DIAG_VIDEO",  "OK"
  46.     SetSymbolValue "DIAG_CD",     "OK"
  47.  
  48.     sz$ = UIStartDlg( "mscuistf.dll", 170, "CheckingDlgProc", 0, "" )
  49.  
  50.     szPerfSrcDir$ = GetSymbolValue("STF_SRCDIR")
  51.     szPerfDrive$  = Mid$(szPerfSrcDir$,1,1)
  52.  
  53.     SetSymbolValue "SymbolDrive", szPerfDrive$
  54.     If SymbolDriveIsCD() <> 0 Then
  55.         SetSymbolValue "testpath", szPerfDrive$ + ":" + TEST_PATH$
  56.     Else
  57.         SetSymbolValue "testpath", "NETWORK"
  58.     End If
  59.  
  60.     GetSystemInfo
  61.     DoSysCheckNoWnd
  62.  
  63.     UIPop 1
  64.  
  65.  
  66. SYSCHECK_RAM:
  67.     ' Current RAM check fails under NT, so ignore result in this case.
  68.     If RunningNT() = 0 Then
  69.         If GetSymbolValue( "DIAG_RAM" ) = "ERROR" Then
  70.             sz$ = UIStartDlg("mscuistf.dll", 2706, "FInfoDlgProc", 0, "")
  71.  
  72.             If sz$ = "REACTIVATE" THEN
  73.                 GoTo SYSCHECK_RAM
  74.             End If
  75.             UIPop 1
  76. '            GoTo DIAG_QUIT
  77.         End If
  78.     End If
  79.                            
  80. SYSCHECK_WINVER:
  81.     If GetSymbolValue( "DIAG_WINVER" ) = "ERROR" Then
  82.         sz$ = UIStartDlg("mscuistf.dll", 2704, "FInfoDlgProc", 0, "")
  83.  
  84.         If sz$ = "REACTIVATE" THEN
  85.             GoTo SYSCHECK_WINVER
  86.         End If
  87.         UIPop 1
  88.     GoTo DIAG_QUIT
  89.     End If
  90.                            
  91. SYSCHECK_AUDIO:
  92.     If GetSymbolValue( "DIAG_AUDIO" ) = "ERROR" Then
  93.         sz$ = UIStartDlg("mscuistf.dll", 2702, "FInfoDlgProc", 0, "")
  94.  
  95.         If sz$ = "REACTIVATE" THEN
  96.             GoTo SYSCHECK_AUDIO
  97.         End If
  98.         UIPop 1
  99. '        GoTo DIAG_QUIT
  100.     End If
  101.                            
  102. 'SYSCHECK_MIDI:
  103. '    If GetSymbolValue( "DIAG_MIDI" ) = "ERROR" Then
  104. '        sz$ = UIStartDlg("mscuistf.dll", 2703, "FInfoDlgProc", 0, "")
  105. '
  106. '        If sz$ = "REACTIVATE" THEN
  107. '            GoTo SYSCHECK_MIDI
  108. '        End If
  109. '        UIPop 1
  110. '        GoTo DIAG_QUIT
  111. '    End If
  112.                            
  113. SYSCHECK_VIDEO:
  114.     If GetSymbolValue( "DIAG_VIDEO" ) = "ERROR" Then
  115.         sz$ = UIStartDlg("mscuistf.dll", 2707, "FInfoDlgProc", 0, "")
  116.  
  117.         If sz$ = "REACTIVATE" THEN
  118.             GoTo SYSCHECK_VIDEO
  119.         End If
  120.         UIPop 1
  121.         GoTo DIAG_QUIT
  122.     End If
  123.                            
  124. 'SYSCHECK_CDWARN:
  125. '    If GetSymbolValue( "DIAG_CD" ) = "WARN" Then
  126. '        sz$ = UIStartDlg("mscuistf.dll", 4705, "FInfoDlgProc", 0, "")
  127. '
  128. '        If sz$ = "REACTIVATE" THEN
  129. '            GoTo SYSCHECK_CDWARN
  130. '        End If
  131. '        UIPop 1
  132. '        GoTo DIAG_QUIT
  133. '    End If
  134.                            
  135. SYSCHECK_CDERROR:
  136.     If GetSymbolValue( "DIAG_CD" ) = "ERROR" Then
  137.         sz$ = UIStartDlg("mscuistf.dll", 2705, "FInfoDlgProc", 0, "")
  138.  
  139.         If sz$ = "REACTIVATE" THEN
  140.             GoTo SYSCHECK_CDERROR
  141.         End If
  142.         UIPop 1
  143. '        GoTo DIAG_QUIT
  144.     End If
  145.  
  146.  
  147. RETURN
  148.