home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Journal 1990 - 1995 / CUJ.iso / setup.ins < prev   
Text File  |  1996-01-31  |  6KB  |  248 lines
  1.   { SETUP.INS - CD-ROM Installation File - Windows-platform          }
  2.  
  3.   InstName := 'C/C++ Users Journal CD-ROM';
  4.   Cls;
  5.   StrRet := InstName;
  6.   DoFunc(0);
  7.  
  8. GetFrom:
  9.   DoFunc(5);
  10.   Mssg(6,3,'Enter the Drive letter of your CD-ROM drive.');
  11.   DoFunc(11);
  12.   DoFunc(2);
  13.   CDROMDrive := StrRet;
  14.   BranchEq(IntRet,0,Leaving);
  15.   BranchEq(IntRet,2,GetFrom);
  16.  
  17. GetDrive:
  18.   DoFunc(5);
  19.   Mssg(6,3,'Enter the Drive letter of your hard disk.');
  20.   StrRet := 'C';
  21.   DoFunc(2);
  22.   ToDrive := StrRet;
  23.   BranchEq(IntRet,0,Leaving);
  24.   BranchEq(IntRet,2,GetDrive);
  25.  
  26. GetPath:
  27.   DoFunc(5);
  28.   Mssg(6,3,'Enter the Path to Install the CD into.  The default');
  29.   Mssg(6,4,'path is \CUJ');
  30.   StrRet := '\CUJ';
  31.   DoFunc(3);
  32.   SysPath := '';
  33.   Concat(SysPath,ToDrive,':',StrRet);
  34.   ReadPath := SysPath
  35.  
  36.   DoFunc(5);
  37.   Mssg(6,3,'You have specified the following:');
  38.   a := '';
  39.   Concat(a,'- CD-ROM is in Drive ',CDROMDrive,':');
  40.   Mssg(6,5,a);
  41.   a := '';
  42.   Concat(a,'- Application will be installed into ',SysPath);
  43.   Mssg(6,6,a);
  44.   DoFunc(7);
  45.   DoFunc(5);
  46.   BranchEq(IntRet,0,Leaving);
  47.   BranchEq(IntRet,2,GetFrom);
  48.   BranchEq(IntRet,3,Leaving);
  49.  
  50.   {Check if they have (IntRet*2+100) Kilobytes available on their hard disk}
  51.   IntRet := 1100;
  52.   DoFunc(4);
  53.   BranchEq(IntRet,0,Leaving);
  54.   BranchEq(IntRet,2,Leaving);
  55.   BranchEq(IntRet,3,Leaving);
  56.  
  57.   DoFunc(5);
  58.   Mssg(6,3,'Installing CD-ROM start up batch file now:');
  59.  
  60.   {Make The Directories Here}
  61.   Mssg(5,21,'Creating Directory...');
  62.   ChDir(CDROMDrive,':');
  63.   ChDir('\CUJ');       {built in directory name on the CD}
  64.   ChDir(ToDrive,':');
  65.   MkDir(SysPath);
  66.   ChDir(SysPath);
  67.  
  68.   StrRet := SysPath;
  69.   DoFunc(6);
  70.   ConCat(StrRet,'HRW.INI');
  71.  
  72.   IntRet := 0;
  73.   DoFunc(23);
  74.   BranchEq(IntRet,0,DoCopy);
  75.   Goto Error;
  76.  
  77. DoCopy:
  78.   Mssg(5,21,'Modifying Initialization File...');
  79.   Copy(CDROMDrive,':\CUJ\HRW.INI');
  80.  
  81.   IntRet := 0;
  82.   DoFunc(23);
  83.   BranchEq(IntRet,0,DoOpen);
  84.   Goto Error;
  85.  
  86. DoOpen:
  87.   DoFunc(18);
  88.   BranchEq(IntRet,0,INIOpen);
  89.   Goto Error;
  90.  
  91. INIOpen:
  92.   StrRet := 'Document Path = ';
  93.   Concat(StrRet,CDROMDrive,':\CUJ');
  94.   DoFunc(19);
  95.   BranchEq(IntRet,0,Wrote1);
  96.   Goto Error;
  97.  
  98. Wrote1:
  99.   StrRet := 'Alternate Picture Path = ';
  100.   Concat(StrRet,SysPath);
  101.   DoFunc(19);
  102.   BranchEq(IntRet,0,Wrote2);
  103.   Goto Error;
  104.  
  105. Wrote2:
  106.   StrRet := 'Text Path=';
  107.   Concat(StrRet,SysPath);
  108.   DoFunc(19);
  109.   BranchEq(IntRet,0,Wrote3);
  110.   Goto Error;
  111.  
  112. Wrote3:
  113.   StrRet := 'Use Directories=2';
  114.   DoFunc(19);
  115.   BranchEq(IntRet,0,WroteINI);
  116.   Goto Error;
  117.  
  118. WroteINI:
  119.   DoFunc(20);
  120.   BranchEq(IntRet,0,INIClose);
  121.   Goto Error;
  122.  
  123. INIClose:
  124.   StrRet := SysPath;
  125.   DoFunc(6);
  126.   ConCat(StrRet,'HRW.INI');
  127.   IntRet := 1;
  128.   DoFunc(23);
  129.   BranchEq(IntRet,0,INIROOK);
  130.   Goto Error;
  131.  
  132. INIROOK:
  133.  
  134.   {Copy Files}
  135.   Copy(CDROMDrive,':\CUJ\HRW.EXE');
  136.   Copy(CDROMDrive,':\CUJ\CTL3D.DLL');
  137.   Copy(CDROMDrive,':\CUJ\HRW.DIA');
  138.   Copy(CDROMDrive,':\CUJ\HRW.CFG');
  139.   Copy(CDROMDrive,':\CUJ\HWSYSTEM.VGA');
  140.   Copy(CDROMDrive,':\CUJ\IMAGES.DLL');
  141.   Copy(CDROMDrive,':\CUJ\IMGPCX.DIL');
  142.   Copy(CDROMDrive,':\CUJ\STEM.KS');
  143.   Copy(CDROMDrive,':\CUJ\THES.KS');
  144.   Copy(CDROMDrive,':\CUJ\HRW.HW4');
  145.   Copy(CDROMDrive,':\CUJ\HRW.HWN');
  146.   Copy(CDROMDrive,':\CUJ\HRW.HWT');
  147.   Copy(CDROMDrive,':\CUJ\HRW.HWA');
  148.   Copy(CDROMDrive,':\CUJ\HRW.HWI');
  149.   Copy(CDROMDrive,':\CUJ\HRW.HWY');
  150.   Copy(CDROMDrive,':\CUJ\INDEX.HWY');
  151.  
  152.   Copy(CDROMDrive,':\CUJ\1990.PCX');
  153.   Copy(CDROMDrive,':\CUJ\1991.PCX');
  154.   Copy(CDROMDrive,':\CUJ\1992.PCX');
  155.   Copy(CDROMDrive,':\CUJ\1993.PCX');
  156.   Copy(CDROMDrive,':\CUJ\1994.PCX');
  157.   Copy(CDROMDrive,':\CUJ\1995.PCX');
  158.   
  159.   Copy(CDROMDrive,':\CUJ\_STARTUP.PCX');
  160.   Copy(CDROMDrive,':\CUJ\ALLYEARS.PCX');
  161.   Copy(CDROMDrive,':\CUJ\CLOSERCH.PCX');
  162.   Copy(CDROMDrive,':\CUJ\CONTENTS.PCX');
  163.   Copy(CDROMDrive,':\CUJ\INDEXSEL.PCX');
  164.   Copy(CDROMDrive,':\CUJ\MAIN.PCX');
  165.   Copy(CDROMDrive,':\CUJ\METAYEAR.PCX');
  166.   Copy(CDROMDrive,':\CUJ\_SEARCH.PCX');    
  167.   Copy(CDROMDrive,':\CUJ\_RESULTS.PCX');    
  168.  
  169.   Copy(CDROMDrive,':\CUJ\1990.HWN');
  170.   Copy(CDROMDrive,':\CUJ\1991.HWN');
  171.   Copy(CDROMDrive,':\CUJ\1992.HWN');
  172.   Copy(CDROMDrive,':\CUJ\1993.HWN');
  173.   Copy(CDROMDrive,':\CUJ\1994.HWN');
  174.   Copy(CDROMDrive,':\CUJ\1995.HWN');
  175.   Copy(CDROMDrive,':\CUJ\CONTENTS.HWN');
  176.   Copy(CDROMDrive,':\CUJ\INDEX.HWN');
  177.   Copy(CDROMDrive,':\CUJ\INDEXART.HWN');
  178.   Copy(CDROMDrive,':\CUJ\INDEXFUL.HWN');
  179.   Copy(CDROMDrive,':\CUJ\INDEXAUT.HWN');
  180.   Copy(CDROMDrive,':\CUJ\INDEXLIS.HWN');
  181.   Copy(CDROMDrive,':\CUJ\CUJ.ICO');
  182.  
  183.   Copy(CDROMDrive,':\README.TXT');
  184.  
  185. {  Copy(CDROMDrive,':\CUJ\_CONTENT.PCX'); }
  186. {  Copy(CDROMDrive,':\CUJ\_EXIT.PCX');    }
  187. {  Copy(CDROMDrive,':\CUJ\_EXPORT.PCX');  }
  188. {  Copy(CDROMDrive,':\CUJ\_FIND.PCX');    }
  189. {  Copy(CDROMDrive,':\CUJ\_HELP.PCX');    }
  190. {  Copy(CDROMDrive,':\CUJ\_HIGHLIG.PCX'); }
  191. {  Copy(CDROMDrive,':\CUJ\_HITS.PCX');    }
  192. {  Copy(CDROMDrive,':\CUJ\_INDEX.PCX');   }
  193. {  Copy(CDROMDrive,':\CUJ\_NEXT.PCX');    }
  194. {  Copy(CDROMDrive,':\CUJ\_NOICON.PCX');  }
  195. {  Copy(CDROMDrive,':\CUJ\_NOTES.PCX');   }
  196. {  Copy(CDROMDrive,':\CUJ\_NSEARCH.PCX'); }
  197. {  Copy(CDROMDrive,':\CUJ\_OUTLINE.PCX'); }
  198. {  Copy(CDROMDrive,':\CUJ\_PREV.PCX');    }
  199. {  Copy(CDROMDrive,':\CUJ\_PRINT.PCX');   }
  200. {  Copy(CDROMDrive,':\CUJ\_PSEARCH.PCX'); }
  201.  
  202.   Mssg(5,21,'Creating Program Manager Group...');
  203.   StrRet := 'C/C++ Users Journal CD-ROM';
  204.   DoFunc(16);
  205.   BranchEq(IntRet,0,Complete);
  206.  
  207.   StrRet := SysPath;
  208.   DoFunc(6);
  209.   SysPath2 := StrRet;
  210.   Concat(StrRet,'HRW.EXE');
  211.   Concat(StrRet,',','CUJ CD-ROM');
  212.   Concat(StrRet,',',SysPath2,'CUJ.ICO');
  213.   DoFunc(17);
  214.   Mssg(5,21,'For important information, please see README.TXT File...');
  215.  
  216. { Routines to Add Read Me File }
  217.   StrRet := '';
  218.   Concat(StrRet,'NOTEPAD.EXE');
  219.   Concat(ReadFile,' ',SysPath2,'README.TXT');
  220.   Concat(StrRet,ReadFile);
  221.   Concat(StrRet,',','READ ME FILE');
  222.   DoFunc(17);
  223.  
  224. { End Routines for Read Me File} 
  225.  
  226. Complete:
  227.   StrRet := InstName;
  228.   DoFunc(0);
  229.   Mssg(0,0,'Installation Complete');
  230.   Cls;
  231.   Goto Exit;
  232.  
  233. Error:
  234.   StrRet := InstName;
  235.   DoFunc(0);
  236.   Mssg(0,0,'An error has occurred during the installation process.');
  237.   Cls;
  238.   Goto Exit;
  239.  
  240. Leaving:
  241.   StrRet := InstName;
  242.   DoFunc(0);
  243.   Mssg(0,0,'Installation aborted by User');
  244.   Cls;
  245.   Goto Exit;
  246.  
  247. Exit:
  248.