home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 August / VPR9708A.ISO / OLS / OS2 / FD2ET776 / FD2ET776.LZH / ETUNIN.CMD < prev    next >
OS/2 REXX Batch file  |  1995-10-03  |  2KB  |  75 lines
  1. /***********************************************
  2.  *   FD2eT 0.6 アン・インストールプログラム    *
  3.  *     1995 (C) Copyright by Shumann          *
  4.  ***********************************************/
  5.  
  6. options EXMODE
  7.  
  8.    signal on failure
  9.    signal on syntax
  10.    signal on halt
  11.  
  12. arg drivename .
  13.  
  14. YE = '1B'X'[1;33m'; NORMAL = '1B'X'[0m'
  15. TR = '1B'X'[1;36m'; NORMAL = '1B'X'[0m'
  16. GR = '1B'X'[1;32m'; NORMAL = '1B'X'[0m'
  17. RE = '1B'X'[1;35m'; NORMAL = '1B'X'[0m'
  18. RR = '1B'X'[1;31m'; NORMAL = '1B'X'[0m'
  19. WH = '1B'X'[1;37m'; NORMAL = '1B'X'[0m'
  20.  
  21. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  22. call SysLoadFuncs
  23.  
  24. if drivename = '' then do
  25.    say YE'     >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '
  26.    say RR'       ∬'GR'FD'YE'2'WH'eT'GR' 0.6  アンインストール・プログラム'
  27.    say '          1995 (C) Copyright by Shumann $^_^$'
  28.    say YE'     >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>'
  29.    say WH'     このアンインストール・プログラムは, 次の作業を行'
  30.    say '   ないます.'YE' [FD2eT]ディレクトリ以外'WH'から実行してくださ'
  31.    say '   い. '
  32.    say ' '
  33.    say '      1. [OS2]ディレクトリから'TR'eT.CMD, CP.EXE, RM.EXE.'
  34.    say '         T2.EXE, THELP.HLP を削除します.'
  35.    say WH'      2. 'TR'[FD2eT]ディレクトリを削除します.'
  36.    say ' '
  37.    say ' '
  38.    say YE'         実行の仕方 : eTUNIN X:'WH'（X:はOS/2導入ドライブ名）'
  39.    say ' '
  40.    say YE'                 例 : [D:\]eTUNIN D:'
  41.    say ' '
  42.    say WH'        [D:]は, OS/2の導入ドライブ名   '
  43.    say ' '
  44.    exit
  45. end
  46.  
  47. driveinfo = SysDriveInfo(drivename)
  48.   if driveinfo = '' then do
  49.     say 'ドライブ名' drivename 'は不適当です.'
  50.     exit
  51. end
  52.  
  53.    'del' drivename || '\OS2\eT.CMD'
  54.    'del' drivename || '\OS2\CP.EXE'
  55.    'del' drivename || '\OS2\RM.EXE'
  56.    'del' drivename || '\OS2\T2.EXE'
  57.    'del' drivename || '\OS2\THELP.HLP'
  58.    'del' drivename || '\FD2eT\*.*'
  59.    'RD' drivename || '\FD2eT'
  60.    if RC <> 0 then do
  61.    say ''
  62.    say ' 「FD2eT」のアンインストールを中止します.'
  63.    exit (1)
  64. end
  65.    if key <> '1B'X then do
  66.    say ''
  67.    say WH'   ●[OS2]ディレクトリから'YE'FD2eT関連ファイルを'
  68.    say '     すべて削除しました.'
  69.    say ' '
  70.    say WH'   ●'YE'[FD2eT]ディレクトリを削除しました.'
  71.    say ''
  72.    say YE'   ★'RR'∬'GR'FD'YE'2'WH'eT'GR' 0.6 'WH'のアンインストールは終了しました！'
  73.    say ''
  74. end
  75.