home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / rolwps10.zip / createrolo.cmd next >
OS/2 REXX Batch file  |  1994-05-26  |  3KB  |  108 lines
  1. /*
  2.  * Build the RoloWPS/2 folder and the associated icons.
  3.  */
  4.  
  5. address CMD
  6.  
  7. 'echo on'
  8.  
  9. call RXFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  10. call SysLoadFuncs
  11. call setlocal
  12.  
  13. /*
  14.  * The target directory is the parm we were passed... make sure
  15.  * the directory exists...
  16.  */
  17. folder_title = 'RoloWPS/2'
  18. target_dir = directory()
  19. target_dir = directory( target_dir )
  20.  
  21.  
  22. /*
  23.  * Create the main folder object
  24.  */
  25.  
  26. say 'Building Workplace Shell RoloWPS/2 Objects...'
  27.  
  28.  
  29. classname = 'WPFolder'
  30. title     = 'RoloWPS/2'
  31. location  = '<WP_DESKTOP>'
  32. iconparm  = 'ICONFILE=' || target_dir || '\rolofold.ico;'
  33. setup     = 'OBJECTID=<RoloWPS_FOLDER>;' || iconparm
  34.  
  35. call SysCreateObject classname, title, location, setup, 'r'
  36.  
  37.  
  38. /*
  39.  * Create the Readme program object
  40.  */
  41.  
  42.  
  43. classname = 'WPProgram'
  44. title     = 'Read Me First'
  45. location  = '<RoloWPS_FOLDER>'
  46. setup     = 'EXENAME=epm.exe;' ||,
  47.             'PROGTYPE=PM;' ||,
  48.             'PARAMETERS=' || target_dir || '\readme.1st;' ||,
  49.             'STARTUPDIR=' || target_dir || ';'
  50. call SysCreateObject classname, title, location, setup, 'r'
  51.  
  52. classname = 'WPProgram'
  53. title     = 'Order Form'
  54. location  = '<RoloWPS_FOLDER>'
  55. setup     = 'EXENAME=e.exe;' ||,
  56.             'PROGTYPE=PM;' ||,
  57.             'PARAMETERS=' || target_dir || '\order.frm;' ||,
  58.             'STARTUPDIR=' || target_dir || ';'
  59. call SysCreateObject classname, title, location, setup, 'r'
  60.  
  61. classname = 'WPProgram'
  62. title     = 'RoloWPS/2 Help'
  63. location  = '<RoloWPS_FOLDER>'
  64. setup     = 'EXENAME=view.exe;' ||,
  65.             'PROGTYPE=PM;' ||,
  66.             'PARAMETERS=' || target_dir || '\rolowps2.inf;' ||,
  67.             'STARTUPDIR=' || target_dir || ';'
  68. call SysCreateObject classname, title, location, setup, 'r'
  69.  
  70. classname = 'WPShadow'
  71. title     = 'Icons'
  72. location  = '<RoloWPS_FOLDER>'
  73. setup     = 'SHADOWID=' || target_dir || '\icons;OBJECTID=<rolowps_Icons>;'
  74.  
  75. call SysCreateObject classname, title, location, setup, 'r'
  76.  
  77.  
  78. classname = 'WPProgram'
  79. title     = 'RoloWPS File'
  80. location  = '<RoloWPS_FOLDER>'
  81. setup     = 'EXENAME=' || target_dir || '\rolowps2.exe;' ||,
  82.             'PROGTYPE=PM;' ||,
  83.         'PARAMETERS=' || target_dir || '\rolodex.row;' ||,
  84.             'STARTUPDIR=' || target_dir || ';' 
  85. call SysCreateObject classname, title, location, setup, 'r'
  86.  
  87.  
  88. classname = 'WPShadow'
  89. title     = 'RoloWPS/2 File'
  90. location  = '<RoloWPS_FOLDER>'
  91. setup     = 'SHADOWID=' || target_dir || '\rolodex.row;' ||,
  92.             'OBJECTID=<Rolodex/2 Card File>;' 
  93.  
  94. call SysCreateObject classname, title, location, setup, 'r'
  95.  
  96. classname = 'WPProgram'
  97. title     = 'RoloWPS/2'
  98. location  = '<RoloWPS_FOLDER>'
  99. setup     = 'EXENAME=' || target_dir || '\rolowps2.exe;' ||,
  100.             'PROGTYPE=PM;' ||,
  101.             'STARTUPDIR=' || target_dir || ';' ||,
  102.             'ASSOCFILTER=*.ROW;' 
  103. call SysCreateObject classname, title, location, setup, 'r'
  104.  
  105. exit
  106.  
  107. /****************************** End of Program ****************************/
  108.