home *** CD-ROM | disk | FTP | other *** search
/ Dr. Dobb's Essential Books on File Formats / Dr.Dobb's_FileFormats.iso / setup.ins < prev   
Text File  |  1996-08-28  |  6KB  |  223 lines
  1.   { SETUP.INS - CD-ROM Installation File - Windows-platform          }
  2.  
  3.   InstName := 'Essential Books on File Formats CD-ROM';
  4.   Cls;
  5.   StrRet := InstName;
  6.   DoFunc(0);
  7.   StrRet := 'FORMATS.BMP';
  8.   DoFunc(26);
  9.  
  10.  
  11. GetFrom:
  12.   DoFunc(5);
  13.   Mssg(6,3,'Enter the drive letter of your CD-ROM drive.');
  14.   DoFunc(11);
  15.   DoFunc(2);
  16.   CDROMDrive := StrRet;
  17.   BranchEq(IntRet,0,Leaving);
  18.   BranchEq(IntRet,2,GetFrom);
  19.  
  20. GetDrive:
  21.   DoFunc(5);
  22.   Mssg(6,3,'Enter the drive letter of your hard disk.');
  23.   StrRet := 'C';
  24.   DoFunc(2);
  25.   ToDrive := StrRet;
  26.   BranchEq(IntRet,0,Leaving);
  27.   BranchEq(IntRet,2,GetDrive);
  28.  
  29. GetPath:
  30.   DoFunc(5);
  31.   Mssg(6,3,'Enter the path to install the CD into.  The default');
  32.   Mssg(6,4,'path is \FORMATS');
  33.   StrRet := '\FORMATS';
  34.   DoFunc(3);
  35.   SysPath := '';
  36.   Concat(SysPath,ToDrive,':',StrRet);
  37.   ReadPath := SysPath
  38.  
  39.   DoFunc(5);
  40.   Mssg(6,3,'You have specified the following:');
  41.   a := '';
  42.   Concat(a,'- CD-ROM is in Drive ',CDROMDrive,':');
  43.   Mssg(6,5,a);
  44.   a := '';
  45.   Concat(a,'- Application will be installed into ',SysPath);
  46.   Mssg(6,6,a);
  47.   DoFunc(7);
  48.   DoFunc(5);
  49.   BranchEq(IntRet,0,Leaving);
  50.   BranchEq(IntRet,2,GetFrom);
  51.   BranchEq(IntRet,3,Leaving);
  52.  
  53.   {Check if they have (IntRet*2+100) Kilobytes available on their hard disk}
  54.   IntRet := 2000;
  55.   DoFunc(4);
  56.   BranchEq(IntRet,0,Leaving);
  57.   BranchEq(IntRet,2,Leaving);
  58.   BranchEq(IntRet,3,Leaving);
  59.  
  60.   DoFunc(5);
  61.   Mssg(6,3,'Installing CD-ROM start up batch file now:');
  62.  
  63.   {Make The Directories Here}
  64.   Mssg(5,21,'Creating Directory...');
  65.   ChDir(CDROMDrive,':');
  66.   ChDir('\GBOOK');       {built in directory name on the CD}
  67.   ChDir(ToDrive,':');
  68.   MkDir(SysPath);
  69.   ChDir(SysPath);
  70.  
  71.   StrRet := SysPath;
  72.   DoFunc(6);
  73.   ConCat(StrRet,'HRW.INI');
  74.  
  75.   IntRet := 0;
  76.   DoFunc(23);
  77.   BranchEq(IntRet,0,DoCopy);
  78.   Goto Error;
  79.  
  80. DoCopy:
  81.   {Mssg(5,21,'Modifying Initialization File...');}
  82.   Copy(CDROMDrive,':\FORMATS\HRW.INI');
  83.  
  84.   IntRet := 0;
  85.   DoFunc(23);
  86.   BranchEq(IntRet,0,DoOpen);
  87.   Goto Error;
  88.  
  89. DoOpen:
  90.   DoFunc(18);
  91.   BranchEq(IntRet,0,INIOpen);
  92.   Goto Error;
  93.  
  94. INIOpen:
  95.   StrRet := 'Document Path = ';
  96.   Concat(StrRet,CDROMDrive,':\FORMATS');
  97.   DoFunc(19);
  98.   BranchEq(IntRet,0,Wrote1);
  99.   Goto Error;
  100.  
  101. Wrote1:
  102.   StrRet := 'Alternate Picture Path = ';
  103.   Concat(StrRet,SysPath);
  104.   DoFunc(19);
  105.   BranchEq(IntRet,0,Wrote2);
  106.   Goto Error;
  107.  
  108. Wrote2:
  109.   StrRet := 'Text Path=';
  110.   Concat(StrRet,SysPath);
  111.   DoFunc(19);
  112.   BranchEq(IntRet,0,Wrote3);
  113.   Goto Error;
  114.  
  115. Wrote3:
  116.   StrRet := 'Use Directories=2';
  117.   DoFunc(19);
  118.   BranchEq(IntRet,0,WroteINI);
  119.   Goto Error;
  120.  
  121. WroteINI:
  122.   DoFunc(20);
  123.   BranchEq(IntRet,0,INIClose);
  124.   Goto Error;
  125.  
  126. INIClose:
  127.   StrRet := SysPath;
  128.   DoFunc(6);
  129.   ConCat(StrRet,'HRW.INI');
  130.   IntRet := 1;
  131.   DoFunc(23);
  132.   BranchEq(IntRet,0,INIROOK);
  133.   Goto Error;
  134.  
  135. INIROOK:
  136.  
  137.   {Copy Files}
  138.   Copy(CDROMDrive,':\FORMATS\HRW.EXE');
  139.   Copy(CDROMDrive,':\FORMATS\HRW.CFG');
  140.   Copy(CDROMDrive,':\FORMATS\HRW.DIA');
  141.   Copy(CDROMDrive,':\FORMATS\HWSYSTEM.VGA');
  142.   Copy(CDROMDrive,':\FORMATS\CTL3D.DLL');
  143.   Copy(CDROMDrive,':\FORMATS\IMAGES.DLL');
  144.   Copy(CDROMDrive,':\FORMATS\IMGBMP.DIL');
  145.   Copy(CDROMDrive,':\FORMATS\IMGEPSF.DIL');
  146.   Copy(CDROMDrive,':\FORMATS\IMGJPG.DIL');
  147.   Copy(CDROMDrive,':\FORMATS\IMGPCX.DIL');
  148.   Copy(CDROMDrive,':\FORMATS\IMGTIFF.DIL');
  149.   Copy(CDROMDrive,':\FORMATS\IMGWMF.DIL');
  150.   Copy(CDROMDrive,':\FORMATS\MAIN.PCX');
  151.   Copy(CDROMDrive,':\FORMATS\TOC_1.PCX');
  152.   Copy(CDROMDrive,':\FORMATS\TOC_2.PCX');
  153.   Copy(CDROMDrive,':\FORMATS\TOC_3.PCX');
  154.   Copy(CDROMDrive,':\FORMATS\TOC_4.PCX');
  155.   Copy(CDROMDrive,':\FORMATS\TOC_5.PCX');
  156.   Copy(CDROMDrive,':\FORMATS\TOC_6.PCX');
  157.   Copy(CDROMDrive,':\FORMATS\TOC_7.PCX');
  158.   Copy(CDROMDrive,':\FORMATS\CLOSERCH.PCX');
  159.   Copy(CDROMDrive,':\FORMATS\IDXSEL.PCX');
  160.   Copy(CDROMDrive,':\FORMATS\IDX01.PCX');
  161.   Copy(CDROMDrive,':\FORMATS\IDX02.PCX');
  162.   Copy(CDROMDrive,':\FORMATS\IDX03.PCX');
  163.   Copy(CDROMDrive,':\FORMATS\IDX04.PCX');
  164.   Copy(CDROMDrive,':\FORMATS\IDX05.PCX');
  165.   Copy(CDROMDrive,':\FORMATS\IDX06.PCX');
  166.   Copy(CDROMDrive,':\FORMATS\IDX07.PCX');
  167.   Copy(CDROMDrive,':\FORMATS\TOCPOPUP.PCX');
  168.   Copy(CDROMDrive,':\FORMATS\_STARTUP.PCX');
  169.   Copy(CDROMDrive,':\FORMATS\_NEXTS.PCX');
  170.   Copy(CDROMDrive,':\FORMATS\_PREVS.PCX');
  171.   Copy(CDROMDrive,':\FORMATS\DDJ.ICO');
  172.   Copy(CDROMDrive,':\FORMATS\_STARTUP.HWN');
  173.   Copy(CDROMDrive,':\FORMATS\DDJFORM.HWN');
  174.   Copy(CDROMDrive,':\README.TXT');
  175.  
  176.   {Mssg(5,21,'Creating Program Manager Group...');}
  177.   StrRet := 'Essential Books on File Formats';
  178.   DoFunc(16);
  179.   BranchEq(IntRet,0,Complete);
  180.  
  181.   StrRet := SysPath;
  182.   DoFunc(6);
  183.   SysPath2 := StrRet;
  184.   Concat(StrRet,'HRW.EXE');
  185.   Concat(StrRet,',','File Formats Books');
  186.   Concat(StrRet,',',SysPath2,'DDJ.ICO');
  187.   DoFunc(17);
  188.  
  189. { Routines to Add Read Me File }
  190.   StrRet := SysPath;
  191.   ReadMeFile := SysPath;
  192.   StrRet := '';
  193.   Concat(StrRet,'NOTEPAD.EXE');
  194.   Concat(ReadFile,' ',SysPath,'\','README.TXT');
  195.   Concat(StrRet,ReadFile);
  196.   Concat(StrRet,',','READ ME FILE');
  197.   DoFunc(17);
  198.  
  199. { End Routines for Read Me File}
  200.  
  201. Complete:
  202.   StrRet := InstName;
  203.   DoFunc(0);
  204.   Mssg(0,0,'Installation complete.  For important information, select the READ ME FILE icon.');
  205.   Cls;
  206.   Goto Exit;
  207.  
  208. Error:
  209.   StrRet := InstName;
  210.   DoFunc(0);
  211.   Mssg(0,0,'An error has occurred during the installation process.');
  212.   Cls;
  213.   Goto Exit;
  214.  
  215. Leaving:
  216.   StrRet := InstName;
  217.   DoFunc(0);
  218.   Mssg(0,0,'Installation aborted by User');
  219.   Cls;
  220.   Goto Exit;
  221.  
  222. Exit:
  223.