home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD 24 / PCPLUS115.iso / animator / french / aas / disk1 / animpro.mst < prev    next >
Encoding:
Text File  |  1995-12-19  |  12.8 KB  |  362 lines
  1. '**************************************************************************
  2. '*                       Anim Studio SetUp
  3. '*                       French
  4. '**************************************************************************
  5.  
  6. '$DEFINE DEBUG  ''Define for script development/debugging
  7.  
  8. '$INCLUDE 'setupapi.inc'
  9. '$INCLUDE 'msdetect.inc'
  10.  
  11. CONST CURVER$= "Version 1.1"
  12.  
  13. '' Buttons and Checks
  14.  
  15. CONST IDB_Install =              2000
  16. CONST IDB_Continue =             2001
  17. CONST IDB_Exit =                 2002
  18.  
  19. ''      Dialog IDs
  20.  
  21. CONST IDD_AnimProInstall =         101
  22. CONST IDD_Welcome =                102
  23. CONST IDD_ReWelcome =              103
  24. CONST IDD_Insufficient_Memory =    104
  25. CONST IDD_AskQuit =                105
  26. CONST IDD_AppHelp =                106
  27. CONST IDD_Finished =               107
  28. CONST IDD_Update=                  108
  29.  
  30. ''Bitmap ID's
  31. CONST IDBM_BackGrnd = 999
  32.  
  33. ''Bitmap ID
  34. CONST LOGO = IDBM_BackGrnd
  35.  
  36. GLOBAL DEST$        ''Default destination directory.
  37. GLOBAL OPTCUR$      ''Option selection from option dialog.
  38. GLOBAL WinDir$      ''Windows home directory
  39. GLOBAL WinSysDir$   ''Window's System's directory
  40.  
  41. GLOBAL TempMscuistf$  '' We copy mscuistf.dll over temporary so we know where it is...
  42.  
  43. REM GLOBAL CURVER$      ''Current version
  44.  
  45. DECLARE SUB Install
  46. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  47. DECLARE FUNCTION VflatdPresent LIB "iniupd.DLL" AS INTEGER
  48. DECLARE fUNCTION ExitWindowsExec  LIB "User" (Exec$, Param$) AS INTEGER
  49.  
  50. REM   Initialization of global variables and operations
  51. INIT:
  52.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  53.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  54.  
  55.     REM SetBitmap CUIDLL$, LOGO
  56.     SetTitle "Installation d'Animator Studio"
  57.  
  58.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  59.     SetSymbolValue "SIZEINI", MakePath ( SrcDir$, "size.ini" )
  60.     SetSymbolValue "SourcePath", SrcDir$
  61.     
  62.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  63.     WinDir$ = GetWindowsDir()
  64.     WinSysDir$ = GetWindowsSysDir()
  65.  
  66.     IF szInf$ = "" THEN
  67.         szInf$ = GetSymbolValue("STF_CWDDIR") + "aas.INF"
  68.     END IF
  69.     ReadInfFile szInf$
  70.  
  71.     DEST$ = "C:\animator"      '' Destination drive string.
  72.  
  73. '$IFDEF DEBUG
  74.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  75.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  76.     IF IsDriveValid(WinDrive$) = 0 THEN
  77.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  78.         GOTO QUIT
  79.     END IF
  80. '$ENDIF ''DEBUG
  81.  
  82.     REM /* Check for previous installation */
  83.     if DoesIniSectionExist ("WIN.INI", "AnimatorStudio") = 0 THEN
  84.       GOTO WELCOME_INSTALL
  85.     ENDIF
  86.       
  87. WELCOME_REINSTALL:
  88.     REM /* Check which components have been installed.  Assume they want to
  89.     REM    those components they didn't install last time.  Load previous
  90.     REM    destination drive. */
  91.  
  92.     if DoesiniKeyExist ("WIN.INI", "AnimatorStudio", "Location") THEN 
  93.         DEST$= GetiniKeyString("WIN.INI", "AnimatorStudio", "Location")
  94.     ENDIF
  95.  
  96.     invert%= 0         
  97.  
  98.     IF DoesiniKeyExist ("WIN.INI", "AnimatorStudio", "Version") THEN
  99.         IF GetiniKeyString("WIN.INI", "AnimatorStudio", "Version") < curver$ THEN
  100.             GOTO update_dlg
  101.         ELSE
  102.             GOTO reinstall_dlg
  103.         END IF
  104.     END IF
  105.  
  106.  update_dlg:     
  107.     sz$ = UIStartDlg(CUIDLL$, IDD_ReWelcome, "FInfoDlgProc", IDD_AppHelp, HELPPROC$)
  108.     IF sz$ = "CONTINUE" THEN
  109.         UIPop 1
  110.     ELSE
  111.       IF sz$ = "CANCEL" THEN
  112.           GOSUB ASKQUIT
  113.           GOTO  update_dlg
  114.       ELSE
  115.           GOTO  update_dlg
  116.       END IF
  117.     END IF
  118.     GOTO checkcorrupted
  119.  
  120.  reinstall_dlg:
  121.     sz$ = UIStartDlg(CUIDLL$, IDD_ReWelcome, "FInfoDlgProc", IDD_AppHelp, HELPPROC$)
  122.     IF sz$ = "CONTINUE" THEN
  123.         UIPop 1
  124.     ELSE
  125.       IF sz$ = "CANCEL" THEN
  126.           GOSUB ASKQUIT
  127.           GOTO  reinstall_dlg
  128.       ELSE
  129.           GOTO  reinstall_dlg
  130.       END IF
  131.     END IF
  132.  
  133.  checkcorrupted:
  134.     REM /* Check if previous installation was interrupted.  If so, assume they
  135.     REM    they want to reinstall those components they tried to install before */
  136.     IF GetIniKeyString("WIN.INI", "AnimatorStudio", "Setup Note")= "Incomplete Installation" THEN
  137.       i%= DoMsgBox("RΘinstallation de tous composants recommandΘe. Installations partielles peuvent corrompre fonctionnement d'Animator.", "Installation prΘcΘdente a ΘtΘ interrompue.", MB_OK+MB_TASKMODAL+MB_ICONHAND )
  138.     ENDIF
  139.  
  140.     GOTO PARAMETERSCREEN
  141.     
  142. WELCOME_INSTALL:
  143.     REM /* No previous installation detected.  Display introductory dialog. */
  144.     
  145.     sz$ = UIStartDlg(CUIDLL$, IDD_Welcome, "FInfoDlgProc", IDD_AppHelp, HELPPROC$)
  146.     IF sz$ <> "CANCEL" THEN
  147.         UIPop 1
  148.     ELSE
  149.         GOSUB ASKQUIT
  150.         GOTO WELCOME_INSTALL
  151.     END IF
  152.  
  153.  
  154. PARAMETERSCREEN:
  155.     REM /* This dialog is the main dialog box.  It is passed */
  156.     SetSymbolValue "DestinationDrive", DEST$
  157.     SetSymbolValue "SelectedComponents", OPTCUR$
  158.     SetSymbolValue "VersionNumber", CURVER$
  159. OPTL1:
  160.         
  161.     sz$ = UIStartDlg(CUIDLL$, IDD_AnimProInstall, "FCheckDlgProc", IDD_AppHelp, HELPPROC$)
  162.     DEST$ = GetSymbolValue("DestinationDrive")
  163.     OPTCUR$ = GetSymbolValue("SelectedComponents")
  164.     
  165.     IF sz$ = "INSTALL" THEN
  166.         UIPop(1)
  167.     ELSEIF sz$ = "REACTIVATE" THEN
  168.         GOTO OPTL1
  169.     ELSE
  170.        GOSUB ASKQUIT
  171.        GOTO OPTL1
  172.     END IF
  173.  
  174.     IF OPTCUR$="NNNNNN" THEN
  175.         i%= DoMsgBox("Rien α installer.", "Erreur", MB_OK+MB_TASKMODAL+MB_ICONHAND )
  176.         GOTO OPTL1
  177.     ENDIF
  178.      
  179.     REM /* Run install routine.  This copies all of the selected files and
  180.     REM    of the system parameters */
  181.      
  182.     Install
  183.     
  184.     REM /* Run concluding dialog box */
  185.  
  186.     RESTRT% = RestartListEmpty ()
  187.     Exe$ = WinDir$ + "\_msrstrt.exe"
  188.     Batch$ = WinDir$ + "\_mssetup.bat"
  189.     empty$ = ""
  190. RESTART:
  191.      sz$= UIStartDlg(TempMscuistf$, IDD_Finished, "FInfoDlgProc", IDD_AppHelp, HELPROC$)
  192.      IF sz$ = "CONTINUE" THEN
  193.          I% = ExitWindowsExec (Exe$, empty$)
  194.          IF I% = 0 THEN
  195.             GOTO RESTART
  196.          ELSE
  197.             UIPopAll
  198.          ENDIF
  199.      ELSEIF sz$ = "EXIT" THEN
  200.          UIPopAll
  201.      ELSEIF sz$ = "REACTIVATE" THEN
  202.          GOTO RESTART
  203.      ELSE
  204.          UIPop 1
  205.      ENDIF
  206.  
  207.      END
  208.  
  209. QUIT:
  210.     ON ERROR GOTO ERRQUIT
  211.  
  212.     IF ERR = 0 THEN
  213.         dlg% = EXITSUCCESS
  214.     ELSEIF ERR = STFQUIT THEN
  215.         dlg% = EXITQUIT
  216.     ELSE
  217.         dlg% = EXITFAILURE
  218.     END IF
  219.  
  220.     END
  221.  
  222. ERRQUIT:
  223.     i% = DoMsgBox("Les sources de l'installation sont corrompues.  Contacter Autodesk's Product Support.", "Erreur", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  224.     END
  225.  
  226. BADPATH:
  227.     i%= DoMsgBox("Impossible de crΘer un rΘpertoire cible"+ DEST$, "Bad Path", MB_OK+MB_TASKMODAL+MB_ICONHAND )
  228.     RETURN
  229.  
  230. ASKQUIT:
  231.     sz$ = UIStartDlg(CUIDLL$, IDD_AskQuit, "FQuitDlgProc", 0, "")
  232.  
  233.     IF sz$ = "CANCEL" THEN
  234.           UIPopAll
  235.           ERROR STFQUIT
  236.     ELSEIF sz$ = "REACTIVATE" THEN
  237.           GOTO ASKQUIT
  238.     ELSE
  239.           UIPop 1
  240.     END IF
  241.     RETURN
  242.  
  243. '**
  244. '** Purpose:
  245. '**     Builds the copy list and performs all installation operations.
  246. '** Arguments:
  247. '**     none.
  248. '** Returns:
  249. '**     none.
  250. '*************************************************************************
  251. SUB Install STATIC
  252.  
  253.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  254.     CreateDir DEST$, cmoNone
  255.     
  256.     OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 1
  257.     WriteToLogFile "----------------------------------------------------------"
  258.     WriteToLogFile "An AutoDesk Inc. Product"
  259.     WriteToLogFile "Animator Studio Installation Record - " + CURVER$ + "'"
  260.     WriteToLogFile "  Destination directory: '" + DEST$ + "'"
  261.     WriteToLogFile ""
  262.       
  263.     ini$= MakePath( GetWindowsDir (), "WIN.INI" )
  264.     animini$= MakePath(DEST$, "ANIMPRO.INI")
  265.     
  266.     TempMscuistf$ = MakePath( DEST$, "mscuistf.dll" )
  267.     CopyFile GetSymbolValue("STF_CWDDIR") + "mscuistf.dll", TempMscuistf$, 0, 0
  268.  
  269.     CreateIniKeyValue ini$, "AnimatorStudio", "Location", DEST$ , cmoOverwrite
  270.     CreateIniKeyValue ini$, "AnimatorStudio", "Version", CURVER$ , cmoOverwrite
  271.     CreateIniKeyValue ini$, "AnimatorStudio", "Setup Note", "Incomplete Installation", cmoOverwrite
  272.  
  273.     SetRestartDir WinDir$
  274.     CopyFilesInCopyList
  275.  
  276.     RemoveIniKey ini$, "AnimatorStudio", "Setup Note", cmoNone
  277.  
  278.     CreateProgmanGroup "Autodesk Multimedia", "", cmoNone
  279.     ShowProgmanGroup  "Autodesk Multimedia", 1, cmoNone
  280. REM The following line is for Live Demo Version only
  281. REM Don't remove ... comment out only if not needed - this is not documented in
  282. REM Microsoft's idiotic Setup manual 
  283.     CreateProgmanItem "Autodesk Multimedia", "Info Produit", "write.exe "+DEST$+"\prodinfo.wri", "", cmoOverwrite
  284.     CreateProgmanItem "Autodesk Multimedia", "Animator Studio Lisezmoi", "write.exe "+DEST$+"\readme.wri", "", cmoOverwrite
  285.     IF MID$(OPTCUR$, 1, 1)= "Y" THEN
  286.         CreateProgmanItem "Autodesk Multimedia", "Animator Studio", MakePath(DEST$, "animator.exe"), "" ,cmoOverwrite
  287.          REM clean up this old file from c0     
  288.          IF DoesFileExist (DEST$ + "\flash.exe", femExists) THEN
  289.              RemoveFile DEST$ + "\flash.exe", cmoForce
  290.          ENDIF
  291.          IF DoesFileExist (DEST$ + "\traptxen.gge", femExists) THEN
  292.              RemoveFile DEST$ + "\traptxen.gge", cmoForce
  293.          ENDIF
  294.          IF DoesFileExist (DEST$ + "\fotrap.gge", femExists) THEN
  295.              RemoveFile DEST$ + "\fotrap.gge", cmoForce
  296.          ENDIF
  297.     END IF
  298.     IF MID$(OPTCUR$, 2, 1)= "Y" THEN
  299.         CreateProgmanItem "Autodesk Multimedia", "Animator SoundLab", MakePath(DEST$, "soundlab.exe"), "", cmoOverwrite
  300.     END IF
  301.     IF MID$(OPTCUR$, 3, 1)= "Y" THEN
  302.         CreateProgmanItem "Autodesk Multimedia", "Animator Scriptor", MakePath(DEST$, "scriptor.exe"), "", cmoOverwrite
  303.     END IF
  304.     IF MID$(OPTCUR$, 4, 1)= "Y" THEN
  305.         CreateProgmanItem "Autodesk Multimedia", "Animator Player", MakePath(DEST$, "player.exe"), "", cmoOverwrite
  306.     END IF
  307.  
  308.     REM ************** Window Video .ini setup **************
  309.    WinVidSet:
  310.     IF VflatdPresent() = 0 THEN
  311.        CreateSysIniKeyValue WinDir$ + "system.ini", "386Enh", "device", "dva.386", cmoOverwrite
  312.     END IF
  313. CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.IV32", "ir32.dll", cmoOverwrite
  314. CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.IV31", "ir32.dll", cmoOverwrite
  315. CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.RT21", "ir21.dll", cmoOverwrite
  316. CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.YVU9", "iyvu9.dll", cmoOverwrite
  317. CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.CVID", "iccvid.drv", cmoOverwrite
  318. CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.MSVC", "msvidc.drv", cmoOverwrite
  319. CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.MRLE", "MSRLE.drv", cmoOverwrite
  320. CreateIniKeyValue WinDir$ + "system.ini", "mci", "AVIVideo", "mciavi.drv", cmoOverwrite
  321. CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "WaveMapper", "msacm.drv", cmoOverwrite
  322. CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "MSACM.msadpcm", "msadpcm.acm", cmoOverwrite
  323. CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "MSACM.imaadpcm", "imaadpcm.acm", cmoOverwrite
  324. CreateIniKeyValue WinDir$ + "WIN.INI", "mci extensions", "avi", "AVIVideo", cmoOverwrite
  325. CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "ir21.dll", "Intel Indeo(TM) Video R2.1", cmoOverwrite
  326. CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "msacm.drv", "Microsoft Sound Mapper V2.00", cmoOverwrite
  327. CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "msadpcm.acm", "Microsoft ADPCM Codec V2.00", cmoOverwrite
  328. CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "imaadpcm.acm", "Microsoft IMA ADPCM Codec V2.00", cmoOverwrite
  329.  
  330.  
  331. CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.AASC", "AASC.drv", cmoOverwrite
  332. CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.AFLC", "flccodec.drv", cmoOverwrite
  333. CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.AFLI", "flccodec.drv", cmoOverwrite
  334.  
  335.     CloseLogFile
  336.  
  337. END SUB
  338.  
  339.  
  340.  
  341. '**
  342. '** Purpose:
  343. '**     Appends a file name to the end of a directory path,
  344. '**     inserting a backslash character as needed.
  345. '** Arguments:
  346. '**     szDir$  - full directory path (with optional ending "\")
  347. '**     szFile$ - filename to append to directory
  348. '** Returns:
  349. '**     Resulting fully qualified path name.
  350. '*************************************************************************
  351. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  352.     IF szDir$ = "" THEN
  353.         MakePath = szFile$
  354.     ELSEIF szFile$ = "" THEN
  355.         MakePath = szDir$
  356.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  357.         MakePath = szDir$ + szFile$
  358.     ELSE
  359.         MakePath = szDir$ + "\" + szFile$
  360.     END IF
  361. END FUNCTION
  362.