home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / d / d423_liu / 8.ddi / REPAIR.IN_ / REPAIR.IN
Encoding:
INI File  |  1993-07-24  |  1.5 KB  |  45 lines
  1. [RepairVars]
  2.     DisketteList   = {} ? $(!LIBHANDLE) GetFloppyDriveLetters
  3. [CreateRepairDiskette]
  4.     set Status = STATUS_FAILED
  5.     read-syms  Strings$(!STF_LANGUAGE)
  6.     detect     RepairVars
  7.     ifstr(i) $(DisketteList) == {}
  8.         shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) NONFATAL $(String1)
  9.         goto finish_CreateRepairDiskette
  10.     endif
  11.     set RepairDiskette = *($(DisketteList),1)
  12.     install GenerateRepairDiskette
  13.     ifstr(i) $(STF_INSTALL_OUTCOME) == "STF_SUCCESS"
  14.         StartWait
  15.         shell "subroutn.inf" PushBillboard STATUSDLG $(String2)
  16.         install SaveRegistryHives
  17.         shell "subroutn.inf" PopBillboard
  18.         EndWait
  19.     endif
  20.     ifstr(i) $(STF_INSTALL_OUTCOME) == "STF_SUCCESS"
  21.         set Status = STATUS_SUCCESS
  22.     else-ifstr(i) $(STF_INSTALL_OUTCOME) == "STF_USERQUIT"
  23.         set Status = STATUS_USERQUIT
  24.     else
  25.         shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) NONFATAL $(String3)
  26.         set Status = STATUS_FAILED
  27.     endif
  28. finish_CreateRepairDiskette = +
  29.     Return $(Status)
  30. [GenerateRepairDiskette]
  31.     GenerateRepair $(RepairDiskette)
  32.     exit
  33. [SaveRegistryHives]
  34.     SaveRegistryHives $(RepairDiskette)
  35.     exit
  36. [StringsENG]
  37. String1 = "No floppy disk drive was found in your computer. "+
  38.           "Setup cannot create an Emergency Repair Disk."
  39. String2 = "Setup is saving default configuration information "+
  40.           "onto the Emergency Repair Disk.  Please wait..."
  41. String3 = "Setup was unable to create the Emergency Repair Disk."
  42.  
  43.  
  44.  
  45.