home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 March
/
VPR9703A.ISO
/
OLS
/
Os2
/
FD2ET776
/
FD2ET776.LZH
/
ETUNIN.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-10-03
|
2KB
|
75 lines
/***********************************************
* FD2eT 0.6 アン・インストールプログラム *
* 1995 (C) Copyright by Shumann *
***********************************************/
options EXMODE
signal on failure
signal on syntax
signal on halt
arg drivename .
YE = '1B'X'[1;33m'; NORMAL = '1B'X'[0m'
TR = '1B'X'[1;36m'; NORMAL = '1B'X'[0m'
GR = '1B'X'[1;32m'; NORMAL = '1B'X'[0m'
RE = '1B'X'[1;35m'; NORMAL = '1B'X'[0m'
RR = '1B'X'[1;31m'; NORMAL = '1B'X'[0m'
WH = '1B'X'[1;37m'; NORMAL = '1B'X'[0m'
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
if drivename = '' then do
say YE' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '
say RR' ∬'GR'FD'YE'2'WH'eT'GR' 0.6 アンインストール・プログラム'
say ' 1995 (C) Copyright by Shumann $^_^$'
say YE' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>'
say WH' このアンインストール・プログラムは, 次の作業を行'
say ' ないます.'YE' [FD2eT]ディレクトリ以外'WH'から実行してくださ'
say ' い. '
say ' '
say ' 1. [OS2]ディレクトリから'TR'eT.CMD, CP.EXE, RM.EXE.'
say ' T2.EXE, THELP.HLP を削除します.'
say WH' 2. 'TR'[FD2eT]ディレクトリを削除します.'
say ' '
say ' '
say YE' 実行の仕方 : eTUNIN X:'WH'(X:はOS/2導入ドライブ名)'
say ' '
say YE' 例 : [D:\]eTUNIN D:'
say ' '
say WH' [D:]は, OS/2の導入ドライブ名 '
say ' '
exit
end
driveinfo = SysDriveInfo(drivename)
if driveinfo = '' then do
say 'ドライブ名' drivename 'は不適当です.'
exit
end
'del' drivename || '\OS2\eT.CMD'
'del' drivename || '\OS2\CP.EXE'
'del' drivename || '\OS2\RM.EXE'
'del' drivename || '\OS2\T2.EXE'
'del' drivename || '\OS2\THELP.HLP'
'del' drivename || '\FD2eT\*.*'
'RD' drivename || '\FD2eT'
if RC <> 0 then do
say ''
say ' 「FD2eT」のアンインストールを中止します.'
exit (1)
end
if key <> '1B'X then do
say ''
say WH' ●[OS2]ディレクトリから'YE'FD2eT関連ファイルを'
say ' すべて削除しました.'
say ' '
say WH' ●'YE'[FD2eT]ディレクトリを削除しました.'
say ''
say YE' ★'RR'∬'GR'FD'YE'2'WH'eT'GR' 0.6 'WH'のアンインストールは終了しました!'
say ''
end