home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 March / PCO3_97.ISO / filesbbs / os2 / zipshell.arj / INST_GER.CMD < prev    next >
Encoding:
Text File  |  1996-12-30  |  1.9 KB  |  34 lines
  1. /*  rexx-program
  2.     Author: Martin Vieregg, Germany    */
  3.  
  4. Call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
  5. Call SysLoadFuncs
  6.  
  7. CurrentDir = directory()
  8.  
  9. say "Beginne mit dem Anlegen der Ordner und Programm-Objekte..."
  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", "packen", "<MVPackProgs>",,
  19.     "OBJECTID=<MVpack_zip>;EXENAME="CurrentDir"\pack_zip.cmd;PARAMETERS=% C:\Arbeitsoberfläche;STARTUPDIR="CurrentDir"\Pack;MINIMIZED=YES;"
  20. Call SysCreateObject "WPProgram", "Inhalt löschen", "<MVPackProgs>",,
  21.     "OBJECTID=<MVempty>;EXENAME="CurrentDir"\empty.cmd;STARTUPDIR="CurrentDir"\Pack;PROGTYPE=OS2WINDOW;MINIMIZED=YES;"
  22.  
  23. /*Zuordnungen*/
  24. Call SysCreateObject "WPProgram", "Inhalt ", "<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", "Inhalt", "<MVPackProgs>",,
  27.     "OBJECTID=<MVdir_zip>;EXENAME="CurrentDir"\dir_zipD.cmd;STARTUPDIR="CurrentDir";PROGTYPE=OS2WINDOW;ASSOCFILTER=*.ZIP;ICONFILE="CurrentDir"\zip.ico;"
  28. Call SysCreateObject "WPProgram", "auspacken ", "<MVPackProgs>",,
  29.     "OBJECTID=<MVunpack_arj>;EXENAME="CurrentDir"\un_arj.bat;STARTUPDIR="CurrentDir"\Pack;PROGTYPE=DOSWINDOW;MINIMIZED=YES;ASSOCFILTER=*.ARJ;"
  30. Call SysCreateObject "WPProgram", "auspacken", "<MVPackProgs>",,
  31.     "OBJECTID=<MVunpack_zip>;EXENAME="CurrentDir"\un_zip.cmd;STARTUPDIR="CurrentDir"\Pack;PROGTYPE=OS2WINDOW;MINIMIZED=YES;ASSOCFILTER=*.ZIP;"
  32.  
  33. say "Anlegen der Ordner und Programm-Objekte beendet."
  34.