home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / numcomma.zip / uninst.cmd < prev   
OS/2 REXX Batch file  |  1997-11-06  |  504b  |  18 lines
  1. /* Install 'dll' entry into USER INI file */
  2.  
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5.  
  6. dll = 'NUMCOMMA'
  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. flag = 0
  13. do wrd = 1 to WORDS(string)
  14.   if word(string,wrd) = dll then
  15.      if SysIni("USER","SYS_DLLS","LoadOneTime",delword(string,wrd,1)||d2c(0)) = '' then
  16.         say dll 'successfully uninstalled.'
  17. end
  18.