home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / delta3.zip / inst.cmd < prev    next >
OS/2 REXX Batch file  |  1995-03-26  |  612b  |  25 lines
  1. /* Register with REXX API extensions. */
  2. rc=RxFuncAdd('SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs')
  3. If rc>1 then
  4.   Do
  5.     Call Dosay 'Unable to register REXXUTIL functions.'
  6.     Signal Done1
  7.   End
  8. Call SysLoadFuncs
  9. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  10. Call SysLoadFuncs
  11.  
  12. call SYSCLS
  13. say 'Wait please...'
  14.  
  15. Parse Arg InstallDir
  16. InstallDir = 'C:\delta'
  17.     r= SysCreateObject("WPProgram",,
  18.                 "Delta",,
  19.                 "<WP_DESKTOP>",,
  20. "EXENAME=c:\MyBase\MyBase.EXE;ASSOCTYPE=Executable;MINWIN=DESKTOP;STARTUPDIR=c:\DELTA","replace")
  21. cls
  22. cls
  23. say 'Reasy'
  24. exit
  25.