home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
A World of Art - The Ult…ate Multimedia Collection
/
EEA_RenaissanceMastersVol1.bin
/
setup.inf
< prev
next >
Wrap
Text File
|
1995-02-17
|
12KB
|
335 lines
SetVariable(ProgPath,"C:\TDC")
SetVariable(ProgName,"RM1.EXE")
SetVariable(InstallName, "Renaissance Masters Vol. I")
SetVariable(DataSpace,"1.7 Megabytes")
SetVariable(ProgSpace,"1.1 Megabytes")
SetVariable(EbookSize, 1 100 000)
SetVariable(DataSize, 1 700 000)
SetVariable(TitleName,"Renaissance Masters Vol. I")
SetVariable(IniName,"RM1EA.INI")
GetCurPath (CurPath)
; The following instructions are displayed several times so we put the
; text in a variable.
;
SetVariable (InsAskPath,
"Modify the default path if necessary, and then click on {\b OK} or "
"press {\b Enter} to continue. ")
SetVariable (InsBadPath,
"The path is currently not valid. You must specify a drive "
"letter, a colon, and a directory from the root of the drive. ")
; Set the title of all dialog windows.
;
WindowTitle (<InstallName>" Setup")
; Set the instruction text used in the initial instructions window.
; Add Help instructions if the file SETUP.HLP exists.
;
SetVariable (InitialInstructions,
"Click on {\b OK} or press {\b Enter} to continue. "
"To abort the setup, click on the {\b Exit} button at the "
"bottom right corner of the screen, or press {\b F3}. ")
IfFileExistsGoto ("SETUP.HLP", AddHelpInstructions)
Goto (DisplayInitialMessage)
AddHelpInstructions:
SetVariable (InitialInstructions,
<InitialInstructions> "You can always obtain help by "
"clicking on the {\b Help} button or pressing {\b F1}. ")
; Display the initial message.
;
DisplayInitialMessage:
DisplayMessage (
"The Setup program will install the " <InstallName> " on your hard disk."
" There are two options available for installation:%n%n"
"Run " <InstallName> " Entirely off of the CD-ROM.%n%n"
"Copy " <ProgName> " to your Hard Disk to improve execution speed.%n%n",
<InitialInstructions>)
;ask if user wants to copy the ebook files to hard disk
AskYesNo (Prompt, "Yes",
"The " <TitleName> " files require about " <ProgSpace> " of disk "
"space. Would you like to copy them to your hard disk?",
<TitleName> " Can be run from the CD-ROM, but copying it to your "
"Hard disk will improve execution speed.\par\par "
"Click on {\b Yes} or press {\b 'Y'} to copy the " <TitleName>
" files.\par "
"Click on {\b No} or press {\b 'N'} to proceed without copying the "
<TitleName> " source files.")
IfEqualGoto (<Prompt>, "No", DontPromptTitlePath)
AskAgain:
; Ask for where the Ebook files should be installed.
;
PromptEbookPath:
PromptPath (ProgPath, <ProgPath>,
"Where should Setup install the Program files?",
<InsAskPath>, <InsBadPath>)
; Don't allow Ebook to be installed in the Windows directory
;
GetWinPath (WinPath)
GetWinSystemPath (SystemPath)
IfNotEqualGoto (<ProgPath>, <WinPath>, CheckSpace)
DisplayMessage (
"You cannot install this program into the Windows directory. "
"Please enter another directory.",
"Click on {\b OK} or press {\b Enter} to enter another directory "
"for this program.")
Goto (PromptEbookPath)
; Check if there is enough space to install the Ebook files.
;
CheckSpace:
GetSpaceAvailable (SpaceAvailable, <ProgPath>)
IfLowerGoto (<EbookSize>, <SpaceAvailable>, EbookPathOK)
AskYesNo (Prompt, "Yes",
"There may not be enough space to install the "<InstallName>" Files."
" Would you like to enter a new path for the files? ",
"Click on {\b Yes} or press {\b 'Y'} to enter a new path for the "
"program files.\par "
"Click on {\b No} or press {\b 'N'} to continue anyway.\par "
"Click on the {\b Exit} button or press {\b F3} to exit Setup. "
"You may wish to exit Setup and make some more space on your hard "
"disk. Run Setup again when there is enough space on your hard "
"disk. ")
IfEqualGoto (<Prompt>, "Yes", PromptEbookPath)
EbookPathOK:
;create the subdirectory
MakePath(<ProgPath>)
;copy the ebook files
OpenCopyProgress(
"Setup is copying the "<InstallName> " Program files.",
"Please wait while Setup is copying files.")
CopyFile("RM1.EXE",<ProgPath> "RM1.EXE", 250000)
CopyFile("TITLE.DIB",<ProgPath> "TITLE.DIB", 93000)
CopyFile("TITLE.WAV",<ProgPath> "TITLE.WAV", 550000)
CopyFile("TDCEEA.HLP",<ProgPath> "TDCEEA.HLP",50000)
CopyFile("INTRO.EXE",<ProgPath> "INTRO.EXE",50000)
CopyFile("TDC.BMP",<ProgPath> "TDC.BMP",50000)
CopyFile("TDC.ICO",<ProgPath> "TDC.ICO",50000)
CloseCopyProgress()
SetVariable(DataPath,<CurPath>"DATA")
GoTo(EbookCopied)
DontPromptTitlePath:
SetVariable(DataPath,<CurPath>"DATA")
SetVariable(ProgPath,<CurPath>)
GoTo(EbookNotCopied)
EbookCopied:
SetVariable(ProgPath,<ProgPath>)
EbookNotCopied:
;copy the ebook.ini file and add the paths
AddToProfileIni(<IniName>,"PATHS","CDROM",<CurPath>)
AddToProfileIni(<IniName>,"PATHS","PICTURE",<CurPath>"PIX")
AddToProfileIni(<IniName>,"PATHS","DATA",<CurPath>"DATA")
AddToProfileIni(<IniName>,"PATHS","INDEX",<CurPath>"DATA")
AddToProfileIni(<IniName>,"PATHS","PSTAMPPATH",<CurPath>"DATA")
AddToProfileIni(<IniName>,"PATHS","MIDIPATH",<CurPath>"MIDI")
;add the info for this title to ebook.ini
AddToProfileIni(<IniName>,"EEAVOL2","Title","Renaissance Masters Vol. I")
AddToProfileIni(<IniName>,"EEAVOL2","Card","WINCARD2")
AddToProfileIni(<IniName>,"EEAVOL2","NumberIndex","6")
AddToProfileIni(<IniName>,"EEAVOL2","IndexNames","ARTIST2,TITLE2,MEDIUM2,DATE2,OBJ2,CSCHOOL2");
AddToProfileIni(<IniName>,"EEAVOL2","IndexTitles","Artist,Title,Medium,Date,Object,School");
AddToProfileIni(<IniName>,"EEAVOL2","PStamp","1")
AddToProfileIni(<IniName>,"EEAVOL2","BrowseMode","0")
AddToProfileIni(<IniName>,"EEAVOL2","NumberPixColumns","5")
AddToProfileIni(<IniName>,"EEAVOL2","NumberPixRows","3")
AddToProfileIni(<IniName>,"EEAVOL2","NumberMIDI","4")
AddToProfileIni(<IniName>,"EEAVOL2","MidiFiles","PRIMAVER,PROFUMIE,LASIRENA,CANTENA")
AddToProfileIni(<IniName>,"EEAVOL2","MidiTitles","Ecco la Primavera,Canto de'Profumieri,Balletto la Sirena,La Cantena D'Amore")
;add the program group
OpenProgManProgress("Setup is adding a Program Manager Group",
"Please wait while Setup adds the Group")
OpenProgManGroup("TDC Interactive")
AddProgManItem("Renaissance Masters Vol.I",<ProgPath>"Intro.exe RM1.EXE EEAVOL2",
<ProgPath>"TDC.ICO",0)
CloseProgManProgress()
;cleanup
IfIncompleteGoto(NotInstalled)
Installed:
SetVariable (Message,
"The Setup program has successfully installed the "
<TitleName> ".%n%n")
GoTo(Essay)
NotInstalled:
SetVariable (Message,
"Setup has finished, but the installation was incomplete. "
"You should correct any problems (such as insufficient disk "
"space, missing source files, or locked directories) and run "
"Setup again.%n%n")
Essay:
AskYesNo (Prompt, "Yes",
"Would you like to load an Essay on the
'The Renaissance in Italy' by Jane Dillenberger?",
"Click on {\b Yes} or press {\b 'Y'} to copy the Essay files.\par "
"Click on {\b No} or press {\b 'N'} to quit without installing the Essay.")
IfEqualGoto (<Prompt>, "No", Exit)
GetCurPath (ViewerSrcDir) ; Source directory of the Viewer
SetVariable (ViewerSize, 1 000 000) ; Size of the Viewer files that will
; be copied over (measured in bytes)
SetVariable (ViewerDestDir, "C:\VIEWER\") ; Destination directory for
; the Viewer. Set default
; here.
SetVariable (TitleName, "The Renaissance in Italy"); Name of the title
SetVariable (TitleMVB, "ARTBOOK") ; Basename of the MVB file
SetVariable (TitleSrcDir, "\ESSAY\") ; Source subdirectory of the title
DisplayInitialMessage:
DisplayMessage (
"
This part of the Setup will install:
The Renaissance in Italy, an Essay,
and the Multimedia Viewer.
You will be prompted for the location for the
Multimedia Viewer. This will require about 1
Megabyte of disk space.",
<InitialInstructions>)
; Determine if the Viewer has been installed before.
; If the WIN.INI file contains information on where the Viewer directory
; is located, then make that the default path to install the Viewer.
;
GetFromWinIni (ViewerDestDirTemp,
"Multimedia Viewer", "ViewerPath", "Undefined")
IfEqualGoto (<ViewerDestDirTemp>, "Undefined", PromptViewerDestDir)
SetVariable (ViewerDestDir, <ViewerDestDirTemp>)
AskAgain2:
; Ask for where the Multimedia Viewer should be installed.
;
PromptViewerDestDir:
PromptPath (ViewerDestDir, <ViewerDestDir>,
"Where should Setup install the Multimedia Viewer?",
"Modify the default path if necessary, and then click on {\b OK} or "
"press {\b Enter} to continue. ",
"The path is currently not valid. You must specify a drive "
"letter, a colon, and a directory from the root of the drive. ")
; Don't allow Viewer to be installed in the Windows directory
;
GetWinSystemPath (SystemPath)
GetWinPath (WinPath)
IfNotEqualGoto (<ViewerDestDir>, <WinPath>, CheckSpace2)
DisplayMessage (
"You cannot install the Viewer into the Windows directory. "
"Please enter another directory.",
"Click on {\b OK} or press {\b Enter} to enter another directory "
"for Viewer.")
Goto (PromptViewerDestDir)
; Check if there is enough space to install the Viewer.
;
CheckSpace2:
GetSpaceAvailable (SpaceAvailable, <ViewerDestDir>)
IfLowerGoto (<ViewerSize>, <SpaceAvailable>, ViewerDestDirOK)
AskYesNo (Prompt, "Yes",
"There may not be enough space to install the Multimedia Viewer. "
"Would you like to enter a new path for the files? ",
"Click on {\b Yes} or press {\b 'Y'} to enter a new path for the "
"Multimedia Viewer files.\par "
"Click on {\b No} or press {\b 'N'} to continue anyway.\par "
"Click on the {\b Exit} button or press {\b F3} to exit Setup. "
"You may wish to exit Setup and make some more space on your hard "
"disk. Run Setup again when there is enough space on your hard "
"disk. ")
IfEqualGoto (<Prompt>, "Yes", PromptViewerDestDir)
ViewerDestDirOK:
AskYesNo (AskAgain, "No",
"Would you like to change anything before proceeding with "
"the installation?",
"Click on {\b Yes} or press {\b 'Y'} to reenter options.\par "
"Click on {\b No} or press {\b 'N'} to proceed with installation. ")
IfEqualGoto (<AskAgain>, "Yes", AskAgain2)
; Create the tree structure.
;
MakePath (<ViewerDestDir>)
; Copy the files
;
OpenCopyProgress(
"Setup is copying the Multimedia Viewer runtime files.",
"Please wait while Setup is copying files.")
CopyFile (<TitleSrcDir> "FTENGINE.DLL", <ViewerDestDir> "FTENGINE.DLL", 50000)
CopyFile (<TitleSrcDir> "FTUI.DLL", <ViewerDestDir> "FTUI.DLL", 75000)
CopyFile (<TitleSrcDir> "MMP.DLL", <ViewerDestDir> "MMP.DLL", 200000)
CopyFile (<TitleSrcDir> "MVAFF.DLL", <ViewerDestDir> "MVAFF.DLL", 50000)
CopyFile (<TitleSrcDir> "MVAPI.DLL", <ViewerDestDir> "MVAPI.DLL", 10000)
CopyFile (<TitleSrcDir> "MVAUDDLG.DLL", <ViewerDestDir> "MVAUDDLG.DLL", 50000)
CopyFile (<TitleSrcDir> "MVAUDIO.DLL", <ViewerDestDir> "MVAUDIO.DLL", 10000)
CopyFile (<TitleSrcDir> "MVBMP.DLL", <ViewerDestDir> "MVBMP.DLL", 50000)
CopyFile (<TitleSrcDir> "QKHOOK.DLL", <ViewerDestDir> "QKHOOK.DLL", 10000)
CopyFile (<TitleSrcDir> "QUICKEYS.EXE", <ViewerDestDir> "QUICKEYS.EXE", 25000)
CopyFile (<TitleSrcDir> "VIEWER.EXE", <ViewerDestDir> "VIEWER.EXE", 250000)
CopyFile (<TitleSrcDir> "DISPDIB.DLL", <SystemPath> "DISPDIB.DLL", 10000)
CopyFile (<TitleSrcDir> "VER.DLL", <SystemPath> "VER.DLL", 80000)
CopyFile (<TitleSrcDir> "QUICKEYS.HLP", <ViewerDestDir> "QUICKEYS.HLP", 25000)
CloseCopyProgress ()
;OpenProgManProgress("Setup is adding a Program Manager Group",
; "Please wait while Setup adds the Group")
;OpenProgManGroup("TDC Interactive")
;AddProgmanItem (<TitleName>,<ViewerDestDir> "VIEWER.EXE " <ViewerSrcDir>"ESSAY\"<TitleMVB> ".MVB",<ViewerSrcDir>"ESSAY\TDC.ICO",0)
;CloseProgManProgress()
AddToProfileIni(<IniName>,"EEAVOL2","Essay",<ViewerDestDir> "VIEWER.EXE " <ViewerSrcDir>"ESSAY\"<TitleMVB>".MVB")
Exit:
DisplayMessage (<Message>,
"Click on {\b OK} or press {\b Enter} to return to the "
"Program Manager.")