home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / MKPRG.ZIP / INSTALL.CMD next >
OS/2 REXX Batch file  |  1993-01-21  |  875b  |  19 lines
  1. /*********************************************************************\
  2.    MakePrg Installation
  3.    (C) 1993 Thomas Christinck, Braunschweig      Compuserve 100031,41
  4. \*********************************************************************/
  5.  
  6.  
  7. Call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  8. Call SysLoadFuncs;
  9. InstDir=Filespec("Drive",Value("OS2_SHELL",,"OS2ENVIRONMENT"))||"\OS2"
  10. say "Enter the Directory for MakePrg.cmd  (Press <ENTER> for "InstDir")"
  11. pull line
  12. if line <> "" then InstDir = line
  13. say "copying MAKEPRG.CMD to "Instdir" ..."
  14. "@COPY MAKEPRG.CMD "InstDir" >NUL"
  15. say "creating Object on WPS ..."
  16. RetCode = SysCreateObject( "WPProgram", "MakePrg", "<WP_DESKTOP>", "EXENAME="InstDir"\MAKEPRG.CMD;ASSOCFILTER=*.EXE,*.CMD,*.COM,*.BAT")
  17. if RetCode = 0 then say "The programobject >MakePrg< could not be created"
  18.                else say "OK."
  19.