home *** CD-ROM | disk | FTP | other *** search
/ Unprotect 8 / UNP80_CD1.ISO / setupos2.cmd < prev   
Encoding:
Text File  |  1999-01-01  |  4.6 KB  |  118 lines
  1. /* SETUP.CMD -- REXX */
  2.  
  3. parse ARG TargetPath
  4. if (WordPos( TargetPath, "/H /h /? -H -h -?") > 0) then
  5.    call SelfDocExit
  6.  
  7. call RxFuncAdd SysLoadFuncs, RexxUtil, SysLoadFuncs
  8. call SysLoadFuncs
  9.  
  10. call SysCls
  11. say "┌─────────────────────────────────────────────────────────────────────┐"
  12. say "│                 Unprotect Pro CD 8.0 Installation                   │"
  13. say "├─────────────────────────────────────────────────────────────────────┤"
  14. say "│                                                                     │"
  15. say "│   This is the install program for Unprotect Pro CD 8.0 (DOS).       │"
  16. say "│   It will install the Unprotect files on your hard disk and         │"
  17. say "│   creates a program folder.                                         │"
  18. say "│                                                                     │"
  19. say "│                                                                     │"
  20. say "│   Press any key to continue, or Ctrl+C to exit.                     │"
  21. say "└─────────────────────────────────────────────────────────────────────┘"
  22. '@pause > NUL'
  23.  
  24. if TargetPath = ' ' then do
  25.    call SysCls
  26.    say '┌─────────────────────────────────────────────────────────────────────┐'
  27.    say '│                 Unprotect Pro CD 8.0 Installation                   │'
  28.    say '├─────────────────────────────────────────────────────────────────────┤'
  29.    say '│                                                                     │'
  30.    say '│       Please enter the name of the directory you wish to            │'
  31.    say '│       install Unprotect to, at the prompt below.                    │'
  32.    say '│                                                                     │'
  33.    say '└─────────────────────────────────────────────────────────────────────┘'
  34.    say '  Directory to install to (Default = C:\UNP80): '
  35.    say '───────────────────────────────────────────────────────────────────────'
  36.    parse pull TargetPath
  37.    /* if they accepted the default */
  38.    if TargetPath = ' ' then TargetPath = 'C:\UNP80'
  39. end
  40.  
  41. say "  Installing Unprotect Pro CD 8.0..."
  42.  
  43. '@IF NOT EXIST 'TargetPath'\*  @MD 'TargetPath
  44. call SysFileTree  TargetPath, FileTree, 'DT'
  45. if FileTree.0 <> 1 then do
  46.    say "ERROR: Can't find or create directory "TargetPath || D2C( 7)
  47.    call SelfDocExit
  48. end
  49.  
  50. say "  Install is copying files, please wait..."
  51. '@COPY UNP80\BIN\DOS\UNP.EXE 'TargetPath' >NUL'
  52. '@COPY UNP80\BIN\DOS\DOS4GW.EXE 'TargetPath' >NUL'
  53. '@COPY UNP80\DATA\UNP80OS2.ICO 'TargetPath' >NUL'
  54.  
  55. say "  Creating the program folder..."
  56.   classname  = 'WPFolder'
  57.   objectname = 'Unprotect Pro CD 8.0'
  58.   msgtext    = 'Unprotect Pro CD 8.0'
  59.   location   = '<WP_DESKTOP>'
  60.   setup      = 'OBJECTID=<WP_UNPFolder>;'
  61.   CALL DOCreateObject
  62.  
  63. say "  Creating the objects..."
  64.   classname  = 'WPProgram'
  65.   objectname = 'Unprotect Pro CD 8.0 (DOS Version)'
  66.   msgtext    = 'Unprotect Pro CD 8.0 (DOS Version)'
  67.   location   = '<WP_UNPFolder>'
  68.   setup = 'EXENAME='||TargetPath||'\UNP.EXE;'||,
  69.           'ICONFILE='||TargetPath||'\UNP80OS2.ICO;'||,
  70.           'STARTUPDIR='||TargetPath||';'||,
  71.           'PROGTYPE=WINDOWEDVDM;'||,
  72.           'OBJECTID=<WP_UNP80_EXE>;'
  73.   CALL DOCreateObject
  74.  
  75. say ''
  76. say '┌─────────────────────────────────────────────────────────────────────┐'
  77. say '│                 Unprotect Pro CD 8.0 Installation                   │'
  78. say '├─────────────────────────────────────────────────────────────────────┤'
  79. say '│                                                                     │'
  80. say '│        Unprotect Pro 8.0 has been installed on your system.         │'
  81. say '│                                                                     │'
  82. say '└─────────────────────────────────────────────────────────────────────┘'
  83. say ''
  84.  
  85. EXIT rc
  86.  
  87. /* ------------------------------------------------------------------------- */
  88.  
  89. SelfDocExit:        procedure           expose SrcPath BootSetMax
  90.  
  91. say "SETUP.CMD"
  92. say "This little REXX command will copy the Unprotect 8.0 main program files"
  93. say "to a target directory that you need to specify. (see syntax below)"
  94. say "For best results, please specify an empty directory."
  95. say ""
  96. say "NOTE:       You need at least 2 MB available on the target drive."
  97. say ""
  98. say "USAGE:      SETUP    target_dir_fullpathname"
  99. say "EXAMPLE:    SETUP    C:\UNP80"
  100.  
  101. EXIT 1
  102.  
  103. DOCreateObject:
  104.   SAY ''
  105.   CALL charout, '  Creating/updating object:  ' msgtext
  106.   rc = SysCreateObject(classname, objectname, location, setup, 'U')
  107.   IF rc <> 0 THEN DO
  108.     CALL charout ,'... OK!'
  109.     objRC = 0
  110.   END
  111.   ELSE DO
  112.     CALL charout ,'... ERROR #'rc
  113.     objRC = 1
  114.   END
  115.  
  116.   SAY '';
  117. RETURN objRC
  118.