home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / run.zip / install.cmd next >
OS/2 REXX Batch file  |  1999-07-12  |  1KB  |  43 lines
  1. /************************************************************************/
  2. /* install for run.exe                                                           */
  3. /* Created: 4 Apr 1999                                                  */
  4. /* Author: J. Pedone                                                    */
  5. /* jpedone@flash.net                                                    */
  6. /************************************************************************/
  7.  
  8. Call RxFuncAdd SYSLOADFUNCS, REXXUTIL, SYSLOADFUNCS
  9. call SysLoadFuncs
  10. Signal on Halt
  11.  
  12. workdir = Directory()
  13.     If LastPos('\',workdir) <> Length(workdir) Then Do
  14.         fworkdir=workdir||'\'
  15.     End
  16.     If LastPos('\',workdir) = Length(workdir) Then Do
  17.         fworkdir=workdir
  18.     End
  19.  
  20.     classname='WPProgram'
  21.     title = 'Run'
  22.     location = '<WP_DESKTOP>'
  23.     setup = 'OBJECTID=<JWP_RUN>;'||,
  24.               'EXENAME='||fworkdir||'run.exe;'||,
  25.               'STARTUPDIR='workdir
  26.     result = SysCreateObject(classname, title, location, setup, 'R')
  27.     If result \= 1 Then 
  28.        Do
  29.           say 'Run...   Not created! Return code='result
  30.        End
  31.     Say 'Run created'
  32. Exit
  33.  
  34. Syntax:
  35.     Say SourceLine(sigl)
  36.     Say 'Syntax Error on line' sigl || ':'
  37.     Say ErrorText(rc)
  38.     Trace ?R ; NOP ; Exit
  39.  
  40. Halt:
  41.     Exit
  42.  
  43.