home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / we025.zip / INSTALL.CMD next >
OS/2 REXX Batch file  |  1997-03-29  |  2KB  |  39 lines
  1. /************************************************************************/
  2. /*                                                                      */
  3. /* Program name:   INSTALL.CMD  -- Creates program object for WE.EXE    */
  4. /* Title:          WarpEnhancer                                         */
  5. /*                 PM Utility to give some missing                      */
  6. /*                 features to OS/2 users                               */
  7. /*                                                                      */
  8. /* Version:        pre-Release 0.17                                     */
  9. /*                 Created:       11.02.96                              */
  10. /*                 Last Modified: 23.03.97                              */
  11. /*                                                                      */
  12. /* Author:         Achim Hasenmueller                                   */
  13. /*                                                                      */
  14. /* Copyright 1996,97 by InnoTek Systemberatung. All rights reserved     */
  15. /*                                                                      */
  16. /************************************************************************/
  17.  
  18. SAY "***********************************************"
  19. SAY "*  CREATING PROGRAM OBJECT FOR WARP ENHANCER  *"
  20. SAY "***********************************************"
  21. SAY
  22.  
  23. /* load rexxutil library function                                       */
  24. Call RxFuncAdd 'SysCreateObject', 'REXXUTIL', 'SysCreateObject'
  25.  
  26. /* query current path name (= path of Warp Enhancer files)              */
  27. PathName = Directory()
  28.  
  29. /* remove trailing backslash if directory is root directory             */
  30. If LENGTH(PathName) = 3 Then
  31.   PathName = DELSTR(PathName, 3)
  32.  
  33. /* create program object on desktop                                     */
  34. If SysCreateObject("WPProgram", "Warp Enhancer", "<WP_DESKTOP>",,
  35.                    "EXENAME="PathName"\WE.EXE;STARTUPDIR="PathName"") Then
  36.   SAY "Program Object successfully created!"
  37. Else SAY "ERROR CREATING PROGRAM OBJECT"
  38. exit
  39.