home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / husky.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1997-08-28  |  2KB  |  39 lines
  1. /***********************************************************************/
  2. /*                                                                     */
  3. /* Program name:  INSTALL.CMD -- Creates program object for HUSKY.EXE  */
  4. /* Title:         Husky                                                */
  5. /*                OS/2 Warp application that helps people that can't   */
  6. /*                remember all ASCII scan codes                        */
  7. /*                                                                     */
  8. /* Version:       Release 1.0                                          */
  9. /*                Created:       26.08.97                              */
  10. /*                Last Modified: 28.08.97                              */
  11. /*                                                                     */
  12. /* Author:        Simone Conti                                         */
  13. /*                                                                     */
  14. /* Copyright 1997 by Soft Earls. All rights reserved.                  */
  15. /*                                                                     */
  16. /***********************************************************************/
  17.  
  18. SAY "***************************************"
  19. SAY "*  CREATING PROGRAM OBJECT FOR HUSKY  *"
  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", "Husky", "<WP_DESKTOP>",,
  35.                    "EXENAME="PathName"\HUSKY.EXE;STARTUPDIR="PathName"") Then
  36.   SAY "Program Object successfully created!"
  37. Else SAY "ERROR CREATING PROGRAM OBJECT"
  38. exit
  39.