home *** CD-ROM | disk | FTP | other *** search
/ Computer Tool Software / soft.iso / mpeg1 / MP011RMT / MPEG.CON < prev    next >
Encoding:
Text File  |  1996-05-16  |  6.7 KB  |  268 lines
  1. '**************************************************************************
  2. '*                       MSSetup
  3. '**************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10. ''Dialog ID's
  11. CONST WELCOME       = 100
  12. CONST ASKQUIT       = 200
  13. CONST DESTPATH      = 300
  14. CONST EXITFAILURE   = 400
  15. CONST EXITQUIT      = 600
  16. CONST EXITSUCCESS   = 700
  17. CONST IOOPTIONS     = 1200       '' IO base address selection dialog
  18. CONST INTOPTIONS    = 1120       '' Interrupt selection dialog
  19. CONST DMAOPTIONS    = 1100       '' DMA Channel selection dialog
  20. CONST TVSOPTIONS    = 1110       '' Give the VGA informatiion
  21. CONST INSTOPTIONS   = 1500       '' Install or Configue selection dialog
  22. CONST APPHELP       = 900        '' Help dialog box
  23. CONST BADPATH       = 6400       '' Bad destination directory dialog box
  24. '' Dialog bitmap icon ID
  25. CONST LOGO = 1
  26.  
  27. ''Global variable declaration
  28. GLOBAL DEST$         '' Default destination directory
  29. GLOBAL BASEIO$       '' I/O address
  30. GLOBAL INTR$         '' Interrupt
  31. GLOBAL DMA$          '' DMA channel
  32. GLOBAL TVSYSTEM$     '' TV is PAL or not
  33. GLOBAL LANGUAGE$     '' Simple chinese or english
  34. GLOBAL SELECTINSTALL$    '' Update configuration or full installation
  35. GLOBAL IOINDEX$
  36. GLOBAL INTINDEX$
  37. GLOBAL DMAINDEX$
  38. GLOBAL TVSINDEX$
  39. GLOBAL LNGINDEX$      '' 1 = Simple chinese , 2 = English
  40. GLOBAL RSTART%
  41.  
  42. DECLARE SUB Install
  43. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  44.  
  45. INIT:
  46.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  47.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  48.     RSTART% = 0
  49.  
  50.     SetBitmap CUIDLL$, LOGO
  51.     SetTitle "MP011RMT Installation"
  52.  
  53.  
  54.     BASEIO$ = "0x280"
  55.     INTR$   =  "11"
  56.     DMA$    =  "6"
  57.     DEST$  =   "C:\MP011RMT"
  58.  
  59. WELCOME:
  60.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  61.     IF sz$ = "CONTINUE" THEN
  62.         UIPop 1
  63.     ELSE
  64.         GOSUB ASKQUIT
  65.         GOTO WELCOME
  66.     END IF
  67.  
  68. ' Get install choice
  69. INOPTION:
  70.    SetSymbolValue "INSTALL","GREYED"
  71.    sz$ = UIStartDlg(CUIDLL$, INSTOPTIONS, "FUpdateDlgProc", APPHELP, HELPPROC$)
  72.    SELECTINSTALL$ = "FALSE"
  73.  
  74.    IF sz$ = "REACTIVATE" THEN
  75.            GOTO INOPTION
  76.    ELSEIF sz$ = "CONFIG" THEN
  77.            UIPop 1
  78.            GOTO IOOPTION
  79.    ELSE
  80.         GOSUB ASKQUIT
  81.         GOTO INOPTION
  82.    END IF
  83.  
  84. ' Get IO Port choice
  85. IOOPTION:
  86.     IOINDEX$ = "1"
  87. IOOPTL1:
  88.     SetSymbolValue "RadioDefault", IOINDEX$
  89.     sz$ = UIStartDlg(CUIDLL$, IOOPTIONS, "FIODlgProc", APPHELP, HELPPROC$)
  90.     BASEIO$ = GetSymbolValue("IOPort")
  91.     IOINDEX$ = GetSymbolValue("ButtonChecked")
  92.  
  93.     IF sz$ = "CONTINUE" THEN
  94.         UIPop(1)
  95.     ELSEIF sz$ = "REACTIVATE" THEN
  96.         GOTO IOOPTL1
  97.  
  98.     ELSEIF sz$ = "BACK" THEN
  99.         UIPop 1
  100.         GOTO INOPTION
  101.     ELSE
  102.         GOSUB ASKQUIT
  103.         GOTO IOOPTION
  104.     END IF
  105.  
  106. ' Get Interrupt choice
  107. INTOPTION:
  108.     INTINDEX$ = "3"
  109. INTOPTL1:
  110.     SetSymbolValue "RadioDefault", INTINDEX$
  111.     sz$ = UIStartDlg(CUIDLL$, INTOPTIONS, "FIntDlgProc", APPHELP, HELPPROC$)
  112.     INTR$ = GetSymbolValue("Interrupt")
  113.     INTINDEX$ = GetSymbolValue("ButtonChecked")
  114.  
  115.     IF sz$ = "CONTINUE" THEN
  116.         UIPop(1)
  117.     ELSEIF sz$ = "REACTIVATE" THEN
  118.         GOTO INTOPTL1
  119.     ELSEIF sz$ = "BACK" THEN
  120.         UIPop 1
  121.         GOTO IOOPTL1
  122.     ELSE
  123.         GOSUB ASKQUIT
  124.         GOTO INTOPTION
  125.     END IF
  126.  
  127. ' Get DMA choice
  128. DMAOPTION:
  129.     DMAINDEX$ = "2"
  130. DMAOPTL1:
  131.     SetSymbolValue "RadioDefault", DMAINDEX$
  132.     sz$ = UIStartDlg(CUIDLL$, DMAOPTIONS, "FDMADlgProc", APPHELP, HELPPROC$)
  133.     DMA$ = GetSymbolValue("DMAChannel")
  134.     DMAINDEX$ = GetSymbolValue("ButtonChecked")
  135.  
  136.     IF sz$ = "CONTINUE" THEN
  137.         UIPop(1)
  138.     ELSEIF sz$ = "REACTIVATE" THEN
  139.         GOTO DMAOPTL1
  140.     ELSEIF sz$ = "BACK" THEN
  141.         UIPop 1
  142.         GOTO INTOPTL1
  143.     ELSE
  144.         GOSUB ASKQUIT
  145.         GOTO DMAOPTION
  146.     END IF
  147.  
  148. ' Get TV SYSTEM information.
  149. TVSOPTION:
  150.     TVSINDEX$ = "1"
  151. TVSOPTL1:
  152.     SetSymbolValue "RadioDefault", TVSINDEX$
  153.     sz$ = UIStartDlg(CUIDLL$, TVSOPTIONS, "FTVSDlgProc", APPHELP, HELPPROC$)
  154.  
  155.     TVSYSTEM$ = GetSymbolValue("TVSystem")
  156.     TVSINDEX$ = GetSymbolValue("ButtonChecked")
  157.  
  158.     IF sz$ = "CONTINUE" THEN
  159.         UIPop(1)
  160.     ELSEIF sz$ = "REACTIVATE" THEN
  161.         GOTO TVSOPTL1
  162.     ELSEIF sz$ = "BACK" THEN
  163.         UIPop 1
  164.         GOTO DMAOPTL1
  165.     ELSE
  166.         GOSUB ASKQUIT
  167.         GOTO TVSOPTION
  168.     END IF
  169.  
  170.    Install
  171.  
  172. QUIT:
  173.    ON ERROR GOTO ERRQUIT
  174.  
  175.    IF ERR = 0 THEN
  176.            dlg% = EXITSUCCESS
  177.    ELSEIF ERR = STFQUIT THEN
  178.            dlg% = EXITQUIT
  179.    ELSE
  180.            dlg% = EXITFAILURE
  181.    END IF
  182.  
  183.    END
  184.  
  185. ERRQUIT:
  186.     i% = DoMsgBox("Setup were corrupted!", " ", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  187.  
  188.     END
  189.  
  190.  
  191.  
  192. BADPATH:
  193.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  194.     IF sz$ = "REACTIVATE" THEN
  195.         GOTO BADPATH
  196.  
  197.     END IF
  198.     UIPop 1
  199.     RETURN
  200.  
  201.  
  202.  
  203. ASKQUIT:
  204.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  205.  
  206.     IF sz$ = "EXIT" THEN
  207.         UIPopAll
  208.         ERROR STFQUIT
  209.     ELSEIF sz$ = "REACTIVATE" THEN
  210.         GOTO ASKQUIT
  211.     ELSE
  212.         UIPop 1
  213.     END IF
  214.     RETURN
  215.  
  216.  
  217. '**
  218. '** Purpose:
  219. '**     Builds the copy list and performs all installation operations.
  220. '** Arguments:
  221. '**     none.
  222. '** Returns:
  223. '**     none.
  224. '*************************************************************************
  225. SUB Install STATIC
  226.  
  227.  
  228. ' Create the MPEG-I.INI file
  229.     ini$ = MakePath(GetWindowsDir(),"MPEG-I.INI")
  230.  
  231. ' create section
  232.     section$ = "System"
  233.  
  234. ' Add the symbols to the MPEG-I.INI file
  235.     CreateIniKeyValue ini$, section$, "BoardAddress", BASEIO$ , cmoOverwrite
  236.     CreateIniKeyValue ini$, section$, "TVSystem", TVSYSTEM$ , cmoOverwrite
  237.  
  238.     section$ = "Video"
  239.     CreateIniKeyValue ini$, section$, "IrqNumber", INTR$ , cmoOverwrite
  240.     CreateIniKeyValue ini$, section$, "DmaChannel", DMA$, cmoOverwrite
  241.  
  242. END SUB
  243.  
  244.  
  245.  
  246. '**
  247. '** Purpose:
  248. '**     Appends a file name to the end of a directory path,
  249. '**     inserting a backslash character as needed.
  250. '** Arguments:
  251. '**     szDir$  - full directory path (with optional ending "\")
  252. '**     szFile$ - filename to append to directory
  253. '** Returns:
  254. '**     Resulting fully qualified path name.
  255. '*************************************************************************
  256. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  257.     IF szDir$ = "" THEN
  258.         MakePath = szFile$
  259.     ELSEIF szFile$ = "" THEN
  260.         MakePath = szDir$
  261.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  262.         MakePath = szDir$ + szFile$
  263.     ELSE
  264.         MakePath = szDir$ + "\" + szFile$
  265.     END IF
  266. END FUNCTION
  267.  
  268.