home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / prcr122.zip / Install.cmd < prev    next >
OS/2 REXX Batch file  |  1997-01-26  |  1KB  |  57 lines
  1. /* Script to install Program Creator */
  2. /* Copyright (c) 1995, 1997 Anssi Blomqvist */
  3.  
  4. Call rxfuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5. Call SysLoadFuncs
  6.  
  7. /* Variables */
  8. valid = 0
  9. Name = 'Program Creator'
  10. Filecount = 3
  11. File = 'CrProg.cmd CrProg.ico ReadMe.txt'
  12.  
  13. Say '           Installation program for Program Creator'
  14. Say '           ----------------------------------------'
  15. Say
  16. Say '(c) 1995, 1997 Anssi Blomqvist, abblomqv@rock.helsinki.fi'
  17. Say
  18.  
  19. Invalid = 'Invalid path!'
  20. GetPath:
  21. Do until valid
  22.    Say 'Give the full path where to install the program.'
  23.    Say 'e.g. "D:\UTILS\PrCr":'
  24.    Pull Dest
  25.    valid = Pos(':', Dest)=2 & Pos('\', Dest)=3 & Lastpos('\', Dest)<>Length(Dest)
  26.    If \valid Then Say Invalid
  27. End
  28.  
  29. rc = SysMkDir(Dest)
  30. If rc <> 0 & rc <> 5 then 
  31. Do
  32.    Say Invalid
  33.    call GetPath
  34. End
  35. Say 'Installation in progress...'
  36. Do i=1 to filecount
  37.    '@copy 'Word(File, i) Dest
  38.    If rc <> 0 then signal error
  39. end /* do */
  40. Say
  41.  
  42. Program = Dest||"\CrProg.cmd"
  43. Program = 'EXENAME='||Program||';OBJECTID=<PRCR>'
  44. result=SysCreateObject("WPProgram", Name, "<WP_DESKTOP>", Program, "r")
  45. If result = 1 Then Say 'Installation was successfull.'
  46.    Else Signal Error
  47. If \SysSetIcon('CrProg.cmd', 'CrProg.ico') then signal error
  48. rc=SysFileDelete(insert(Dest,'\CrProbj.cmd'))
  49. rc=SysFileDelete(insert(Dest,'\CrProbj.ico'))
  50. Exit
  51.  
  52. Error:
  53.    Beep(440,400)
  54.    Say 'Installation failed!'
  55.    '@Pause'
  56. Exit
  57.