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