home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / mini105.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1999-12-19  |  2KB  |  85 lines
  1. /* */
  2.  
  3. call RxFuncAdd "SysLoadFuncs", "REXXUTIL", "SysLoadFuncs"
  4. call SysLoadFuncs
  5.  
  6. call SysCls
  7.  
  8. say 'Dumb little Rexx Installer for mINI'
  9. say '-----------------------------------'
  10. say
  11. say '   Installation...'
  12. say
  13. say '   ... will create folder and objects on desktop'
  14. say '   ... will create associations of *.INI files with mINI'
  15. say '   ... will NOT modify your config.sys and *.ini files'
  16. say '       so stay cool :-)'
  17. say
  18.  
  19. say 'Associate *.INI files with mINI (Y/N)?'
  20. PARSE UPPER PULL Assoc
  21. IF Assoc="" THEN
  22.  Assoc="N"
  23.  
  24. say 'Use FastINI instead of RexxUtil (Y/N)?'
  25. PARSE UPPER PULL Fast
  26. IF Fast="" THEN
  27.  Fast="N"
  28.  
  29. InstDir=directory()
  30.  
  31. /* Make icons */
  32. say
  33. say '--------------------------------------------'
  34. say 'creating icons...'
  35. say '--------------------------------------------'
  36.  
  37. mydir=Directory()
  38.  
  39. classname='WPFolder'
  40. title='mINI'
  41. location='<WP_DESKTOP>'
  42. folderid='<mINI_FOLDER>'
  43. setup='OBJECTID='||folderid||';ICONVIEW=FLOWED'
  44. rc=SysCreateObject(classname, title, location, setup, 'U')
  45.  
  46. classname='WPProgram'
  47. title='mINI'
  48. title2='mINI Association'
  49. location='<mINI_FOLDER>'
  50. icon='ICONFILE='mydir||'\mINI.ico'
  51. icon2='ICONFILE='mydir||'\mINIdata.ico'
  52. exename='EXENAME='||InstDir||'\mINI.exe'
  53. WorkDir=InstDir
  54.  
  55. IF Assoc="Y" THEN
  56.  DO
  57.   /* Create associations */
  58.   say
  59.   say '--------------------------------------------'
  60.   say 'creating associations...'
  61.   say '--------------------------------------------'
  62.   setup='OBJECTID=<mINI_ASSOC>;STARTUPDIR='||Workdir||';'||icon2||';'||exename||';ASSOCFILTER=*.INI,*.ini'
  63.   IF Fast<>"N" THEN
  64.    setup=setup||';PARAMETERS=-FASTINI'
  65.   rc=SysCreateObject(classname, title2, location, setup, 'U')
  66.   setup='OBJECTID=<mINI_PROGRAM>;STARTUPDIR='||Workdir||';'||icon||';'||exename
  67.   IF Fast<>"N" THEN
  68.    setup=setup||';PARAMETERS=-FASTINI'
  69.  END
  70. ELSE
  71.  DO
  72.   setup='OBJECTID=<mINI_PROGRAM>;STARTUPDIR='||Workdir||';'||icon||';'||exename
  73.   IF Fast<>"N" THEN
  74.    setup=setup||';PARAMETERS=-FASTINI'
  75.  END
  76.  
  77. rc=SysCreateObject(classname, title, location, setup, 'U')
  78.  
  79. say
  80. say 'Done.'
  81. say
  82.  
  83. "@pause"
  84.  
  85. EXIT