home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / tiedemo.zip / tieinst.cmd < prev    next >
OS/2 REXX Batch file  |  1996-01-12  |  1KB  |  52 lines
  1. /* WCBuild.cmd */
  2.  
  3. curdir = directory()
  4.  
  5. /* Load REXXUTIL */
  6. call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  7. call sysloadfuncs
  8.  
  9. /* The basic call is listed next.                                          */
  10. /* result = SysCreateObject(classname, title, location, setup)             */
  11.  
  12. call SysCls
  13. Say " You Are installing The TIE Version 1.0 "
  14. Say " "
  15. Say " Black Pine Development CONNOT be held Responsibled for"
  16. Say " any direct or indirect damage caused by using TIE!!!"
  17. Say " Installation impies aggreement to these terms."
  18.  
  19. Say 'Adding TIE to your Desktop...'
  20.  
  21. Say '';Say 'Press Y to add TIE to The Desktop...';Say '';
  22. parse upper value SysGetKey('NOECHO') with key
  23. If key<>'Y' Then Exit
  24.  
  25. classname='WPProgram'
  26. title="TIE"
  27. location='<WP_DESKTOP>'
  28. setup='PROGTYPE=PM;EXENAME='curdir'\TIE.EXE;ICONFILE='curdir'\TIE.ico;ASSOCFILTER=*.ini'
  29. say setup
  30. Call BldObj
  31. say '          Copyright 1995 Black Pine Development'
  32. Exit
  33.  
  34. /* Build Object */
  35. BldObj:
  36. call charout ,'Building: 'title
  37.  
  38. result = SysCreateObject(classname, title, location, setup)
  39.  
  40. If result=1 Then call charout ,'...   Object created!'
  41. Else             call charout ,'...   Not created! Return code='result
  42.  
  43. args.0 = 2
  44. args.1 = "tie.inf"
  45. args.2 = "General Information"
  46. 'VIEW' args.1 args.2
  47.  
  48. Say '';
  49. Return
  50.  
  51.  
  52.