home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 May / PCW596.iso / demo / janbit / advisor / disk1 / advisor.inf < prev    next >
Encoding:
INI File  |  1994-05-03  |  2.0 KB  |  84 lines
  1. Do Setup
  2.  
  3. Dialog
  4.     Welcome to the Analysis Advisor.
  5.     This package requires 8 MB of memory and VGA.    
  6. EndDialog
  7.  
  8. [Point MainDialog]
  9. [Number1] := 0
  10. [Number2] := 0
  11.  
  12. GetMenuChoice UseHeader "Analysis Advisor Installer"
  13.   Full Installation
  14.     ;Use this choice to install Analysis Advisor
  15.     ;and all the associated support files.
  16.   Quit
  17.     ;Exit this Installer
  18. EndGetMenuChoice
  19.  
  20. UnqueAllFiles
  21.  
  22. InCase Choice is
  23.   =1: Do FullInstallation
  24.   =3: Do Finished
  25. EndInCase
  26.  
  27. Procedure FullInstallation
  28.   [Number1] := 1
  29.   [Number2] := 1
  30.   Do QueueFiles
  31.   Do BuildGroup
  32.   Do Finished
  33.  
  34. EndProcedure
  35.  
  36. Procedure QueueFiles
  37.     QueFileGroup 1
  38.     QueFileGroup 2
  39.     DetermineInstallationDrive QueSize RequireFixed BernoulliAsFixed
  40. If QueSize <> 0
  41.     DetermineInstallationDirectory InstallationDrive:\advisor QueSize RequireFixed BernoulliAsFixed
  42.         ;; Select a directory in which to install the files.
  43.     GetQuedFiles
  44. EndIf
  45. EndProcedure
  46.  
  47. Procedure BuildGroup
  48. Dialog [YesOrNo1]
  49.     Would you like to place Analysis Advisor
  50.     in a Windows program group?
  51. EndDialog
  52.  
  53. If [YesOrNo1] = Y
  54.       BuildProgramGroup "Analysis Advisor" NIDSPWIN.GRP
  55.       [InstallationDirectory]\advisor.exe "Advisor"
  56.       EndBuildProgramGroup
  57. EndIf
  58. EndProcedure
  59.  
  60. Procedure Finished
  61. Dialog PressAKey WhiteOnBrown UseHeader "Installation Complete"
  62.     Thank you for using Analysis Advisor!
  63.     Press OK to continue.
  64.     EndDialog
  65.   SoLong
  66. EndProcedure
  67.  
  68.  
  69. Procedure Setup
  70.   SetTopLineTo Installing Analysis Advisor (Press Esc to exit)
  71.   ;; While it is not documented anywhere else it is true that FreeSpaceOnDrive
  72.   ;; considers only the first character of its first parameter (in this case
  73.   ;; the drive letter of the temporary directory).
  74.   If FreeSpaceOnDrive ShadowDirectory < 25000
  75.    popup There is insufficient space on the TEMP drive for installation.
  76.    SoLong
  77.   EndIf                         
  78.   SetDefaultBitmap off
  79.   ShowWindow Maximized
  80.   SetReplacementInquiry off
  81. EndProcedure
  82.  
  83. EndScript
  84.