home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 November / Chip 11-96.iso / treiber / grafik / datapat / tornado / win311 / tornado.mst < prev    next >
Encoding:
Text File  |  1996-02-29  |  16.6 KB  |  537 lines
  1. '**************************************************************************
  2. '*                       Datapath TORNADO Setup Script
  3. '**************************************************************************
  4.  
  5. ''' $DEFINE DEBUG  ''Define for script development/debugging
  6. ''' $DEFINE AUTODETECT  ''Define when autodetect of 2/4M Tornados implemented
  7.  
  8. '$INCLUDE 'setupapi.inc'
  9. '$INCLUDE 'msdetect.inc'
  10. '$INCLUDE 'msshared.inc'
  11.  
  12. DECLARE FUNCTION Is48MHzVersion LIB "insttor.dll" AS INTEGER
  13. '$IFDEF AUTODETECT
  14. DECLARE FUNCTION MemoryOnBoard LIB "insttor.dll" AS INTEGER
  15. '$ENDIF 'AUTODETECT
  16.  
  17. ''Dialog ID's
  18. CONST WELCOME       = 100
  19. CONST ASKQUIT       = 200
  20. CONST DESTPATH      = 300
  21. CONST EXITFAILURE   = 400
  22. CONST EXITQUIT      = 600
  23. CONST EXITSUCCESS   = 700
  24. CONST OPTIONS       = 800
  25. CONST APPHELP       = 900
  26. CONST OPTHELP       = 1000
  27. CONST VIDEOP        = 1700
  28. CONST VIDEOHELP     = 2000
  29. CONST MAGIDESK      = 2100
  30. CONST WRONGDRVR     = 2200
  31. CONST DRVRTHERE     = 2300
  32. CONST BADPATH       = 6400
  33. CONST MEMSIZEHLP    = 1300
  34. CONST MEMSIZE        = 2700
  35.  
  36. ''Bitmap ID
  37. CONST LOGO = 1
  38.  
  39. GLOBAL DEST$        ''Default destination directory.
  40. GLOBAL UtilsDest$        ''Default destination directory.
  41. GLOBAL SrcDir$
  42. GLOBAL ShareDir$
  43.  
  44. DECLARE SUB Install (INSTVP%,MEDIA%)
  45. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  46.  
  47. INIT:
  48.     CUIDLL$ = "insttor.dll"                ''Custom user interface dll
  49.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  50.  
  51.     SetBitmap CUIDLL$, LOGO
  52.     SetTitle "Datapath TORNADO Installation V1.14"
  53.  
  54.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  55.     IF szInf$ = "" THEN
  56.         szInf$ = GetSymbolValue("STF_CWDDIR") + "TORNADO.INF"
  57.     END IF
  58.     ReadInfFile szInf$
  59.  
  60.     DEST$ = "C:\TORNADO"
  61.      SERIAL_NO$ = "000001"
  62.  
  63. '$IFDEF DEBUG
  64.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  65.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  66.     IF IsDriveValid(WinDrive$) = 0 THEN
  67.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  68.         GOTO QUIT
  69.     END IF
  70. '$ENDIF ''DEBUG
  71.  
  72.  
  73. WELCOME:
  74.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  75.     IF sz$ = "CONTINUE" THEN
  76.         UIPop 1
  77.     ELSE
  78.         GOSUB ASKQUIT
  79.         GOTO WELCOME
  80.     END IF
  81.  
  82.  
  83. VIDEOPOWER:
  84.     
  85.     INSTVP% = 0
  86.     sz$ = UIStartDlg(CUIDLL$, VIDEOP, "FInfoDlgProc", VIDEOHELP, HELPPROC$)
  87.     IF sz$ = "CONTINUE" THEN
  88.         INSTVP% = 1
  89.     END IF
  90.           UIPop 1
  91.  
  92.  
  93. GETMODEL:
  94.     
  95.     MEDIA% = 0
  96. '$IFDEF AUTODETECT
  97.     IF (MemoryOnBoard=2) THEN
  98.         MEDIA%=1
  99.     END IF
  100. '$ENDIF 'AUTODETECT
  101.  
  102. ''    Alternatively we could use a dialog box to ask which model
  103.       sz$ = UIStartDlg(CUIDLL$, MEMSIZE, "FInfoDlgProc", MEMSIZEHLP, HELPPROC$)
  104.         IF sz$ <> "CONTINUE" THEN
  105.         MEDIA% = 1
  106.       END IF
  107.          UIPop 1
  108.  
  109. GETPATH:
  110.     SetSymbolValue "EditTextIn", DEST$
  111.     SetSymbolValue "EditFocus", "END"
  112. GETPATHL1:
  113.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", OPTHELP, HELPPROC$)
  114.     DEST$ = GetSymbolValue("EditTextOut")
  115.  
  116.     IF sz$ = "CONTINUE" THEN
  117.         IF IsDirWritable(DEST$) = 0 THEN
  118.             GOSUB BADPATH
  119.             GOTO GETPATHL1
  120.         END IF
  121.         UIPop 1
  122.     ELSEIF sz$ = "REACTIVATE" THEN
  123.         GOTO GETPATHL1
  124.     ELSEIF sz$ = "BACK" THEN
  125.         UIPop 1
  126.         GOTO VIDEOPOWER
  127.     ELSE
  128.         GOSUB ASKQUIT
  129.         GOTO GETPATH
  130.     END IF
  131.  
  132. 'Check if user already running p9100 driver -- tut tut !
  133. '
  134. CHECKDRIVER:
  135.     szWinDir$ = GetWindowsDir()
  136.     szSrc$    = MAKEPATH(szWinDir,"system.ini")
  137.     szDriver$   = GetIniKeyString(szSrc$,"boot","display.drv")
  138.  
  139.      IF (MID$(szDriver$, 2, 4) = "9100") THEN
  140.        sz$ = UIStartDlg(CUIDLL$, WRONGDRVR, "FInfoDlgProc", 0,"")
  141. ' We exit on continue because this actually corresponds to yes on 
  142. ' that dialog box - ie user wants to quit !  Tidy up later
  143.        IF sz$ = "CONTINUE" THEN
  144.         UIPop 1
  145.             ERROR STFQUIT
  146.             GOTO QUIT
  147.     END IF
  148.         UIPop 1
  149.     END IF    
  150.  
  151. ISDRIVERTHERE:
  152.     ShareDir$ = GetWindowsSysDir()
  153.     szFile$   = MAKEPATH(ShareDir,"p91init.dll")
  154.     IF DoesFileExist(szFile$,femExists) THEN
  155.         sz$ = UIStartDlg(CUIDLL$, DRVRTHERE, "FInfoDlgProc", 0,"")
  156. ' We exit on continue because this actually corresponds to yes on 
  157. ' that dialog box - ie user wants to delete existing drivers !  Tidy up later
  158.         IF sz$ = "CONTINUE" THEN
  159.             RemoveFile szFile$,cmoForce
  160.             szFile$   = MAKEPATH(ShareDir,"p9100_08.drv")
  161.             RemoveFile szFile$,cmoForce
  162.             szFile$   = MAKEPATH(ShareDir,"p9100_16.drv")
  163.             RemoveFile szFile$,cmoForce
  164.             szFile$   = MAKEPATH(ShareDir,"p9100_24.drv")
  165.             RemoveFile szFile$,cmoForce
  166.             szFile$   = MAKEPATH(ShareDir,"p9100_32.drv")
  167.             RemoveFile szFile$,cmoForce
  168.             szFile$   = MAKEPATH(ShareDir,"vddp9100.386")
  169.             RemoveFile szFile$,cmoForce
  170.         END IF
  171.     END IF    
  172.     UIPop 1
  173.         
  174.  
  175.     Install INSTVP%, MEDIA%
  176.  
  177.  
  178. QUIT:
  179.     ON ERROR GOTO ERRQUIT
  180.  
  181.     IF ERR = 0 THEN
  182.     dlg% = MAGIDESK
  183.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  184.     UIPop 1
  185.     
  186.         dlg% = EXITSUCCESS
  187.     ELSEIF ERR = STFQUIT THEN
  188.         dlg% = EXITQUIT
  189.     ELSE
  190.         dlg% = EXITFAILURE
  191.     END IF
  192. QUITL1:
  193.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  194.     IF sz$ = "REACTIVATE" THEN
  195.         GOTO QUITL1
  196.     END IF
  197.     UIPop 1
  198.  
  199.     END
  200.  
  201. ERRQUIT:
  202.     i% = DoMsgBox("Setup sources were corrupted, call (0)332-294441!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  203.     END
  204.  
  205.  
  206.  
  207. BADPATH:
  208.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  209.      IF sz$ = "REACTIVATE" THEN
  210.         GOTO BADPATH
  211.     END IF
  212.     UIPop 1
  213.     RETURN
  214.  
  215.  
  216.  
  217. ASKQUIT:
  218.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  219.  
  220.     IF sz$ = "EXIT" THEN
  221.         UIPopAll
  222.         ERROR STFQUIT
  223.     ELSEIF sz$ = "REACTIVATE" THEN
  224.         GOTO ASKQUIT
  225.     ELSE
  226.         UIPop 1
  227.     END IF
  228.     RETURN
  229.  
  230.  
  231.  
  232. '**
  233. '** Purpose:
  234. '**     Builds the copy list and performs all installation operations.
  235. '** Arguments:
  236. '**     none.
  237. '** Returns:
  238. '**     none.
  239. '*************************************************************************
  240. SUB Install (INSTVP% , MEDIA% ) STATIC 
  241.  
  242.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  243.     CreateDir DEST$, cmoNone
  244.  
  245.     ShareDir$ = GetWindowsSysDir()
  246.  
  247.     SetCopyGaugePosition 40,71
  248.  
  249.     AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  250.     AddSectionFilesToCopyList "windows", SrcDir$, DEST$
  251.     AddSectionFilesToCopyList "DCI", SrcDir$, DEST$
  252.     AddSectionFilesToCopyList "magidesk", SrcDir$, DEST$
  253.  
  254.     IF (MEDIA%) THEN
  255.         AddSectionFilesToCopyList "MEDIA", SrcDir$, DEST$
  256.     ELSE
  257.         AddSectionFilesToCopyList "NORMAL", SrcDir$, DEST$
  258.     END IF
  259.  
  260.     CopyFilesInCopyList
  261.  
  262.     szWinDir$ = GetWindowsDir()
  263.  
  264.     AddSectionFilesToCopyList "ScreenSaver", SrcDir$, szWinDir$
  265.  
  266.     CopyFilesInCopyList
  267.  
  268.     AddSectionFilesToCopyList "onlywinsys", SrcDir$, ShareDir$
  269.     AddSectionFilesToCopyList "DCI", SrcDir$, DEST$
  270.  
  271.     CopyFilesInCopyList
  272.  
  273.  
  274.     UtilsDest$  = MAKEPATH(DEST$,"utils")
  275.     AddSectionFilesToCopyList "pciutils", SrcDir$, UtilsDest$
  276.     CopyFilesInCopyList
  277.  
  278.  
  279.  
  280.     szGroup$ = "DATAPATH"
  281.     szPath$  = ""
  282.     
  283.     CreateProgmanGroup szGroup$,szPath$,cmoNone
  284.  
  285.     szItem$ = "Tornado Monitor Setup"
  286.     szCmd$    = MAKEPATH(DEST$,"tmonitor.EXE")
  287.     szOther$ = ""
  288.  
  289.     CreateProgmanItem szGroup$,szItem$,szCmd$,szOther,cmoOverwrite
  290.  
  291.     szItem$ = "Tornado Control"
  292.     szCmd$    = MAKEPATH(DEST$,"tornadoc.EXE")
  293.     szOther$ = ""
  294.  
  295.     CreateProgmanItem szGroup$,szItem$,szCmd$,szOther,cmoOverwrite
  296.  
  297.     szItem$ = "MagiDesk"
  298.     szCmd$    = MAKEPATH(DEST$,"magidesk.EXE")
  299.     szOther$ = ""
  300.  
  301.     CreateProgmanItem szGroup$,szItem$,szCmd$,szOther,cmoOverwrite
  302.  
  303.  
  304. '*************************************************************************
  305. ' Copy REQUIRED files to windows dir
  306. '*************************************************************************
  307.     szSrc$    = MAKEPATH(DEST$,"tornado.bmp")
  308.     szDest$    = MAKEPATH(szWinDir,"tornado.bmp")
  309.     CopyFile szSrc$,szDest$,cmoOverwrite,0
  310.     szSrc$    = MAKEPATH(DEST$,"tornadoc.hlp")
  311.     szDest$    = MAKEPATH(szWinDir,"tornadoc.hlp")
  312.     CopyFile szSrc$,szDest$,cmoOverwrite,0
  313.     szSrc$    = MAKEPATH(DEST$,"P91INIT.DLL")
  314.     szDest$    = MAKEPATH(ShareDir,"P91INIT.DLL")
  315.     CopyFile szSrc$,szDest$,cmoOverwrite,0
  316.  
  317. ''    if installing for Tornado Media - 2M , then rename the corresponding
  318. ''    2 Mbyte version files to the correct name        
  319.     IF (MEDIA%) THEN
  320.         szDest$   = MAKEPATH(DEST$,"p9x00res.ini")
  321.         IF DoesFileExist(szDest$,femExists) THEN
  322.             RemoveFile szDest$,cmoForce
  323.         END IF
  324.         szDest$   = MAKEPATH(DEST$,"p9x00res.dat")
  325.         IF DoesFileExist(szDest$,femExists) THEN
  326.             RemoveFile szDest$,cmoForce
  327.         END IF
  328.         szDest$   = MAKEPATH(DEST$,"oemsetup.inf")
  329.         IF DoesFileExist(szDest$,femExists) THEN
  330.             RemoveFile szDest$,cmoForce
  331.         END IF
  332.         szSrc$    = MAKEPATH(DEST$,"P9XINI.TM2")
  333.         szDest$    = "P9x00RES.INI"
  334.         RenameFile szSrc$,szDest$
  335.         szSrc$    = MAKEPATH(DEST$,"P9XDAT.TM2")
  336.         szDest$    = "P9x00RES.DAT"
  337.         RenameFile szSrc$,szDest$
  338.         szSrc$    = MAKEPATH(DEST$,"oemsetup.TM2")
  339.         szDest$    = "oemsetup.inf"
  340.         RenameFile szSrc$,szDest$
  341.     END IF
  342.     szSrc$    = MAKEPATH(DEST$,"P9x00RES.DAT")
  343.     szDest$    = MAKEPATH(szWinDir,"P9x00RES.DAT")
  344.     CopyFile szSrc$,szDest$,cmoOverwrite,0
  345.     szSrc$    = MAKEPATH(DEST$,"P9x00res.ini")
  346.     szDest$    = MAKEPATH(szWinDir,"P9x00RES.ini")
  347.     CopyFile szSrc$,szDest$,cmoOverwrite,0
  348.     szSrc$    = MAKEPATH(DEST$,"copro.ini")
  349.     szDest$    = MAKEPATH(szWinDir,"copro.ini")
  350.     CopyFile szSrc$,szDest$,cmoOverwrite,0
  351.  
  352. ''    If user does not have the font files installed already, 
  353. ''    do it now
  354.     szDest$   = MAKEPATH(ShareDir,"cga40850.fon")
  355.     IF DoesFileExist(szDest$,femExists) THEN
  356.         szSrc$    = MAKEPATH(DEST$,"cga40850.fon")
  357.         CopyFile szSrc$,szDest$,cmoOverwrite,0
  358.     END IF
  359.     szDest$   = MAKEPATH(ShareDir,"cga40woa.fon")
  360.     IF DoesFileExist(szDest$,femExists) THEN
  361.         szSrc$    = MAKEPATH(DEST$,"cga40woa.fon")
  362.         CopyFile szSrc$,szDest$,cmoOverwrite,0
  363.     END IF
  364.     szDest$   = MAKEPATH(ShareDir,"cga80850.fon")
  365.     IF DoesFileExist(szDest$,femExists) THEN
  366.         szSrc$    = MAKEPATH(DEST$,"cga80850.fon")
  367.         CopyFile szSrc$,szDest$,cmoOverwrite,0
  368.     END IF
  369.     szDest$   = MAKEPATH(ShareDir,"cga80woa.fon")
  370.     IF DoesFileExist(szDest$,femExists) THEN
  371.         szSrc$    = MAKEPATH(DEST$,"cga80woa.fon")
  372.         CopyFile szSrc$,szDest$,cmoOverwrite,0
  373.     END IF
  374.  
  375.     szDest$   = MAKEPATH(ShareDir,"ega40850.fon")
  376.     IF DoesFileExist(szDest$,femExists) THEN
  377.         szSrc$    = MAKEPATH(DEST$,"ega40850.fon")
  378.         CopyFile szSrc$,szDest$,cmoOverwrite,0
  379.     END IF
  380.     szDest$   = MAKEPATH(ShareDir,"ega40woa.fon")
  381.     IF DoesFileExist(szDest$,femExists) THEN
  382.         szSrc$    = MAKEPATH(DEST$,"ega40woa.fon")
  383.         CopyFile szSrc$,szDest$,cmoOverwrite,0
  384.     END IF
  385.     szDest$   = MAKEPATH(ShareDir,"ega80850.fon")
  386.     IF DoesFileExist(szDest$,femExists) THEN
  387.         szSrc$    = MAKEPATH(DEST$,"ega80850.fon")
  388.         CopyFile szSrc$,szDest$,cmoOverwrite,0
  389.     END IF
  390.     szDest$   = MAKEPATH(ShareDir,"ega80woa.fon")
  391.     IF DoesFileExist(szDest$,femExists) THEN
  392.         szSrc$    = MAKEPATH(DEST$,"ega80woa.fon")
  393.         CopyFile szSrc$,szDest$,cmoOverwrite,0
  394.     END IF
  395.  
  396.     szDest$   = MAKEPATH(ShareDir,"8514sys.fon")
  397.     IF DoesFileExist(szDest$,femExists) THEN
  398.         szSrc$    = MAKEPATH(DEST$,"8514sys.fon")
  399.         CopyFile szSrc$,szDest$,cmoOverwrite,0
  400.     END IF
  401.     szDest$   = MAKEPATH(ShareDir,"8514fix.fon")
  402.     IF DoesFileExist(szDest$,femExists) THEN
  403.         szSrc$    = MAKEPATH(DEST$,"8514fix.fon")
  404.         CopyFile szSrc$,szDest$,cmoOverwrite,0
  405.     END IF
  406.     szDest$   = MAKEPATH(ShareDir,"8514oem.fon")
  407.     IF DoesFileExist(szDest$,femExists) THEN
  408.         szSrc$    = MAKEPATH(DEST$,"8514oem.fon")
  409.         CopyFile szSrc$,szDest$,cmoOverwrite,0
  410.     END IF
  411.     szDest$   = MAKEPATH(ShareDir,"sseriff.fon")
  412.     IF DoesFileExist(szDest$,femExists) THEN
  413.         szSrc$    = MAKEPATH(DEST$,"sseriff.fon")
  414.         CopyFile szSrc$,szDest$,cmoOverwrite,0
  415.     END IF
  416.     szDest$   = MAKEPATH(ShareDir,"seriff.fon")
  417.     IF DoesFileExist(szDest$,femExists) THEN
  418.         szSrc$    = MAKEPATH(DEST$,"seriff.fon")
  419.         CopyFile szSrc$,szDest$,cmoOverwrite,0
  420.     END IF
  421.     szDest$   = MAKEPATH(ShareDir,"courf.fon")
  422.     IF DoesFileExist(szDest$,femExists) THEN
  423.         szSrc$    = MAKEPATH(DEST$,"courf.fon")
  424.         CopyFile szSrc$,szDest$,cmoOverwrite,0
  425.     END IF
  426.     szDest$   = MAKEPATH(ShareDir,"symbolf.fon")
  427.     IF DoesFileExist(szDest$,femExists) THEN
  428.         szSrc$    = MAKEPATH(DEST$,"symbolf.fon")
  429.         CopyFile szSrc$,szDest$,cmoOverwrite,0
  430.     END IF
  431.     szDest$   = MAKEPATH(ShareDir,"smallf.fon")
  432.     IF DoesFileExist(szDest$,femExists) THEN
  433.         szSrc$    = MAKEPATH(DEST$,"smallf.fon")
  434.         CopyFile szSrc$,szDest$,cmoOverwrite,0
  435.     END IF
  436.     szDest$   = MAKEPATH(ShareDir,"roman.fon")
  437.     IF DoesFileExist(szDest$,femExists) THEN
  438.         szSrc$    = MAKEPATH(DEST$,"roman.fon")
  439.         CopyFile szSrc$,szDest$,cmoOverwrite,0
  440.     END IF
  441.     szDest$   = MAKEPATH(ShareDir,"script.fon")
  442.     IF DoesFileExist(szDest$,femExists) THEN
  443.         szSrc$    = MAKEPATH(DEST$,"script.fon")
  444.         CopyFile szSrc$,szDest$,cmoOverwrite,0
  445.     END IF
  446.     szDest$   = MAKEPATH(ShareDir,"modern.fon")
  447.     IF DoesFileExist(szDest$,femExists) THEN
  448.         szSrc$    = MAKEPATH(DEST$,"modern.fon")
  449.         CopyFile szSrc$,szDest$,cmoOverwrite,0
  450.     END IF
  451.  
  452. '*************************************************************************
  453. ' Save original ini files
  454. '*************************************************************************
  455.     szSrc$    = MAKEPATH(szWinDir,"system.ini")
  456.     szDest$    = MAKEPATH(DEST$,"system.sav")
  457.     CopyFile szSrc$,szDest$,cmoNone,0
  458.     szSrc$    = MAKEPATH(szWinDir,"win.ini")
  459.     szDest$    = MAKEPATH(DEST$,"win.sav")
  460.     CopyFile szSrc$,szDest$,cmoNone,0
  461. '' Create section in system.ini for p9100 windows driver
  462.     szSrc$    = MAKEPATH(szWinDir,"system.ini")
  463.     CreateIniKeyValue szSrc$,"P9100.DRV","Resolution","640x480",cmoOverwrite
  464.     CreateIniKeyValue szSrc$,"P9100.DRV","Refresh","60Hz",cmoOverwrite
  465.     CreateIniKeyValue szSrc$,"P9100.DRV","Font","small",cmoOverwrite
  466.     CreateIniKeyValue szSrc$,"P9100.DRV","Cursors","32",cmoOverwrite
  467.     CreateIniKeyValue szSrc$,"P9100.DRV","DevBits","On",cmoOverwrite
  468.     IF (Is48MHzVersion=1) THEN
  469.        CreateIniKeyValue szSrc$,"P9100.DRV","MemClkInDecaKHz","4800",cmoOverwrite
  470.     ELSE
  471.        CreateIniKeyValue szSrc$,"P9100.DRV","MemClkInDecaKHz","5000",cmoOverwrite
  472.     END IF
  473.     CreateIniKeyValue szSrc$,"P9100.DRV","BusType","PCI",cmoOverwrite
  474.     CreateIniKeyValue szSrc$,"P9100.DRV","BoardType","VesaHigh",cmoOverwrite
  475.     CreateIniKeyValue szSrc$,"P9100.DRV","MemAddr","",cmoNone
  476.     CreateIniKeyValue szSrc$,"P9100.DRV","wBase","",cmoNone
  477.     IF (MEDIA%) THEN
  478.         CreateIniKeyValue szSrc$,"P9100.DRV","MemSize","2",cmoOverwrite
  479.     ELSE
  480.         CreateIniKeyValue szSrc$,"P9100.DRV","MemSize","4",cmoOverwrite
  481.     END IF
  482.     CreateIniKeyValue szSrc$,"P9100.DRV","Palette","Standard",cmoOverwrite
  483.     CreateIniKeyValue szSrc$,"P9100.DRV","DacType","IBMRGB525",cmoOverwrite
  484.     CreateIniKeyValue szSrc$,"P9100.DRV","CursorUpdate","Off",cmoOverwrite
  485.     CreateIniKeyValue szSrc$,"P9100.DRV","Cursor","Power",cmoOverwrite
  486.     CreateIniKeyValue szSrc$,"P9100.DRV","Speed","33.00mHz",cmoOverwrite
  487.     CreateIniKeyValue szSrc$,"P9100.DRV","Monitor","VESA",cmoOverwrite
  488.     CreateIniKeyValue szSrc$,"P9100.DRV","DefMode","640x480x8",cmoOverwrite
  489.     CreateIniKeyValue szSrc$,"P9100.DRV","CfgBA","9100",cmoOverwrite
  490.     CreateIniKeyValue szSrc$,"P9100.DRV","OEMString","DATAPATH",cmoOverwrite
  491.     CreateIniKeyValue szSrc$,"P9100.DRV","Manufacturer","DATAPATH",cmoOverwrite
  492.     CreateIniKeyValue szSrc$,"P9100.DRV","Version","1.0",cmoOverwrite
  493.     CreateIniKeyValue szSrc$,"P9100.DRV","TmgFileName","P9X00RES.INI",cmoOverwrite
  494.     CreateIniKeyValue szSrc$,"P9100.DRV","ClockType","TinCan",cmoOverwrite
  495.     CreateIniKeyValue szSrc$,"P9100.DRV","IBM525PLL","ON",cmoOverwrite
  496.     '' Only create section for dci if vcpdci.drv in system
  497.     szDest$   = MAKEPATH(ShareDir,"vcpdci.drv")
  498.     IF DoesFileExist(szDest$,femExists) THEN
  499.         CreateIniKeyValue szSrc$,"drivers","dci","vcpdci",cmoOverwrite
  500.     END IF
  501.  
  502. 'If installing video power support for Video For Windows then modify the ini files
  503.     IF (INSTVP%) THEN
  504.         CreateIniKeyValue szSrc$,"drivers","vids.draw","udh.dll",cmoOverwrite
  505.         CreateIniKeyValue szSrc$,"drivers","vidc.iv32","ir32.dll",cmoOverwrite
  506.         CreateIniKeyValue szSrc$,"drivers","vidc.iv31","ir32.dll",cmoOverwrite
  507.  
  508.         szSrc$    = MAKEPATH(szWinDir,"copro.ini")
  509.         CreateIniKeyValue szSrc$,"VCP","VCPEnable","ON",cmoOverwrite
  510.     END IF
  511.  
  512. END SUB
  513.  
  514.  
  515. '**
  516. '** Purpose:
  517. '**     Appends a file name to the end of a directory path,
  518. '**     inserting a backslash character as needed.
  519. '** Arguments:
  520. '**     szDir$  - full directory path (with optional ending "\")
  521. '**     szFile$ - filename to append to directory
  522. '** Returns:
  523. '**     Resulting fully qualified path name.
  524. '*************************************************************************
  525. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  526.     IF szDir$ = "" THEN
  527.         MakePath = szFile$
  528.     ELSEIF szFile$ = "" THEN
  529.         MakePath = szDir$
  530.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  531.         MakePath = szDir$ + szFile$
  532.     ELSE
  533.         MakePath = szDir$ + "\" + szFile$
  534.     END IF
  535. END FUNCTION
  536.  
  537.