home *** CD-ROM | disk | FTP | other *** search
/ Significant Series Windows / PCSIG-SignificantSeriesWindows-Win31.iso / install.ins < prev    next >
Text File  |  1993-09-30  |  2KB  |  93 lines
  1.   StrRet := 'Windows CD-ROM Setup';
  2.   Cls;
  3.   DoFunc(0);
  4.  
  5. GetFrom:
  6.   DoFunc(5);
  7.   Mssg(6,3,'Enter the Drive letter of your CD-ROM drive.');
  8.   DoFunc(11);
  9.   DoFunc(2);
  10.   CDROMDrive := StrRet;
  11.   BranchEq(IntRet,0,Leaving);
  12.   BranchEq(IntRet,2,GetFrom);
  13.  
  14. GetDrive:
  15.   DoFunc(5);
  16.   Mssg(6,3,'Enter the Drive letter of your hard drive.');
  17.   StrRet := 'C';
  18.   DoFunc(2);
  19.   ToDrive := StrRet;
  20.   BranchEq(IntRet,0,Leaving);
  21.   BranchEq(IntRet,2,GetDrive);
  22.  
  23.   {Example of the directory name on their hard disk}
  24.   {Should be the same as the directory name stored}
  25.   {in the HR.CDB file}
  26.   ConCat(SysPath,ToDrive,':','\PCSIGWIN');
  27.  
  28.   {Complete Path to the file GO.BAT}
  29.   StrRet := SysPath;
  30.   DoFunc(6);
  31.   ConCat(SysPath2,StrRet,'GO.BAT');
  32.  
  33.   DoFunc(5);
  34.   Mssg(6,3,'You have specified the following:');
  35.   Mssg(8,5,'- CD-ROM is in Drive  :');
  36.   Mssg(29,5,CDROMDrive);
  37.   Mssg(8,6,'- Install Batch File onto Drive');
  38.   Mssg(40,6,SysPath);
  39.  
  40.   DoFunc(7);
  41.   DoFunc(5);
  42.   BranchEq(IntRet,0,Leaving);
  43.   BranchEq(IntRet,2,GetFrom);
  44.  
  45.   IntRet := 1; {If they don't have 101K free then don't install}
  46.   DoFunc(4);
  47.   BranchEq(IntRet,0,Leaving);
  48.   BranchEq(IntRet,2,Leaving);
  49.  
  50.   DoFunc(5);
  51.   Mssg(6,3,'Installing CD-ROM start up batch file now:');
  52.  
  53.   {Make The Directories Here}
  54.   Mssg(5,21,'Creating Directory...');
  55.   ChDir(CDROMDrive,':');
  56.   ChDir('\HR');       {built in directory name on the CD}
  57.   ChDir(ToDrive,':');
  58.   MkDir(SysPath);
  59.   ChDir(SysPath);
  60.  
  61.   Mssg(5,21,'Creating Batch File...');
  62.   StrRet := SysPath2;
  63.   IntRet := CDROMDrive;
  64.   DoFunc(10);
  65.  
  66.   Mssg(5,21,'Copying Files...      ');
  67.   Copy(CDROMDrive,':*.RDS >NUL');
  68.   Copy(CDROMDrive,':*.NBM >NUL');
  69.   Copy(CDROMDrive,':TOUR*.DAT >NUL');
  70.   Copy(CDROMDrive,':HRWCD.INI >NUL');
  71.  
  72.   Mssg(5,21,'                ');
  73.  
  74. Complete:
  75.   StrRet := InstName;
  76.   DoFunc(0);
  77.   Mssg(0,0,'Installation Complete');
  78.   Cls;
  79.   Mssg(1,7,'Install will now start Windows and create a Program Group.');
  80.   Mssg(1,9,'If Windows is already started, create a Program Group by');
  81.   Mssg(1,10,'running \HR\WINGROUP.EXE with the Program Manager or File Manager.');
  82.   ChDir(CDROMDrive,':');
  83.   Goto Exit;
  84.  
  85. Leaving:
  86.   StrRet := InstName;
  87.   DoFunc(0);
  88.   Mssg(0,0,'Installation aborted by User');
  89.   Cls;
  90.   Goto Exit;
  91.  
  92. Exit:
  93.