home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / killfold.zip / INSTALL.CMD next >
OS/2 REXX Batch file  |  1995-06-08  |  886b  |  30 lines
  1. /* REXX - Install Kill Folder Object */
  2.  
  3. Call RxFuncAdd 'SysLoadFuncs','REXXUTIL','SysLoadFuncs';
  4. Call SysLoadFuncs; 
  5.  
  6. PathToDir=Directory()
  7.  
  8. Say PathToDir
  9.  
  10. ObjectClass = "WPProgram"
  11. ObjectTitle = "Close All Folders"
  12. ObjectLocation = "<WP_DESKTOP>"
  13. ObjectSetupStr= "HELPPANEL=4083;"||,
  14.                 "DEFAULTVIEW=RUNNING;"||,
  15.                 "NOPRINT=YES;"||,
  16.                 "ICONPOS=40 53;"||,
  17.                 "ICONRESOURCE=58,PMWP.DLL;"||,
  18.                 "EXENAME="||PathToDir||"\KILLFOLD.EXE;"||,
  19.                 "PROGTYPE=WINDOWABLEVIO;"||,
  20.                 "MINIMIZED=YES;"
  21. DefaultAction = "UpdateIfExists"
  22.  
  23. rc=SysCreateObject(ObjectClass,,
  24.                    ObjectTitle,,
  25.                    ObjectLocation,,
  26.                    ObjectSetupStr,,
  27.                    DefaultAction)
  28.  
  29. If rc<>1 Then Say "Error: Object could not be created or updated";
  30.