home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / d / d423_liu / 9.ddi / VIRTUAL.IN_ / VIRTUAL.IN
Encoding:
INI File  |  1993-07-24  |  8.5 KB  |  229 lines
  1. [UiVars]
  2.     SystemMemory    = "" ? $(!LIBHANDLE) GetMemorySize
  3.     VolumeList      = {} ? $(!LIBHANDLE) GetHardDriveLetters
  4.     VolumeSizeList  = {} ? $(!LIBHANDLE) GetHardDriveTotalSpace
  5.     VolumeFreeList  = {} ? $(!LIBHANDLE) GetHardDriveFreeSpace
  6.     VolumeFSList    = {} ? $(!LIBHANDLE) GetHardDriveFileSystems
  7.     VirtualMinimum = 15
  8.     VirtualMarkup  = 12
  9.     VirtualDrive       = ""
  10.     VirtualDriveList   = {}
  11.     VirtualRecommended = ""
  12.     VirtualSize        = ""
  13. [DetectFileSize]
  14.     FileSize = 0 ? $(!LIBHANDLE) GetSizeOfFile $(File)
  15. [DoVirtual]
  16.     set Status         = STATUS_FAILED
  17.     set OldPagingFiles = {}
  18.     set NewPagingFiles = {}
  19.     read-syms "UiVars"
  20.     detect    "UiVars"
  21.     read-syms Strings$(!STF_LANGUAGE)
  22.     shell "registry.inf" EnumeratePagingFiles
  23.     ifstr(i) $($R0) != STATUS_SUCCESSFUL
  24.         set OldPagingFiles = {}
  25.     else
  26.         set OldPagingFiles = $($R1)
  27.     endif
  28.     set ActualPagefilePath = "C:\PAGEFILE.SYS"
  29.     set Found = "NO"
  30.     ForListDo $(VolumeList)
  31.         ifstr(i) $(Found) == "NO"
  32.             set Path = $($)"\pagefile.sys"
  33.             LibraryProcedure STATUS,$(!LIBHANDLE),CheckFileExistance $(Path)
  34.             ifstr(i) $(STATUS) == YES
  35.                 set File = $(Path)
  36.                 read-syms DetectFileSize
  37.                 detect    DetectFileSize
  38.                 set-div   FileSize = $(FileSize) 1048576
  39.                 ifint $(FileSize) >= $(VirtualMinimum)
  40.                     set Found = 0
  41.                     set ActualPagefilePath = $(File)
  42.                 endif
  43.             endif
  44.         endif
  45.     EndForListDo
  46.     set OldPagefileDrives = {}
  47.     set OldPagefilePaths  = {}
  48.     set OldPagefileSizes  = {}
  49.     set NewOldPagingFiles = {}
  50.     ifstr(i) $(OldPagingFiles) != {}
  51.         set PagefilePath  = *(*($(OldPagingFiles), 1), 1)
  52.         ifstr(i) $(PagefilePath) == "?:\PAGEFILE.SYS"
  53.             set PagefilePath = $(ActualPagefilePath)
  54.         endif
  55.         set PagefileSize  = *(*($(OldPagingFiles), 1), 2)
  56.         GetDriveInPath PagefileDrive $(PagefilePath)
  57.         set OldPagefileDrives = >($(OldPagefileDrives), $(PagefileDrive))
  58.         set OldPagefilePaths  = >($(OldPagefilePaths),  $(PagefilePath))
  59.         set OldPagefileSizes  = >($(OldPagefileSizes),  $(PagefileSize))
  60.         set NewOldPagingFiles = >($(NewOldPagingFiles), {$(PagefilePath), $(PagefileSize)})
  61.     endif
  62.     set OldPagingFiles = $(NewOldPagingFiles)
  63. virtual=+
  64.     set-div SystemMemoryMB = $(SystemMemory) 1024
  65.     set-add VirtualRecommended = $(SystemMemoryMB) $(VirtualMarkup)
  66.     Ifint   $(VirtualRecommended) < $(VirtualMinimum)
  67.         set VirtualRecommended = $(VirtualMinimum)
  68.     Endif
  69.     set VirtualDriveList     = {}
  70.     set VirtualPathList      = {}
  71.     set VirtualDriveFreeList = {}
  72.     ForListDo $(VolumeList)
  73.         ifstr(i) *($(VolumeFSList), $(#)) == ""
  74.             goto skp_virtvol
  75.         endif
  76.         set Size = *($(VolumeFreeList), $(#))
  77.         set Path = $($)"\pagefile.sys"
  78.         LibraryProcedure STATUS,$(!LIBHANDLE),CheckFileExistance $(Path)
  79.         ifstr(i) $(STATUS) == YES
  80.             set File = $(Path)
  81.             read-syms DetectFileSize
  82.             detect    DetectFileSize
  83.             set-div   FileSize = $(FileSize) 1048576
  84.             set-add   Size = $(Size) $(FileSize)
  85.         endif
  86.         ifint $(Size) >  9999
  87.            set Size = 9999
  88.         endif
  89.         ifint $(Size) >= $(VirtualMinimum)
  90.             set VirtualDriveList     = >($(VirtualDriveList), $($))
  91.             set VirtualPathList      = >($(VirtualPathList), $(Path))
  92.             set VirtualDriveFreeList = >($(VirtualDriveFreeList), $(Size))
  93.         endif
  94. skp_virtvol=+
  95.     EndForListDo
  96.     ifstr(i) $(VirtualDriveList) == {}
  97.         EndWait
  98.         shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "FATAL" $(String1)
  99.         StartWait
  100.         goto finish_virtual
  101.     endif
  102.     set VirtualDrive = ""
  103.     set VirtualSize  = 0
  104.     ForListDo $(VirtualDriveList)
  105.         set Size = *($(VirtualDriveFreeList), ~($(VirtualDriveList), $($)))
  106.         ifint $(Size) > $(VirtualSize)
  107.             set VirtualDrive = $($)
  108.             set VirtualSize  = $(Size)
  109.         endif
  110.     EndForListDo
  111.     ifstr(i) $(VirtualDrive) == ""
  112.         set VirtualDrive = *($(VirtualDriveList), 1)
  113.     endif
  114. virtual_rst =+
  115.     set VirtualDriveFree = *($(VirtualDriveFreeList), ~($(VirtualDriveList), $(VirtualDrive)))
  116.     Ifint   $(VirtualRecommended) > $(VirtualDriveFree)
  117.         set VirtualSize = $(VirtualDriveFree)
  118.     else
  119.         set VirtualSize = $(VirtualRecommended)
  120.     endif
  121.     ifstr(i) $(!STF_INSTALL_MODE) == EXPRESS
  122.         set Status = STATUS_SUCCESSFUL
  123.         goto set_virtual
  124.     endif
  125.     read-syms VirtualDlg$(!STF_LANGUAGE)
  126.     EndWait
  127.     ui start "Virtual"
  128.     ifstr(i) $(DLGEVENT) == "NOTIFY"
  129.         set  VirtualDrive = $(Combo1Out)
  130.         set  ReInit = YES
  131.         goto virtual_rst
  132.     else-ifstr(i) $(DLGEVENT) == "CONTINUE"
  133.         ifint $(EditTextOut) < $(VirtualMinimum)
  134.             set ReInit = NO
  135.             shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(String2)
  136.             goto virtual_rst
  137.         else-ifint $(EditTextOut) > $(VirtualDriveFree)
  138.             set ReInit = NO
  139.             shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(String3)
  140.             goto virtual_rst
  141.         endif
  142.         set VirtualDrive = $(Combo1Out)
  143.         set VirtualSize  = $(EditTextOut)
  144.         ui pop 1
  145.         StartWait
  146.         goto set_virtual
  147.     else
  148.         ui pop 1
  149.         StartWait
  150.         goto finish_virtual
  151.     endif
  152. set_virtual = +
  153.     set VirtualPath  = *($(VirtualPathList), ~($(VirtualDriveList), $(VirtualDrive)))
  154.     set NewPagingFiles = {{$(VirtualPath), $(VirtualSize)}}
  155.     set Status = STATUS_SUCCESSFUL
  156. finish_virtual = +
  157.     Return $(Status) $(OldPagingFiles) $(NewPagingFiles)
  158. [ConfigureVirtual]
  159.     set Status = STATUS_FAILED
  160.     set OldPagingFiles = $($0)
  161.     set NewPagingFiles = $($1)
  162.     shell "registry.inf" SetPagingFiles $(NewPagingFiles)
  163.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  164.         Debug-Output "Failed to shell SetPagingFiles"
  165.         goto finish_configurevirtual
  166.     endif
  167.     ifstr(i) $($R0) != STATUS_SUCCESSFUL
  168.         Debug-Output "SetPagingFiles Failed"
  169.         goto finish_configurevirtual
  170.     else
  171.     set OldPaths = {}
  172.     ForListDo $(OldPagingFiles)
  173.         set OldPaths = >($(OldPaths), *($($), 1))
  174.     EndForListDo
  175.     set NewPaths = {}
  176.     ForListDo $(NewPagingFiles)
  177.         set NewPaths = >($(NewPaths), *($($), 1))
  178.     EndForListDo
  179.     ForListDo $(OldPaths)
  180.        ifcontains(i) $($) in $(NewPaths)
  181.        else
  182.            AddFileToDeleteList $($)
  183.        endif
  184.     EndForListDo
  185.     set Status = STATUS_SUCCESSFUL
  186. finish_configurevirtual = +
  187.     Return $(Status)
  188. [Install-SeeIfFileIsPresent]
  189.     LibraryProcedure STATUS,$(!LIBHANDLE),CheckFileExistance $(FileToCheck)
  190.     exit
  191. [StringsENG]
  192.     String1  = "Setup found no drive on which it could place a minimum paging file. "+
  193.                "Cannot proceed with install."
  194.     String2  = "Setup needs to create a paging file at least "$(VirtualMinimum)"MB large to "+
  195.                "set up Windows NT.  Please increase the size entered."
  196.     String3  = "The size entered is greater than the space available for the paging "+
  197.                "file on the drive selected. Please reenter a size "+
  198.                "within the given range."
  199. [VirtualDlgENG]
  200.     Continue    = "Continue"
  201.     Help        = "&Help"
  202.     Caption     = "Virtual Memory"
  203.     DlgText     = "Setup will create a paging file on the indicated drive.  "+
  204.                   "Windows NT uses the paging file to temporarily store "+
  205.                   "information that was taking space in memory."
  206.     GroupHeader          = "Virtual Memory Settings"
  207.     ComboHeader          = "&Drive:"
  208.     SpaceAvailableHeader = "Space Available (MB):"
  209.     MinimumSizeHeader    = "Minimum Size (MB):"
  210.     RecommendedSizeHeader= "Recommended Size (MB):"
  211.     SizeChosenHeader     = "&Size Chosen (MB):"
  212.     TextFields  = {$(VirtualDriveFree), $(VirtualMinimum), $(VirtualRecommended)}
  213.     EditTextLim = 4
  214.     EditTextIn  = $(VirtualSize)
  215.     EditFocus   = "ALL"
  216.     Combo1List        = $(VirtualDriveList)
  217.     Combo1Out         = $(VirtualDrive)
  218.     ComboListItemsIn  = {Combo1List}
  219.     ComboListItemsOut = {Combo1Out}
  220.     NotifyFields      = {YES}
  221.     CheckItemsIn      = {}
  222.     OptionsGreyed     = {}
  223.     DlgType     = "Combination"
  224.     DlgTemplate = "VIRTUAL_MEMORY"
  225.     HelpContext = $(!IDH_DB_VIRTUAL_INS)
  226.  
  227.  
  228.  
  229.