home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Multimed / Multimed.zip / gramof16.zip / Install.CMD next >
OS/2 REXX Batch file  |  2001-12-02  |  1KB  |  31 lines
  1. /* Install skript for gramofile */
  2. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. call SysLoadFuncs
  4.  
  5. SAY ''
  6. SAY 'Gramofile 1.6'
  7. SAY ''
  8. SAY 'This install skript will create a gramofile folder on your'
  9. SAY 'desktop.'
  10. SAY ''
  11. '@PAUSE'
  12. SAY ''
  13.  
  14. thisDir=DIRECTORY()
  15. gramofile=thisDir||'\bin\gramofile.exe'
  16.  
  17. rc=SysCreateObject('WPFolder','Gramofile 1.6','<WP_DESKTOP>','OBJECTID=<FLD_GRAMOFILE>;','update')
  18. IF rc=1 then DO
  19.     rc=SysCreateObject('WPProgram','Gramofile 1.6','<FLD_GRAMOFILE>','EXENAME='||gramofile||';OBJECTID=<PGM_GRAMOFILE>;','update')
  20.     rc=SysCreateObject('WPShadow','Docs','<FLD_GRAMOFILE>','SHADOWID='||thisDir||'\Docs;OBJECTID=<SHW_GRAMOFILEDOCS>;','update')
  21.     rc=SysCreateObject('WPShadow','COPYING','<FLD_GRAMOFILE>','SHADOWID='||thisDir||'\Docs\Copying;OBJECTID=<SHW_GRAMOFILELICENSE>;','update')
  22.     rc=SysCreateObject('WPShadow','README.OS2','<FLD_GRAMOFILE>','SHADOWID='||thisDir||'\README.OS2;OBJECTID=<SHW_GRAMOFILEREADME>;','update')
  23.     SAY 'Done'
  24.     SAY ''
  25.     '@PAUSE'
  26.     EXIT    
  27. END
  28.  
  29. Say 'Cannot create folder. Ending...'
  30. SAY ''
  31. '@PAUSE'