home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / lfncall.zip / DEINSTAL.CMD < prev    next >
OS/2 REXX Batch file  |  1997-09-26  |  2KB  |  93 lines
  1. /*
  2.  * LFNCall V 1.4
  3.  *
  4.  * Deinstallationsprogramm mit Löschen der Symbole
  5.  * (c) 1997 Thomas Bohn, Vogelwiese 65, D-18435 Stralsund, Germany
  6.  *
  7.  */
  8.  
  9. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  10. call SysLoadFuncs
  11.  
  12. '@Echo off'
  13. 'cls'
  14. say''
  15. say'     ┌───────────────────────────────────────────────────────────────────┐'
  16. say'     │                             LFNCall V 1.4                         │'
  17. say'     │                        (c) Thomas Bohn 1997                       │'
  18. say'     │                              Deinstaller                          │'
  19. say'     └───────────────────────────────────────────────────────────────────┘'
  20. say''
  21.  
  22. say 'Bitte wählen Sie die Sprache. / Please select your language.'
  23. say ''
  24. say '(D)eutsch'
  25. say '(E)nglish'
  26. say ''
  27. pull Spr
  28. say ''
  29. if Spr="D" then do
  30.  say 'Die zu LFNCall gehörenden Dateien werden aus dem WIN-OS/2-Verzeichnis'
  31.  say 'gelöscht und die Symbole und der LFN-Ordner vom Desktop entfernt.'
  32.  say ''
  33.  say 'Start mit <Eingabe>...Abbruch mit "E" und <Eingabe>...'
  34. end
  35. if Spr="E" then do
  36.  say 'The files of LFNCall will be removed from the WIN-OS/2-Directory and'
  37.  say 'the icons and the folder will be removed from the desktop.'
  38.  say ''
  39.  say 'Start with <Enter>...Cancel with "C" and <Enter>...'
  40. end
  41. pull taste
  42. if taste="E" then exit
  43. if taste="C" then exit
  44.  
  45. windir = SysIni( 'USER', 'PM_INSTALL', 'WINOS2_LOCATION' )
  46. Ende=pos('00'x,windir)-1
  47. Pfad=substr(windir,1,Ende)
  48.  
  49. say ''
  50. if Spr="D" then say 'Lösche Objekte und Ordner...'
  51. if Spr="D" then say 'Removing icons and folder...'
  52.  
  53. name = "<Winword-LFN>"
  54. result=SysDestroyObject(name)
  55.  
  56. name = "<Excel-LFN>"
  57. result=SysDestroyObject(name)
  58.  
  59. name = "<Wordpro-LFN>"
  60. result=SysDestroyObject(name)
  61.  
  62. name = "<123-LFN>"
  63. result=SysDestroyObject(name)
  64.  
  65. name = "<CorelDraw-LFN>"
  66. result=SysDestroyObject(name)
  67.  
  68. name = "<LFN-Daemon>"
  69. result=SysDestroyObject(name)
  70.  
  71. name = "<LFN-Reset>"
  72. result=SysDestroyObject(name)
  73.  
  74. name = "<LFN_Folder>"
  75. result=SysDestroyObject(name)
  76.  
  77. if Spr="D" then say 'Lösche Dateien...'
  78. if Spr="E" then say 'Removing files...'
  79.  
  80. 'del ' Pfad'\LFN.EXE'
  81. 'del ' Pfad'\LFN.ICO'
  82. 'del ' Pfad'\LFNR.EXE'
  83. 'del ' Pfad'\LFNDMN.EXE'
  84. 'del ' Pfad'\LFND.CMD'
  85. 'del ' Pfad'\LFNCALL.CMD'
  86. 'del ' Pfad'\LFNCALL.INI'
  87. 'del ' Pfad'\DSTART.EXE'
  88.  
  89. say ''
  90. if Spr="D" then say 'Fertig.'
  91. if Spr="E" then say 'Ready.'
  92. say ''
  93.