home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / mpbeta-2.zip / insobj.cmd < prev    next >
OS/2 REXX Batch file  |  1994-07-12  |  1KB  |  35 lines
  1. /***************************************************/
  2. /* Create MaxFile/PM program object on the Desktop */
  3. /***************************************************/
  4. '@echo off'
  5. Say "MaxFile/PM WPS Object Installation Aid."
  6. Say 'Copyright 1994 Craig Morrison, All Rights Reserved.'
  7.  
  8. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  9. Call SysLoadFuncs
  10.  
  11. iDir = Directory()
  12.  
  13. Say
  14. Say 'This file will create an object on your desktop for MaxFile/PM.'
  15. Say 'Is MaxFile/PM in the directory: 'iDir' (Y or N)?'
  16. Pull YesNo .
  17. If YesNo \= 'Y' then Exit
  18.  
  19. Say
  20. Say 'Creating MaxFile/PM Desktop program object.'
  21. rc = SysCreateObject("WPProgram", "MaxFile/PM", "<WP_DESKTOP>",,
  22.                      "EXENAME="||iDir||"\MAXFMPM.EXE;STARTUPDIR="||iDir )
  23. Say
  24. If rc then  Say 'MaxFile/PM object creation successful!'
  25. Else        Say 'Error creating MaxFile/PM object!'
  26.  
  27. Say
  28. Say 'Creating MaxFile/PM Online Reference object.'
  29. rc = SysCreateObject("WPProgram", "MaxFile/PM Online Reference",,
  30.                      "<WP_DESKTOP>",,
  31.                      "EXENAME=VIEW.EXE;PARAMETERS=MAXFMPM.INF;STARTUPDIR="||iDir )
  32. Say
  33. If rc then  Say 'MaxFile/PM Online Reference object creation successful!'
  34. Else        Say 'Error creating MaxFile/PM object!'
  35.