home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / trashcan.zip / uninst.cmd < prev   
OS/2 REXX Batch file  |  1995-08-26  |  600b  |  28 lines
  1. /*
  2.  * Uninstall WPTrashcan
  3.  * (c) Henicke, Andreas 1995 Rostock
  4.  */
  5.  
  6. parse arg arglist .
  7. call rxfuncadd 'sysloadfuncs','rexxutil','sysloadfuncs'
  8. call sysloadfuncs
  9.  
  10. /* search WPTrashCan library */
  11. dllpath=''
  12. call sysqueryclasslist list.
  13. do i=1 to list.0
  14.    parse value list.i with class file
  15.    if class='WPTrashCan' then dllpath=file
  16. end
  17. if dllpath='' then exit
  18.  
  19. /* destroy object <TRASHCAN> and unregister class WPTrashCan */
  20. call sysdestroyobject '<TRASHCAN>'
  21. call sysderegisterobjectclass 'WPTrashCan'
  22.  
  23. /* remove WPTrashCan library */
  24. call sysfiledelete dllpath
  25.  
  26. exit
  27.  
  28.