home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Product / Product.zip / envlgo.zip / PUT_ICON.CMD < prev    next >
OS/2 REXX Batch file  |  1993-02-03  |  957b  |  33 lines
  1. /* Set up an ENVELOGO for OS/2 icon */
  2.  
  3. call rxfuncadd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5. call SysCls
  6.      say ""
  7.      say ""
  8.      say ""
  9.      say ""
  10.      say ""
  11.      say "Please enter the full path name of the ENVELOGO directory,"
  12.      say "where the ENVELOGO.EXE will be found."
  13.      say ""
  14.      say "Example:  C:\MYAPPS\ENVELOGO"
  15.      say ""
  16.      say "Do NOT include trailing \"
  17.      say ""
  18.      say "(Type carefully)"
  19.      say ""
  20.      pull DirName
  21.  
  22.    MyLine1="EXENAME="DirName"\ENVELOGO.EXE;"
  23.    MyLine2="STARTUPDIR="DirName";"
  24.    MyLine3="OBJECTID=<ENVELOGO>;"
  25.    MyLine3="HELPLIBRARY="DirName"\ENVELOGO.HLP;HELPPANEL=10000;"
  26.  
  27.    call SysCreateObject 'WPProgram',,
  28.                                      'ENVELOGO',,
  29.                                      '<WP_DESKTOP>',,
  30.                                      MyLine1||MyLine2||MyLine3||MyLine4,,
  31.                                      'REPLACE:'
  32.  
  33.