home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / d / d423_liu / 9.ddi / PRNSETUP.IN_ / PRNSETUP.IN
Encoding:
INI File  |  1993-07-24  |  7.5 KB  |  201 lines
  1. [PrintersUiVars]
  2.     PrinterINF = "printer.inf"
  3.     PRINTER_ATTRIBUTE_QUEUED        = 1
  4.     PRINTER_ATTRIBUTE_QUEUEDDEFAULT = 5
  5.     PrintersToInstall = {}
  6. [DoPrinterSetup]
  7.     set       Status            = STATUS_FAILED
  8.     read-syms PrintersUiVars
  9.     read-syms Strings$(!STF_LANGUAGE)
  10.     set PrintersToInstall = {}
  11.     set OurINFFile = "printer.inf"
  12.     shell "other.inf", GetOptionsFromINF $(!STF_LANGUAGE) "Printer" $(PrinterINF)
  13.     ifstr(i) $($R0) == STATUS_SUCCESSFUL
  14.         set PrinterList     = $($R1)
  15.         set PrinterTextList = $($R2)
  16.         set $R1 = ""
  17.         set $R2 = ""
  18.     else
  19.         EndWait
  20.         shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "FATAL" $(String2)
  21.         StartWait
  22.         goto finish_printer
  23.     endif
  24. printersetup=+
  25.     read-syms PrintersSetupDlg$(!STF_LANGUAGE)
  26.     EndWait
  27.     ui start PrinterSetup
  28.     ifstr(i) $(DLGEVENT) == "CONTINUE"
  29.         ifstr(i) $(EditTextOut) == ""
  30.             set ReInit = NO
  31.             shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(String1)
  32.             goto printersetup
  33.         else
  34.             LibraryProcedure STATUS,$(!LIBHANDLE),AreCharsInString $(EditTextOut) ",\"
  35.             ifstr(i) $(STATUS) == YES
  36.                 set ReInit = NO
  37.                 shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(String8)
  38.                 goto printersetup
  39.             endif
  40.         endif
  41.         StartWait
  42.         set Name           = $(EditTextOut)
  43.         set Port           = $(Combo2Out)
  44.         set Model          = *( $(PrinterList), ~( $(PrinterTextList), $(Combo1Out) ) )
  45.         set Description    = $(Combo1Out)" "$(String3)" "$(Combo2Out)
  46.         set PrintProcessor = "winprint"
  47.         set PrinterAttribute = $(PRINTER_ATTRIBUTE_QUEUEDDEFAULT)
  48.         set Printer = { $(Name),             +
  49.                         $(Port),             +
  50.                         $(Model),            +
  51.                         $(Description),      +
  52.                         $(PrintProcessor),   +
  53.                         $(Attributes)        +
  54.                       }
  55.         set PrintersToInstall = >( $(PrintersToInstall), $(Printer) )
  56.         set Status = STATUS_SUCCESSFUL
  57.         ui pop 1
  58.         goto install_printers
  59.     else-ifstr(i) $(DLGEVENT) == "BACK"
  60.         ifstr(i) $(PrintersToInstall) == {}
  61.             shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "STATUS" $(String4)
  62.             set Status = STATUS_USERCANCEL
  63.             ui pop 1
  64.             goto finish_printer
  65.         endif
  66.     else-ifstr(i) $(DLGEVENT) == "EXIT"
  67.         shell "subroutn.inf" QueryUserQuit $(!STF_LANGUAGE)
  68.         ifstr(i) $($R1) == "OK"
  69.             set Status = STATUS_USERQUIT
  70.             ui pop 1
  71.             goto finish_printer
  72.         else
  73.             set ReInit = NO
  74.             goto printersetup
  75.         endif
  76.     else
  77.         ui pop 1
  78.         goto finish_printer
  79.     endif
  80. install_printers = +
  81.     ForListDo $(PrintersToInstall)
  82.         set   Model = *($($), 3)
  83.         shell "printer.inf" +
  84.               InstallOption +
  85.                   $(!STF_LANGUAGE) +
  86.                   $(Model) +
  87.                   $(!STF_SRCDIR) +
  88.                   YES +
  89.                   NO  +
  90.                   NO  +
  91.                   {}
  92.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  93.             Debug-Output "Failed to execute install routine in Printer.inf"
  94.             goto finish_printer
  95.         else-ifstr(i) $($R0) != STATUS_SUCCESSFUL
  96.             Debug-Output "Failed to install printer driver"$(Model)
  97.             goto finish_printer
  98.         endif
  99.     EndForListDo
  100.     set Status = STATUS_SUCCESSFUL
  101. finish_printer = +
  102.     StartWait
  103.     Return $(Status) $(PrintersToInstall)
  104. [DoPrinterConfigure]
  105.     set Status = STATUS_SUCCESSFUL
  106.     read-syms Strings$(!STF_LANGUAGE)
  107.     ForListDo $($0)
  108.         set Name             = *($($), 1)
  109.         set Port             = *($($), 2)
  110.         set Model            = *($($), 3)
  111.         set Description      = *($($), 4)
  112.         set PrintProcessor   = *($($), 5)
  113.         set Attribute        = *($($), 6)
  114.         shell "printer.inf" +
  115.                   InstallOption +
  116.                       $(!STF_LANGUAGE) +
  117.                       $(Model) +
  118.                       "" +
  119.                       NO  +
  120.                       NO  +
  121.                       YES +
  122.                       {}
  123.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  124.             Debug-Output "Failed to execute install routine in Printer.inf"
  125.             goto finish_printerconfigure
  126.         else-ifstr(i) $($R0) != STATUS_SUCCESSFUL
  127.             Debug-Output "Failed to configure printer driver"$(Model)
  128.             goto finish_printerconfigure
  129.         endif
  130.         LibraryProcedure STATUS,$(!LIBHANDLE), SetupAddPrinter       +
  131.                                                   $(Name),           +
  132.                                                   $(Port),           +
  133.                                                   $(Model),          +
  134.                                                   $(Description),    +
  135.                                                   $(PrintProcessor), +
  136.                                                   $(Attribute),      +
  137.                                                   $(!STF_PRINTSERVER)
  138.         ifstr(i) $(STATUS) == "ERROR"
  139.             EndWait
  140.             shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(String5)$(Name)$(String7)
  141.             StartWait
  142.             goto finish_printerconfigure
  143.         else-ifstr(i) $(STATUS) == "PRESENT"
  144.             EndWait
  145.             shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(String5)$(Name)$(String6)
  146.             StartWait
  147.         endif
  148.     EndForListDo
  149.     set Status = STATUS_SUCCESSFUL
  150. finish_printerconfigure = +
  151.     return $(Status)
  152. [PrinterPorts]
  153.     "LPT1:"
  154.     "LPT2:"
  155.     "LPT3:"
  156.     "COM1:"
  157.     "COM2:"
  158.     "COM3:"
  159.     "COM4:"
  160.     "FILE:"
  161. [StringsENG]
  162.     String1 = "Setup cannot function properly unless you enter the "+
  163.               "name(s) requested."
  164.     String2 = "Failed to find printer options."
  165.     String3 = "on"
  166.     String4 = "No local printer has been set up. You can use Print Manager to set up a printer after Windows NT has been installed."
  167.     String5 = "The printer "
  168.     String6 = " is already installed on your computer."
  169.     String7 = " couldn't be installed on your computer."
  170.     String8 = "Commas and backslashes are not allowed in printer names. Please enter "+
  171.               "a different name."
  172. [PrintersSetupDlgENG]
  173.     Caption     = "Set up Local Printer"
  174.     DlgText     = "Assign a name to your printer. (The name should not contain commas or backslashes.)"+
  175.                   " Then select its type and the port it is connected to. "$(!LF)$(!LF)+
  176.                   "If there is no printer attached to this computer, choose Cancel."
  177.     EditLabel   = "Printer &Name:"
  178.     EditTextLim = 32
  179.     EditTextIn  = ""
  180.     EditFocus   = "ALL"
  181.     Combo1Label       = "&Model:"
  182.     Combo2Label       = "Print &to:"
  183.     TextFields        = {}
  184.     Continue    = "Continue"
  185.     Cancel      = "Cancel"
  186.     Help        = "&Help"
  187.     Exit        = "E&xit Setup"
  188.     DlgType     = Combination
  189.     DlgTemplate = PRINTERS_SETUP
  190.     HelpContext = $(!IDH_DB_PRNSETUP_INS)
  191.     Combo1List        = $(PrinterTextList)
  192.     Combo1Out         = *($(Combo1List), 1)
  193.     Combo2List        = ^(PrinterPorts, 1)
  194.     Combo2Out         = *($(Combo2List), 1)
  195.     ComboListItemsIn  = {Combo1List,Combo2List}
  196.     ComboListItemsOut = {Combo1Out,Combo2Out}
  197.     NotifyFields      = {NO, NO}
  198.  
  199.  
  200.  
  201.