home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / hots11.zip / uninst.cmd < prev   
OS/2 REXX Batch file  |  1998-01-12  |  582b  |  24 lines
  1. /* Install 'dll' entry into USER INI file */
  2.  
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5.  
  6. dll = 'HOTSCRL'
  7.  
  8. /* get INI entry, and strip out null terminator */
  9. string = SysIni("USER","SYS_DLLS","LoadOneTime")
  10. string = left(string,length(string)-1)
  11.  
  12. uninst = 0
  13. do wrd = 1 to WORDS(string)
  14.   if word(string,wrd) = dll then
  15.   do
  16.      if SysIni("USER","SYS_DLLS","LoadOneTime",delword(string,wrd,1)||d2c(0)) = '' then
  17.         say dll 'successfully uninstalled.'
  18.      uninst = 1
  19.   end
  20. end
  21.  
  22. if uninst = 0 then
  23.    say 'Nothing to do.'
  24.