home *** CD-ROM | disk | FTP | other *** search
/ cyber.net 2 / cybernet2.ISO / dkdemo / dksetup / dksetup.mst < prev    next >
Text File  |  1995-04-06  |  3KB  |  112 lines
  1. '$DEFINE DEBUG
  2. '$INCLUDE 'dkgen.inc'
  3.  
  4. ' Paths and INI stuff
  5. CONST APPLICATION_EXE_FILE = "dksd2pc.exe"
  6.  
  7. CONST INI_FILE_SOURCE = "WinPath" ' OR "AppPath"
  8.  
  9. CONST APPLICATION_README_FILE = "readme.txt"
  10. CONST STR_README = "Read Me"
  11. CONST STR_MSGCAPTION = "DK Sampler Setup"
  12.  
  13. CONST STR_PRODUCTNAME = "Dorling Kindersley Sampler CDROM"
  14. CONST DEFAULT_INSTALL_PATH = "\DKMM\SAMPLER"
  15.  
  16. DECLARE SUB Install()
  17. DECLARE SUB AddFilesToCopyList(szInstallType$)
  18.  
  19. Init:
  20.     Initialise STR_PRODUCTNAME, DEFAULT_INSTALL_PATH, STR_MSGCAPTION
  21. WelcomeDlg:
  22.     if Welcome() = NAV_BACK then
  23.         ' Don nothing - cant go back
  24.     end if
  25.  
  26.     if TestSystem() = NAV_BACK then
  27.         goto WelcomeDlg
  28.     end if
  29.  
  30.     AddFilesToCopyList "FULL"
  31.  
  32. CommonInstall:
  33.     InitCommonInstall
  34.  
  35.     if szMinimalInstall = "ON" and GetFreeSpaceForDrive(mid$(szDestPath,1,1)) < MINIMUM_DISK_SPACE then
  36.         error ERR_NODISKSPACE
  37.     elseif GetFreeSpaceForDrive(mid$(szDestPath,1,1)) < GetDiskSpaceNeeded( asc(mid$(szDestPath, 1,1))-asc("A")+1 ) then
  38.         error ERR_NODISKSPACE
  39.     end if
  40.  
  41.     UpdateIndeoAVIDrivers
  42.     Install
  43.     UpdateProgramManager STR_PRODUCTNAME, APPLICATION_EXE_FILE, "", APPLICATION_README_FILE, STR_README, 1
  44.  
  45.     EndCommonInstall APPLICATION_README_FILE, 1
  46.  
  47. quit:
  48.     on error goto quit
  49.  
  50.     select case ERR
  51.  
  52.     case 0
  53.         hDlg = IDD_EXITSUCCESS
  54.     case STFQUIT
  55.         hDlg = IDD_EXITQUIT
  56.     case ERR_NODISKSPACE
  57.         hDlg = IDD_NODISKSPACE
  58.     case else
  59.         hDlg = IDD_EXITFAILURE
  60.     end select
  61.  
  62.     UIPop 10
  63. quit2:
  64.     szButton = UIStartDlg(CUIDLL_FILENAME, hDlg, "FInfo0DlgProc", 0, "")
  65.     select case szButton
  66.     case "REACTIVATE"
  67.         goto quit2
  68.     end select
  69.  
  70.     UIPop 1
  71.     goto Finish
  72.  
  73. quitError:
  74.     dButton = DoMsgBox (STR_QUITERROR, STR_MSGCAPTION, MB_OK+MB_TASKMODAL+MB_ICONHAND)
  75.     end
  76.  
  77. Finish:
  78.     DeInitialise
  79.     stop
  80.     end
  81.  
  82.  
  83. Sub Install() STATIC
  84.  
  85.     cursor% = ShowWaitCursor()
  86.     CreateDir szDestPath, cmoNone
  87.     SetRestartDir szDestPath
  88.     RestoreCursor(cursor%)
  89.  
  90.     CopyFilesInCopyList
  91.  
  92.     Run ("regedit.exe /s " + MakePath(szWinPath, "mplayer.reg"))
  93.     Run ("regedit.exe /s " + MakePath(szWinSysPath, "OLE2.reg"))
  94.     Run ("regedit.exe /s " + MakePath(szWinSysPath, "cleanup.reg"))
  95.     Run ("profdisp.exe")
  96. End Sub
  97.  
  98.  
  99. Sub AddFilesToCopyList(szInstallType$) STATIC
  100.  
  101.     cursor% = ShowWaitCursor()
  102.     AddSectionFilesToCopyList "BIN", szSrcBinPath, szDestPath
  103.  
  104.     AddSectionFilesToCopyList "VfW Runtime", szSrcBinPath, szWinSysPath
  105.     AddSectionFilesToCopyList "OLE2", szSrcBinPath, szWinSysPath
  106.     AddSectionFilesToCopyList "ACM Drivers", szSrcBinPath, szWinSysPath
  107.     AddSectionFilesToCopyList "MPlayer", szSrcBinPath, szWinPath
  108.     AddSectionFilesToCopyList "AVICodecs", szSrcBinPath, szWinSysPath
  109.     RestoreCursor(cursor%)
  110. End Sub
  111.  
  112.