home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p073 / 1.img / SETUPB.INF < prev   
Encoding:
Text File  |  1993-10-08  |  1.9 KB  |  59 lines
  1. ;; **********************************************************************
  2. ;; *                                    *
  3. ;; *   Installer for 3D Home Architect. Script by Chris Bohn 10/8/93.    *
  4. ;; *                                    *
  5. ;; **********************************************************************
  6. SetDefaultBitmap off
  7. ShowWindow Maximize
  8. SetCustomControls off
  9. SetBackdrop off
  10. SetBackgroundColor 255 255 255 255 255 255
  11. SetTopLineTo "3D Home Architect Installation"
  12. SetScreenAttrTo BlackOnWhite  ;; no effect!!!
  13. SetPopupAttrTo BlackOnWhite
  14. SetAttentionAttrTo RedOnWhite
  15. SetReplacementInquiry off
  16. QueFiles to ShadowDirectory
  17. 3dhome.bmp
  18. EndQueFiles
  19. GetQuedFiles Quietly
  20. SetReplacementInquiry on
  21. LoadBitMap 1 ShadowDirectory\3dhome.bmp
  22. ShowBitMap 1 
  23. Dialog
  24. Welcome to the installer for 3D Home Architect. If at any 
  25. time you wish to cancel the installation, press the Esc key. 
  26. EndDialog
  27. :DirInq
  28. DetermineInstallationDirectory C:\3DHOME 7000000 DisallowInadequate
  29. If Escaped
  30.     Goto DirInq
  31. EndIf
  32. If FileExists [InstallationDirectory]\3dhome.exe
  33.     Dialog [YesOrNo1]
  34.         A version of 3D Home Architect already exists in the 
  35.         destination directory on your computer. Do you want to be
  36.         prompted before each file is overwritten? (If you wish to
  37.         cancel the installation, press the Esc key).
  38.     EndDialog
  39.     If [YesOrNo1] = N
  40.         SetReplacementInquiry off
  41.     EndIf
  42. EndIf
  43. QueFileGroup 1 to [InstallationDirectory]
  44. GetQuedFiles
  45. QueFileGroup 2 to [InstallationDirectory]\samples\homes
  46. GetQuedFiles
  47. QueFileGroup 3 to [InstallationDirectory]\samples\remodels
  48. GetQuedFiles
  49. BuildProgramGroup "3D Home Architect" 3DHOME.GRP
  50.  [INSTALLATIONDIRECTORY]\3dhome.exe "3D Home Architect" [INSTALLATIONDIRECTORY]\3dhome.exe
  51.  [INSTALLATIONDIRECTORY]\readme.wri  "Read Me"  [INSTALLATIONDIRECTORY]\readme.wri
  52. EndBuildProgramGroup
  53. DeleteFiles from ShadowDirectory Quietly
  54. 3dhome.bmp
  55. EndDeleteFiles
  56. Dialog
  57. Installation complete!
  58. EndDialog
  59.