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