home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / remor105.zip / UNINSTAL.CMD < prev   
OS/2 REXX Batch file  |  1995-08-20  |  875b  |  43 lines
  1. /*
  2.  * Inspire Remora deinstallation program 
  3.  */
  4.  
  5. '@Echo off'
  6. 'cls'
  7.  
  8. curdir = directory()
  9.  
  10. rc = stream('remora.exe','c','query exists')
  11. if rc = '' then
  12. do
  13.   say 'Sorry, REMORA.EXE not found.  Must not be right directory.  Terminating.'
  14.   exit
  15. end
  16.  
  17.  
  18. say ''
  19. say ' **WARNING:  This program totally uninstalls Inspire Remora.'
  20. say ''
  21.  
  22.  
  23. say 'Press [Enter] (or CTRL-C then [Enter] to abort).'
  24. Pull dummy .
  25. say ''
  26.  
  27. say 'Working...'
  28.  
  29. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  30. call SysLoadFuncs
  31.  
  32. call SysDestroyObject "<Remora_Program>"
  33. call SysDestroyObject "<Remora_Folder>"
  34. call SysDestroyObject "<Remora_Bootup>"
  35.  
  36. call SysIni 'USER', 'Remora'
  37.  
  38. say "Okay, now just delete REMORA.EXE, REMORA.HLP, INSTALL.CMD,"
  39. say "UNINSTALL.CMD, and other data files to totally remove Remora."
  40. say ""
  41. say "Deinstallation finished."
  42. say ""
  43.