home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / dumpt12b.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1996-06-11  |  562b  |  17 lines
  1. /* REXX Program to Create DUMPIT Object on Desktop */
  2. Call RxFuncAdd "SysLoadFuncs","RexxUtil","SysLoadFuncs"
  3. Call SysLoadFuncs
  4. CurrentDir=Directory()
  5. FileName=CurrentDir||"\dumpit.exe"
  6. ExeName="EXENAME="||FileName
  7. Say "Associate *.DMP files with DUMPIT (y/n)?"
  8. Parse Pull Resp
  9. If Translate(Resp)="Y" then
  10.    ExeName=ExeName||";ASSOCFILTER=*.DMP"
  11. If SysCreateObject("WPProgram","Dumpit For OS/2","<WP_DESKTOP>",ExeName) then do
  12.       Say "Dumpit Object created on Desktop."
  13.       End
  14. Else
  15.       Say "Couldn't create Desktop Dumpit Object."
  16. Exit
  17.