home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Multimed
/
Multimed.zip
/
mixom200.zip
/
install.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1998-03-16
|
1KB
|
19 lines
/* Mixomat 2.00 Installation Script */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
say 'Mixomat 2.00 Installation'
PathName = Directory()
if Length(PathName) = 3 then PathName = DelStr(PathName,3)
say 'Creating WPS Objects ...'
rc = SysCreateObject('WPFolder','Mixomat 2.00','<WP_DESKTOP>','OBJECTID=<MIXOM200_Folder>','R')
rc = SysCreateObject('WPProgram','REXX demo','<MIXOM200_Folder>','OBJECTID=<MIXOM200REXX>;PROGTYPE=VIO;EXENAME='PathName'\SBTEST.CMD;STARTUPDIR='PathName'\','R')
rc = SysCreateObject('WPProgram','Text Documentation','<MIXOM200_Folder>','OBJECTID=<MIXOM200TEXTMANUAL>;PROGTYPE=PM;PARAMETERS='PathName'\MIXOMAT.TXT;EXENAME=E.EXE','R')
rc = SysCreateObject('WPProgram','HTML Documentation','<MIXOM200_Folder>','OBJECTID=<MIXOM200HTMLMANUAL>;PROGTYPE=PM;PARAMETERS='PathName'\MIXOMAT.HTM;EXENAME=NETSCAPE.EXE','R')
rc = SysCreateObject('WPProgram','Mini view','<MIXOM200_Folder>','OBJECTID=<MIXOM200MINI>;PROGTYPE=PM;PARAMETERS=/MINI;EXENAME='PathName'\MIXOMAT.EXE','R')
rc = SysCreateObject('WPProgram','Mixomat 2.00','<MIXOM200_Folder>','OBJECTID=<MIXOM200>;PROGTYPE=PM;EXENAME='PathName'\MIXOMAT.EXE;STARTUPDIR='PathName'\','R')
say 'Finished!'