home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 March / PCO3_97.ISO / filesbbs / os2 / zipshell.arj / INST_ENG.CMD < prev    next >
Encoding:
Text File  |  1996-12-18  |  2.0 KB  |  34 lines
  1. /*  rexx-program
  2.     Author: Martin Vieregg, Germany, March 1995    */
  3.  
  4. Call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
  5. Call SysLoadFuncs
  6.  
  7. CurrentDir = directory()
  8.  
  9. say "Beginning creation of folders and program objects..."
  10.  
  11. Call SysDestroyObject "<MVPackFolder>"
  12. Call SysCreateObject "WPFolder", "Pack", CurrentDir,,
  13.     "OBJECTID=<MVPackFolder>;ICONFILE="CurrentDir"\Pack1.ico;ICONNFILE=1,"CurrentDir"\Pack2.ico;BACKGROUND=,,,C,255 50 50;ICONVIEWPOS=60,40,30,50;"
  14. Call SysCreateObject "WPShadow", "Pack", "<WP_DESKTOP>",,
  15.     "SHADOWID=<MVPackFolder>;"
  16. Call SysCreateObject "WPFolder", "PackProg", "<WP_DESKTOP>",,
  17.     "OBJECTID=<MVPackProgs>";
  18. Call SysCreateObject "WPProgram", "packing", "<MVPackProgs>",,
  19.     "OBJECTID=<MVpack_zip>;EXENAME="CurrentDir"\pack_zip.cmd;PARAMETERS=% C:\Desktop;STARTUPDIR="CurrentDir"\Pack;MINIMIZED=YES;"
  20. Call SysCreateObject "WPProgram", "delete content", "<MVPackProgs>",,
  21.     "OBJECTID=<MVempty>;EXENAME="CurrentDir"\empty.cmd;STARTUPDIR="CurrentDir"\Pack;PROGTYPE=OS2WINDOW;MINIMIZED=YES;"
  22.  
  23. /*creating program objects with associations to data objects*/
  24. Call SysCreateObject "WPProgram", "contents ", "<MVPackProgs>",,
  25.     "OBJECTID=<MVdir_arj>;EXENAME="CurrentDir"\dir_arj.bat;STARTUPDIR="CurrentDir";PROGTYPE=DOSWINDOW;NOAUTOCLOSE=YES;ASSOCFILTER=*.ARJ;ICONFILE="CurrentDir"\arj.ico;"
  26. Call SysCreateObject "WPProgram", "contents", "<MVPackProgs>",,
  27.     "OBJECTID=<MVdir_zip>;EXENAME="CurrentDir"\dir_zipE.cmd;STARTUPDIR="CurrentDir";PROGTYPE=OS2WINDOW;ASSOCFILTER=*.ZIP;ICONFILE="CurrentDir"\zip.ico;"
  28. Call SysCreateObject "WPProgram", "unpacking ", "<MVPackProgs>",,
  29.     "OBJECTID=<MVunpack_arj>;EXENAME="CurrentDir"\un_arj.bat;STARTUPDIR="CurrentDir"\Pack;PROGTYPE=DOSWINDOW;MINIMIZED=YES;ASSOCFILTER=*.ARJ;"
  30. Call SysCreateObject "WPProgram", "unpacking", "<MVPackProgs>",,
  31.     "OBJECTID=<MVunpack_zip>;EXENAME="CurrentDir"\un_zip.cmd;STARTUPDIR="CurrentDir"\Pack;PROGTYPE=OS2WINDOW;MINIMIZED=YES;ASSOCFILTER=*.ZIP;"
  32.  
  33. say "Successful creation of folders and program objects."
  34.