home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 6 File / 06-File.zip / spcwatc2.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1995-05-01  |  728b  |  20 lines
  1. /* LAN SpaceWatch Build Icons */
  2. '@Echo Off'
  3. Say 'LAN SpaceWatch v1.2 by HUBOTEK.'
  4. Say 'Creating Desktop objects, please wait...'
  5. Say ''
  6. call RxFuncAdd 'SysCreateObject', 'REXXUTIL', 'SysCreateObject'
  7. curdir = directory()
  8. options = 'EXENAME='curdir'\SpcWatch.exe;ICONNAME='curdir'\SpcWatch.ico;STARTUPDIR='curdir
  9. folder = SysCreateObject( "WPFolder", "HUBOTEK", "<WP_DESKTOP>", 'OBJECTID=<WP_HUBOTEK>;ICONFILE='curdir'\Hubotek.ico','REPLACE' )
  10. if folder then
  11.         object = SysCreateObject( "WPProgram", "LAN SpaceWatch", "<WP_HUBOTEK>", options,'Replace' )
  12.  
  13. if object then do
  14.    Say 'LAN SpaceWatch Desketop icons created successfully.'
  15.    Say 'Press any key to end.'
  16.    'pause > NUL'
  17. end  /* Do */
  18.  
  19. Exit
  20.