home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 9 Archive
/
09-Archive.zip
/
zipshell.zip
/
inst_ger.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-12-30
|
2KB
|
34 lines
/* rexx-program
Author: Martin Vieregg, Germany */
Call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
Call SysLoadFuncs
CurrentDir = directory()
say "Beginne mit dem Anlegen der Ordner und Programm-Objekte..."
Call SysDestroyObject "<MVPackFolder>"
Call SysCreateObject "WPFolder", "Pack", CurrentDir,,
"OBJECTID=<MVPackFolder>;ICONFILE="CurrentDir"\Pack1.ico;ICONNFILE=1,"CurrentDir"\Pack2.ico;BACKGROUND=,,,C,255 50 50;ICONVIEWPOS=60,40,30,50;"
Call SysCreateObject "WPShadow", "Pack", "<WP_DESKTOP>",,
"SHADOWID=<MVPackFolder>;"
Call SysCreateObject "WPFolder", "PackProg", "<WP_DESKTOP>",,
"OBJECTID=<MVPackProgs>";
Call SysCreateObject "WPProgram", "packen", "<MVPackProgs>",,
"OBJECTID=<MVpack_zip>;EXENAME="CurrentDir"\pack_zip.cmd;PARAMETERS=% C:\Arbeitsoberfläche;STARTUPDIR="CurrentDir"\Pack;MINIMIZED=YES;"
Call SysCreateObject "WPProgram", "Inhalt löschen", "<MVPackProgs>",,
"OBJECTID=<MVempty>;EXENAME="CurrentDir"\empty.cmd;STARTUPDIR="CurrentDir"\Pack;PROGTYPE=OS2WINDOW;MINIMIZED=YES;"
/*Zuordnungen*/
Call SysCreateObject "WPProgram", "Inhalt ", "<MVPackProgs>",,
"OBJECTID=<MVdir_arj>;EXENAME="CurrentDir"\dir_arj.bat;STARTUPDIR="CurrentDir";PROGTYPE=DOSWINDOW;NOAUTOCLOSE=YES;ASSOCFILTER=*.ARJ;ICONFILE="CurrentDir"\arj.ico;"
Call SysCreateObject "WPProgram", "Inhalt", "<MVPackProgs>",,
"OBJECTID=<MVdir_zip>;EXENAME="CurrentDir"\dir_zipD.cmd;STARTUPDIR="CurrentDir";PROGTYPE=OS2WINDOW;ASSOCFILTER=*.ZIP;ICONFILE="CurrentDir"\zip.ico;"
Call SysCreateObject "WPProgram", "auspacken ", "<MVPackProgs>",,
"OBJECTID=<MVunpack_arj>;EXENAME="CurrentDir"\un_arj.bat;STARTUPDIR="CurrentDir"\Pack;PROGTYPE=DOSWINDOW;MINIMIZED=YES;ASSOCFILTER=*.ARJ;"
Call SysCreateObject "WPProgram", "auspacken", "<MVPackProgs>",,
"OBJECTID=<MVunpack_zip>;EXENAME="CurrentDir"\un_zip.cmd;STARTUPDIR="CurrentDir"\Pack;PROGTYPE=OS2WINDOW;MINIMIZED=YES;ASSOCFILTER=*.ZIP;"
say "Anlegen der Ordner und Programm-Objekte beendet."