home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Multimedia Moz…t - The Dissonant Quartet / Microsoft_Multimedia_Mozart_The_Dissonant_Quartet_Microsoft_Home_1993.iso / mozart / msstp / mmperf.inc < prev    next >
Text File  |  1993-07-05  |  4KB  |  181 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.  
  20. ' ***********************************************
  21. ' End customization
  22.  
  23. Declare Sub GetSystemInfo   Lib "mscuistf.dll"
  24. Declare Sub DoSysCheckNoWnd Lib "mscuistf.dll"
  25. Declare Function RunningNT Lib "mscuistf.dll" As Integer
  26.  
  27.  
  28.  
  29.  
  30. FOROPENERS:
  31.  
  32.     SetSymbolValue "DIAG_RAM",    "OK"
  33.     SetSymbolValue "DIAG_WINVER", "OK"
  34.     SetSymbolValue "DIAG_AUDIO",  "OK"
  35.     SetSymbolValue "DIAG_MIDI",   "OK"
  36.     SetSymbolValue "DIAG_VIDEO",  "OK"
  37.     SetSymbolValue "DIAG_CD",     "OK"
  38.  
  39.     ' Note the opening routine in the main script needs to be called INIT.
  40.     GoTo INIT
  41.  
  42.  
  43. SYSCHECK:
  44.     sz$ = UIStartDlg( "mscuistf.dll", 170, "CheckingDlgProc", 0, "" )
  45.  
  46.     szPerfSrcDir$ = GetSymbolValue("STF_SRCDIR")
  47.     szPerfDrive$  = Mid$(szPerfSrcDir$,1,1)
  48.  
  49.     SetSymbolValue "testpath", szPerfDrive$ + ":" + TEST_PATH$
  50.     GetSystemInfo
  51.     DoSysCheckNoWnd
  52.  
  53.     UIPop 1
  54.  
  55.  
  56. SYSCHECK_RAM:
  57.     If RunningNT() = 0 Then
  58.         If GetSymbolValue( "DIAG_RAM" ) = "ERROR" Then
  59.             sz$ = UIStartDlg("mscuistf.dll", 2706, "FInfoDlgProc", 0, "")
  60.  
  61.             If sz$ = "REACTIVATE" THEN
  62.                 GoTo SYSCHECK_RAM
  63.             End If
  64.             UIPop 1
  65.         End If
  66.     End If
  67.                            
  68. SYSCHECK_WINVER:
  69.     If GetSymbolValue( "DIAG_WINVER" ) = "ERROR" Then
  70.         sz$ = UIStartDlg("mscuistf.dll", 2704, "FInfoDlgProc", 0, "")
  71.  
  72.         If sz$ = "REACTIVATE" THEN
  73.         GoTo SYSCHECK_WINVER
  74.         End If
  75.         UIPop 1
  76.     GoTo DIAG_QUIT
  77.     End If
  78.                            
  79. SYSCHECK_AUDIO:
  80.     If GetSymbolValue( "DIAG_AUDIO" ) = "ERROR" Then
  81.         sz$ = UIStartDlg("mscuistf.dll", 2702, "FInfoDlgProc", 0, "")
  82.  
  83.         If sz$ = "REACTIVATE" THEN
  84.         GoTo SYSCHECK_AUDIO
  85.         End If
  86.         UIPop 1
  87. '       GoTo DIAG_QUIT
  88.     End If
  89.                            
  90. SYSCHECK_MIDI:
  91. '       If GetSymbolValue( "DIAG_MIDI" ) = "ERROR" Then
  92. '               sz$ = UIStartDlg("mscuistf.dll", 2703, "FInfoDlgProc", 0, "")
  93. '
  94. '               If sz$ = "REACTIVATE" THEN
  95. '               GoTo SYSCHECK_MIDI
  96. '               End If
  97. '               UIPop 1
  98. '       GoTo DIAG_QUIT
  99. '       End If
  100.                            
  101. SYSCHECK_VIDEO:
  102.     If GetSymbolValue( "DIAG_VIDEO" ) = "ERROR" Then
  103.         sz$ = UIStartDlg("mscuistf.dll", 2707, "FInfoDlgProc", 0, "")
  104.  
  105.         If sz$ = "REACTIVATE" THEN
  106.         GoTo SYSCHECK_VIDEO
  107.         End If
  108.         UIPop 1
  109.     GoTo DIAG_QUIT
  110.     End If
  111.                            
  112. 'SYSCHECK_CDWARN:
  113. '       If GetSymbolValue( "DIAG_CD" ) = "WARN" Then
  114. '               sz$ = UIStartDlg("mscuistf.dll", 4705, "FInfoDlgProc", 0, "")
  115. '
  116. '               If sz$ = "REACTIVATE" THEN
  117. '               GoTo SYSCHECK_CDWARN
  118. '               End If
  119. '               UIPop 1
  120. '       GoTo DIAG_QUIT
  121. '       End If
  122.                            
  123. SYSCHECK_CDERROR:
  124.     If GetSymbolValue( "DIAG_CD" ) = "ERROR" Then
  125.         sz$ = UIStartDlg("mscuistf.dll", 2705, "FInfoDlgProc", 0, "")
  126.  
  127.         If sz$ = "REACTIVATE" THEN
  128.         GoTo SYSCHECK_CDERROR
  129.         End If
  130.         UIPop 1
  131. '       GoTo DIAG_QUIT
  132.     End If
  133.  
  134.  
  135. RETURN
  136.                            
  137.  
  138.  
  139.  
  140.  
  141. UNUSED_ORIG:
  142.     sz$ = UIStartDlg( "mscuistf.dll", 8100, "SysCheckDlgProc", 8103, "FHelpDlgProc" )
  143.     
  144.     If sz$ = "CONTINUE" THEN
  145.         RemoveSymbol "szNetDrive"
  146.         'Remember that the Checking dialog is still here, though hidden.
  147.         UIPop 2
  148.     ElseIf sz$ = "EXIT" THEN
  149.         GoSub ASKQUIT
  150.         GoTo UNUSED_ORIG 
  151.     ElseIf sz$ = "REACTIVATE" THEN
  152.         GoTo UNUSED_ORIG 
  153.         
  154.     Else
  155.         dlg_WHAT_IS% = Val(sz$)
  156.         sb$=GetSymbolValue ("bStatus")
  157.         If sb$ = "ok" THEN
  158.             dlg_WHAT_IS% = dlg_WHAT_IS%+1000        
  159.         ElseIf sb$ = "warning" THEN
  160.             dlg_WHAT_IS% = dlg_WHAT_IS%+2000
  161.         Else
  162.             dlg_WHAT_IS% = dlg_WHAT_IS%+3000
  163.         EndIf
  164.         GoSub WHAT_IS
  165.         GoTo UNUSED_ORIG
  166.     EndIf
  167.  
  168.     RETURN
  169.  
  170.         
  171. WHAT_IS:
  172.     sz$ = UIStartDlg("mscuistf.dll", dlg_WHAT_IS%, "FInfoDlgProc", 0, "")
  173.  
  174.     If sz$ = "REACTIVATE" THEN
  175.     GoTo WHAT_IS
  176.     End If
  177.     UIPop 1
  178.     RETURN
  179.  
  180.  
  181.