home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a045 / 1.img / MATINEE.MST < prev    next >
Encoding:
Text File  |  1992-11-05  |  14.4 KB  |  555 lines
  1. '$DEFINE DEBUG
  2.  
  3. '$INCLUDE 'setupapi.inc'
  4. '$INCLUDE 'msdetect.inc'
  5.  
  6. ''Dialog ID's
  7.  
  8. CONST WELCOME                   = 100
  9. CONST ASKQUIT                   = 200
  10. CONST DESTPATH                  = 300
  11. CONST EXITFAILURE               = 400
  12. CONST EXITQUIT                  = 600
  13. CONST EXITSUCCESS               = 700
  14. CONST TOOBIG                    = 750
  15.  
  16. CONST VALIDATESIZE              = 1
  17. CONST VALIDATECHIP              = 2
  18. CONST INIDELETED                        = 3
  19. CONST WINRESTART        = 4
  20. CONST AUTODETECT                =6
  21.  
  22. '' Error IDs
  23.  
  24. CONST ERR_BADVGAMODE            = 8000
  25. CONST ERR_BADCPU                        = 8001
  26. CONST ERR_BADWINDOWSPATH= 8000
  27. CONST ERR_BADPATH                       = 8000
  28.  
  29. ''Bitmap ID
  30.  
  31. CONST LOGO                                      = 1
  32.  
  33. ''Chip sets
  34.  
  35. CONST CIRRUS                            = 100
  36. CONST EVEREX                            = 101
  37. CONST PARADISE                          = 102
  38. CONST TSENG                             = 103
  39. CONST TRIDENT                           = 104
  40. CONST T8900                             = 105
  41. CONST ATIVGA                            = 106
  42. CONST AHEADA                            = 107
  43. CONST AHEADB                            = 108
  44. CONST OAKTECH                           = 109
  45. CONST VIDEO7                            = 110
  46. CONST CHIPSTECH                 = 111
  47. CONST TSENG4                            = 112
  48. CONST GENOA                                     = 113
  49. CONST NCR                                       = 114
  50. CONST COMPAQ                            = 115
  51. CONST UNKNOWN                           = -1
  52.  
  53. ''GetDeviceCaps
  54.  
  55. CONST NUMCOLORS                 = 24
  56. CONST SIZEPALETTE                       = 104
  57.  
  58. '' Global variable declaration
  59.  
  60. GLOBAL DEST$            ''Default destination directory.
  61. GLOBAL WINDIR$          ''Windows directory.
  62. GLOBAL INI$                     ''Windows directory.
  63. GLOBAL CUIDLL$                  ''CUI DLL path
  64.  
  65. '' External function/procedure declaration
  66.  
  67. DECLARE SUB ConfirmQuit
  68. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  69. DECLARE FUNCTION GetVideoInfo LIB "whatvga.dll" () AS INTEGER
  70. DECLARE FUNCTION GetDC LIB "USER.EXE" (hwnd%) AS INTEGER
  71. DECLARE FUNCTION ReleaseDC LIB "USER.EXE" (hwnd%, hdc%) AS INTEGER
  72. DECLARE FUNCTION GetDeviceCaps LIB "GDI.EXE" (hdc%, iCapabilities%) AS INTEGER
  73. DECLARE FUNCTION GetColors() AS INTEGER
  74.  
  75. INIT:
  76.  
  77.     '' Set up the error traps
  78.  
  79.     ON ERROR GOTO ERRQUIT
  80.  
  81.     '' Some common stuff used thru out the install
  82.  
  83.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  84.  
  85.     '' Set up the way the install program looks
  86.  
  87.     SetBitmap CUIDLL$, LOGO
  88.     SetTitle "Matinee Setup"
  89.  
  90.     '' Make sure proper hardware is there
  91.  
  92.     if GetProcessorType() < 3 then
  93.  
  94.         '' We aren't on a 386 or above. FATAL!
  95.  
  96.         error ERR_BADCPU
  97.  
  98.     end if
  99.  
  100.     if GetColors() < 256 then
  101.  
  102.         '' We don't have a VGA driver with 256 colors installed. FATAL!
  103.  
  104.         error ERR_BADVGAMODE
  105.  
  106.     end if
  107.  
  108.     '' Load in the INF file
  109.  
  110.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  111.     IF szInf$ = "" THEN
  112.         szInf$ = GetSymbolValue("STF_CWDDIR") + "MATINEE.INF"
  113.     END IF
  114.     ReadInfFile szInf$
  115.  
  116.     '' Set the size checking mode
  117.  
  118.     i% = SetSizeCheckMode(scmOnIgnore)
  119.  
  120.     '' Check that windows diectory is writable
  121.  
  122.     WINDIR$ = GetWindowsDir()
  123.     i% = IsDirWritable(WINDIR$)
  124.     if i% = 0 then
  125.  
  126.         '' Error: can't write to windows directory. exit.
  127.  
  128.     error ERR_BADWINDOWSPATH
  129.  
  130.     endif
  131.  
  132.     '' setup the ini path
  133.  
  134.     ini$ = MakePath(WINDIR$, "CONTROL.INI")
  135.  
  136. WELCOME:
  137.  
  138.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", 0, "")
  139.     IF sz$ = "CONTINUE" THEN
  140.     UIPop 1
  141.     ELSE
  142.     ConfirmQuit
  143.     GOTO WELCOME
  144.     END IF
  145.  
  146.     '' Do the main thing
  147.  
  148. GETPATH:
  149.  
  150.     '' Set up symbols as parameters for dialog box
  151.  
  152.     SetSymbolValue "EditTextIn", "C:\MATINEE"
  153.     SetSymbolValue "EditFocus", "ALL"
  154.  
  155. GETPATHL1:
  156.  
  157.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", 0, "")
  158.     DEST$ = GetSymbolValue("EditTextOut")
  159.  
  160.     IF sz$ = "CONTINUE" THEN
  161.  
  162.         '' Make sure our target is writable
  163.  
  164.     IF IsDirWritable(DEST$) = 0 THEN
  165.     error ERR_BADPATH
  166.     GOTO GETPATHL1
  167.     END IF
  168.  
  169.     UIPop 1
  170.     ELSEIF sz$ = "REACTIVATE" THEN
  171.     GOTO GETPATHL1
  172.     ELSE
  173.     ConfirmQuit
  174.     GOTO GETPATH
  175.     END IF
  176.  
  177.     '' prepare directories and symbols for them
  178.  
  179.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  180.     CreateDir DEST$, cmoNone
  181.  
  182.     '' Add standard files to the copy list
  183.  
  184. '' i% = DoMsgBox( "Files", "Matinee", MB_OK )
  185.     AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  186. '' i% = DoMsgBox( "Background", "Matinee", MB_OK )
  187.     AddSectionFilesToCopyList "Background", SrcDir$, MakePath(DEST$, "backgrnd")
  188. '' i% = DoMsgBox( "ScreenSaver", "Matinee", MB_OK )
  189.     AddSectionFilesToCopyList "ScreenSaver", SRCDir$, WinDir$
  190.  
  191. '' Determine if there is enough disk space for the installation.
  192. '' DiskSp& will be > 0 if there is NOT enough space. It will be 0 if there
  193. '' is sufficient free disk space for the installation
  194.    DiskSp& = GetCopyListCost( szExtra$, szCosts$, szNeeded$ )
  195.  
  196. '' Tell user how much more space is needed.
  197.    if ( DiskSp& > 0 ) then
  198.         kbytes% = DiskSp& / 1000
  199.         SPC$ = str$( kbytes% )
  200.         SetSymbolValue "SpaceNeeded", SPC$
  201.      sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FTooBigDlgProc", 0, "")
  202.      UIPop 1
  203.      error STFQUIT
  204.    endif
  205.  
  206.     '' Set up the defaults before video DLL selection
  207.  
  208.     VgaType$ = "dib"
  209.     IsDIB$ = "1"
  210.  
  211.     '' Ask the user and see if they want to use auto detect
  212.  
  213. CHECKAUTODETECT:
  214.  
  215.     AddListItem "CheckItemsIn", "ON"
  216.     AddListItem "OptionsGreyed", ""
  217.     sz$ = UIStartDlg(CUIDLL$, AUTODETECT, "FCheckDlgProc", 0, "")
  218.  
  219.     if sz$ = "CONTINUE" then
  220.     UIPop 1
  221.     ELSE
  222.     ConfirmQuit
  223.     GOTO CHECKAUTODETECT
  224.     END IF
  225.  
  226.     if GetListItem("CheckItemsOut", 1) = "ON" then
  227.  
  228.         '' Attempt to detect the VGA chipset type. GetVideoInfo() is in WHATVGA.DLL
  229.  
  230.         VideoType% = GetVideoInfo()
  231.  
  232.     else
  233.         VideoType = 0
  234.     endif
  235.  
  236.     select case VideoType
  237.         case TSENG
  238.             Index$ = "1"
  239.         case TSENG4
  240.             Index$ = "1"
  241.         case TRIDENT
  242.             Index$ = "2"
  243.         case VIDEO7
  244.             Index$ = "3"
  245.         case CIRRUS
  246.             Index$ = "4"
  247.         case COMPAQ
  248.             Index$ = "5"
  249.         case else
  250.             Index$ = "6"
  251.     end select
  252.  
  253. GetType:
  254.  
  255.     '' verify the chip type
  256.  
  257.     SetSymbolValue "RadioDefault", Index$
  258.  
  259. GetTypeL1:
  260.  
  261.     sz$ = UIStartDlg(CUIDLL$, VALIDATECHIP, "FRadioDlgProc", 0, "")
  262.     NewIndex% = val(GetSymbolValue("ButtonChecked"))
  263.  
  264.     IF sz$ = "CONTINUE" THEN
  265.     UIPop 1
  266.     ELSEIF sz$ = "REACTIVATE" THEN
  267.     GOTO GetTypeL1
  268.     ELSEIF sz$ = "BACK" THEN
  269.     UIPop 1
  270.     GOTO GETPATH
  271.     ELSE
  272.     ConfirmQuit
  273.     GOTO GetType
  274.     END IF
  275.  
  276.     Index$ = str$(NewIndex%)
  277.  
  278.     select case NewIndex%
  279.         case 1
  280.             IsDIB$ = "0"
  281.             VgaType$ = "tsg"
  282.         case 2
  283.             IsDIB$ = "0"
  284.             VgaType$ = "tri"
  285.         case 3
  286.             IsDIB$ = "0"
  287.             VgaType$ = "v7"
  288.         case 4
  289.             IsDIB$ = "0"
  290.             VgaType$ = "cir"
  291.         case 5
  292.             IsDIB$ = "0"
  293.             VgaType$ = "cpq"
  294.         case else
  295.             IsDIB$ = "1"
  296.             VgaType$ = "dib"
  297.     end select
  298.  
  299.     '' Determine the speed of the machine. For the moment ignore this and
  300.     '' just use default for rate and simple size selection
  301.  
  302.     '' default for speed
  303.  
  304.     Rate$ = "30"
  305.  
  306.     '' select the size of the player
  307.  
  308.     if VgaType$ = "dib" then
  309.  
  310.         Size$ = "160"
  311.         Small$ = "1"
  312.         Index2$ = "2"
  313.  
  314.     else
  315.  
  316.         Size$ = "320"
  317.         Small$ = "0"
  318.         Index2$ = "1"
  319.  
  320.     end if
  321.  
  322. GetSize:
  323.  
  324.     SetSymbolValue "RadioDefault", Index2$
  325.  
  326. GetSizeL1:
  327.  
  328.     sz$ = UIStartDlg(CUIDLL$, VALIDATESIZE, "FRadioDlgProc", 0, "")
  329.     NewIndex% = val(GetSymbolValue("ButtonChecked"))
  330.  
  331.     IF sz$ = "CONTINUE" THEN
  332.     UIPop 1
  333.     ELSEIF sz$ = "REACTIVATE" THEN
  334.     GOTO GetTypeL1
  335.     ELSEIF sz$ = "BACK" THEN
  336.     UIPop 1
  337.     GOTO GetType
  338.     ELSE
  339.     ConfirmQuit
  340.     GOTO GetSize
  341.     END IF
  342.  
  343.     select case NewIndex%
  344.         case 1
  345.             Small$ = "0"
  346.             Size$ = "320"
  347.         case else
  348.             Small$ = "1"
  349.             Size$ = "160"
  350.     end select
  351.  
  352.     '' Complete the file selection process.
  353.  
  354.     AddSectionKeyFileToCopyList "Drivers", Size$ + VgaType$, SrcDir$, WinDir$
  355.  
  356.     '' Copy the files
  357.  
  358.     CopyFilesInCopyList
  359.  
  360.     '' Set up the ini file
  361.  
  362.     CreateIniKeyValue ini$, "Screen Saver.Matinee", "MPEGPath", DEST$, cmoOverwrite
  363.     CreateIniKeyValue ini$, "Screen Saver.Matinee", "ReelPath", MakePath(DEST$, "Reel.lst"), cmoOverwrite
  364.     CreateIniKeyValue ini$, "Screen Saver.Matinee", "Rate", Rate$, cmoOverwrite
  365.     CreateIniKeyValue ini$, "Screen Saver.Matinee", "Small", Small$, cmoOverwrite
  366.     CreateIniKeyValue ini$, "Screen Saver.Matinee", "Bitmapped", IsDIB$, cmoOverwrite
  367.     CreateIniKeyValue ini$, "Screen Saver.Matinee", "Type", Size$ + VgaType$, cmoOverwrite
  368.     CreateIniKeyValue ini$, "Screen Saver.Matinee", "Playtype", "1", cmoOverwrite
  369.  
  370.    '' Specify the default backdrop as TV. 0=theater;1=TV;2=newspaper
  371.     CreateIniKeyValue ini$, "Screen Saver.Matinee", "Background", "1", cmoOverwrite
  372.  
  373.     '' Set up the backdrop files
  374.     if Small$ = "0" then
  375.         CreateIniKeyValue ini$, "Screen Saver.Matinee", "Bitmap0", MakePath(DEST$, "backgrnd\closeup.bmp") + ",171,124", cmoOverwrite
  376.         CreateIniKeyValue ini$, "Screen Saver.Matinee", "Bitmap1", MakePath(DEST$, "backgrnd\bigtv.bmp") + ",178,178", cmoOverwrite
  377.         CreateIniKeyValue ini$, "Screen Saver.Matinee", "Bitmap2", MakePath(DEST$, "backgrnd\bigpaper.bmp") + ",147,129", cmoOverwrite
  378.       CreateIniKeyValue ini$, "Screen Saver.Matinee", "BackgroundX", "178", cmoOverwrite
  379.       CreateIniKeyValue ini$, "Screen Saver.Matinee", "BackgroundY", "178", cmoOverwrite
  380.     else
  381.         CreateIniKeyValue ini$, "Screen Saver.Matinee", "Bitmap0", MakePath(DEST$, "backgrnd\screen.bmp") + ",246,158", cmoOverwrite
  382.         CreateIniKeyValue ini$, "Screen Saver.Matinee", "Bitmap1", MakePath(DEST$, "backgrnd\tinytv.bmp") + ",248,203", cmoOverwrite
  383.         CreateIniKeyValue ini$, "Screen Saver.Matinee", "Bitmap2", MakePath(DEST$, "backgrnd\scoop.bmp") + ",224,107", cmoOverwrite
  384.       CreateIniKeyValue ini$, "Screen Saver.Matinee", "BackgroundX", "248", cmoOverwrite
  385.       CreateIniKeyValue ini$, "Screen Saver.Matinee", "BackgroundY", "203", cmoOverwrite
  386.     end if
  387.  
  388.    '' Add NULL/default values for other INI file keys
  389.    CreateIniKeyValue ini$, "Screen Saver.Matinee", "Tiled", "0", cmoOverwrite
  390.    CreateIniKeyValue ini$, "Screen Saver.Matinee", "BackgroundPath", "", cmoOverwrite
  391.    CreateIniKeyValue ini$, "Screen Saver.Matinee", "History0", "", cmoOverwrite
  392.    CreateIniKeyValue ini$, "Screen Saver.Matinee", "History1", "", cmoOverwrite
  393.    CreateIniKeyValue ini$, "Screen Saver.Matinee", "History2", "", cmoOverwrite
  394.    CreateIniKeyValue ini$, "Screen Saver.Matinee", "History3", "", cmoOverwrite
  395.    CreateIniKeyValue ini$, "Screen Saver.Matinee", "InsertAfter", "26918", cmoOverwrite
  396.    CreateIniKeyValue ini$, "Screen Saver.Matinee", "Random", "1", cmoOverwrite
  397.    CreateIniKeyValue ini$, "Screen Saver.Matinee", "Overlap", "1", cmoOverwrite
  398.    CreateIniKeyValue ini$, "Screen Saver.Matinee", "Interval", "10", cmoOverwrite
  399.    CreateIniKeyValue ini$, "Screen Saver.Matinee", "PWProtected", "0", cmoOverwrite
  400.  
  401.     '' Add SCR to the executable list
  402.  
  403.     Programs$ = GetIniKeyString("win.ini", "Windows", "Programs")
  404.  
  405.     if instr(lcase$(Programs$), "scr") < 1 then
  406.         Programs$ = Programs$ + " scr"
  407.         CreateIniKeyValue "win.ini", "Windows", "Programs", Programs$, cmoOverwrite
  408.     end if
  409.  
  410.     '' check to see if SCR is an acceptable extention
  411.  
  412.     SCRExt$ = GetIniKeyString("win.ini", "Extensions", "scr")
  413.  
  414.     '' If it is, kill it
  415.  
  416.     if not SCRExt$ = "" then
  417.         RemoveIniKey "win.ini", "Extensions", "scr", cmoNone
  418.  
  419.         '' warn the user of the change
  420.  
  421.         sz$ = UIStartDlg(CUIDLL$, INIDELETED, "FInfoDlgProc", 0, "")
  422.     UIPop 1
  423.  
  424.     end if
  425.  
  426.     ''Create the progman groups and items
  427.  
  428.     MatineeExe$ = MakePath(WINDIR$, "matinee.scr")
  429.     MatineeSetup$ = MatineeExe$
  430.     MatineeRun$ = MatineeExe$ + " /s"
  431.  
  432.     CreateProgmanGroup "Matinee", "", cmoNone
  433.     ShowProgmanGroup  "Matinee", 1, cmoNone
  434.     CreateProgmanItem "Matinee", "Matinee Edit", MatineeSetup$, MatineeExe$ + ",0,24,0," + DEST$, cmoOverwrite
  435.     CreateProgmanItem "Matinee", "Matinee Play", MatineeRun$, MatineeExe$ + ",0,80,0," + DEST$, cmoOverwrite
  436.  
  437.     AddDos5Help "Matinee", "A Windows 3.1 multimidea MPEG screen saver.", cmoNone
  438.  
  439.     '' Exit with the proper dialog box
  440.  
  441. QUIT:
  442.  
  443.     '' choose a dialog depending on exit error condition
  444.  
  445.     IF ERR = 0 THEN
  446.     dlg% = EXITSUCCESS
  447.     ELSEIF ERR = STFQUIT THEN
  448.     dlg% = EXITQUIT
  449.     ELSE
  450.     dlg% = EXITFAILURE
  451.     END IF
  452.  
  453. QUITL1:
  454.  
  455.     '' display a dialog
  456.  
  457.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  458.     IF sz$ = "REACTIVATE" THEN
  459.     GOTO QUITL1
  460.     END IF
  461.  
  462.     UIPop 1
  463.  
  464.     END
  465.  
  466. ERRQUIT:
  467.  
  468.     ' error handler
  469.  
  470.     select case ERR
  471.         case ERR_BADCPU
  472.             i% = DoMsgBox("This machine does not have a 80386 or above CPU.", "Matinee Setup Error", MB_OK)
  473.         case ERR_BADVGAMODE
  474.             i% = DoMsgBox("This system is currently not capable of using 256 colors. Please install a 256 color device driver if available.", "Matinee Setup Error", MB_OK)
  475.         case ERR_BADPATH
  476.             i% = DoMsgBox("The destination path is invalid. Please re-enter.", "Matinee Setup Error", MB_OK)
  477.             resume next
  478.         case ERR_BADWINDOWSPATH
  479.             i% = DoMsgBox("The Windows directory on this machine is unwritable.", "Matinee Setup Error", MB_OK)
  480.         case STFQUIT
  481.         case STFERR
  482.         case else
  483.             i% = DoMsgBox("Fatal error.", "Matinee Setup Error", MB_OK)
  484.     end select
  485.  
  486.     goto QUIT
  487.  
  488. '*************************************************************************
  489. '**
  490. '** Helper routines
  491. '**
  492. '*************************************************************************
  493.  
  494. '**
  495. '** Purpose:
  496. '**     Asks the user whether or not they really want to exit
  497. '** Arguments:
  498. '**             None
  499. '*************************************************************************
  500.  
  501. SUB ConfirmQuit STATIC
  502.  
  503. ConfirmQuitStart:
  504.  
  505.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  506.  
  507.     IF sz$ = "EXIT" THEN
  508.     UIPopAll
  509.     ERROR STFQUIT
  510.     ELSEIF sz$ = "REACTIVATE" THEN
  511.     GOTO ConfirmQuitStart
  512.     ELSE
  513.     UIPop 1
  514.     END IF
  515.  
  516. END SUB
  517.  
  518. '**
  519. '** Purpose:
  520. '**     Appends a file name to the end of a directory path,
  521. '**     inserting a backslash character as needed.
  522. '** Arguments:
  523. '**     szDir$  - full directory path (with optional ending "\")
  524. '**     szFile$ - filename to append to directory
  525. '** Returns:
  526. '**     Resulting fully qualified path name.
  527. '*************************************************************************
  528.  
  529. FUNCTION MakePath(szDir$, szFile$) STATIC AS STRING
  530.  
  531.     IF szDir$ = "" THEN
  532.     MakePath = szFile$
  533.     ELSEIF szFile$ = "" THEN
  534.     MakePath = szDir$
  535.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  536.     MakePath = szDir$ + szFile$
  537.     ELSE
  538.     MakePath = szDir$ + "\" + szFile$
  539.     END IF
  540.  
  541. END FUNCTION
  542.  
  543. '' Determine size of the Windows color palette
  544. FUNCTION GetColors() STATIC AS INTEGER
  545.  
  546.     hdc% = GetDC(0)
  547.  
  548.     i% = GetDeviceCaps(hdc%, SIZEPALETTE)
  549.     
  550.     dummy% = ReleaseDC(0, hdc%)
  551.  
  552.     GetColors = i%
  553.  
  554. END FUNCTION
  555.