home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / IJB20OS2 / BIN / INSTALL.CMD
OS/2 REXX Batch file  |  1997-09-24  |  599b  |  15 lines
  1. /* Rexx */
  2. IF RxFuncQuery('SysLoadFuncs') THEN DO
  3.    CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4.    CALL SysLoadFuncs
  5. END
  6.  
  7. call SysFileTree "JUNKBUST.EXE", File,"FO"
  8. if file.0>0 then
  9.   Exename="junkbust.exe"  /* only found on a fat-drive */
  10. else
  11.   Exename="junkbuster.exe" /* assume hpfs-drive */
  12.  
  13. rc = SysCreateObject("WPProgram","OS/2 Junkbuster 2.0","<WP_DESKTOP>", "EXENAME=" || Directory() || "\" || exename || ";PROGTYPE=WINDOWABLEVIO;HELPPANEL=8010;CCVIEW=YES;STARTUPDIR="||directory()||"\..\config;PARAMETERS=config.ijb;OBJECTID=<JUNKBUSTER>;MINIMIZED=YES","R")
  14.  
  15.