home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / mmpm_ext.zip / ADDICON.CMD next >
OS/2 REXX Batch file  |  1994-08-08  |  2KB  |  37 lines
  1. /* Create An Icon For the Auxiliary control program */
  2. /* Dependencies:                                    */
  3. /*     AUXCTL.EXE in Audiodd directory              */
  4. /*     AUXCTL.ICO  in Audiodd directory             */
  5. /*     RexxUtils Installed                          */
  6.  
  7. /* Load REXXUTIL */
  8. /* The following lines are checking for the bootdrive           */
  9. /* They also load the extended REXX libraries to enable      */
  10. /* the creation of objects.                                               */
  11. call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs      /* this line installs the REXX utils */
  12. call sysloadfuncs                                                    /* along with this one                 */
  13. os2driv=SysSearchPath('PATH','MINSTALL.EXE')
  14. if (os2driv=' ') then os2drive='C'
  15.    else os2drive = substr(os2driv,1,1)
  16.  
  17. classname='WPProgram'                                         /* Specifies what type is the new object */
  18. title='Auxiliary^control'                                          /*  This is the name that appears in Desktop */
  19. location='<MWAVEFLDR>'                                       /* Object Id of the MWAVEOS2 Folder       */
  20. setup='OBJECTID=<AUX_CONTROL>;'||,                     /*  Object Id for the Auxiliary control prog. */
  21.       'EXENAME='OS2Drive':\MMOS2\AUDIODD\AUXCTL.EXE;'||,     /*  The executable path              */
  22.       'ICONFILE='OS2Drive':\MMOS2\AUDIODD\AUXCTL.ICO;'||,      /*  The icon od the object            */
  23.       'MINWIN=HIDE;'                                                /* minimize button hides object ctl esc to see */
  24.  
  25. Call BldObj                                            /* calls the build objects subroutine just in case of future */
  26.                                                           /* executable programs.                               */
  27.  
  28. /**** Build Object ****/
  29. BldObj:                                                /* routine label   */
  30.  
  31. /* Build object using REPLACE as duplicateflag */
  32. result = SysCreateObject(classname, title, location, setup 'R')
  33.  
  34. /* the following returns control to the parent program  */
  35. Return
  36.  
  37.