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