home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / OLS / Os2 / FD2ET776 / FD2ET776.LZH / ETINST.CMD < prev    next >
OS/2 REXX Batch file  |  1995-10-03  |  4KB  |  98 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 '    FD2eT776.LZHを解凍して展開された'YE'すべてのファイルのある'
  31.    say '    ディレクトリ'WH'から実行してください.'
  32.    say ' '
  33.    say '     1. OS/2導入ドライブに'TR'[FD2eT]というディレクトリを作成'
  34.    say '     　 し,'WH'そこにすべてのファイルを転送します.'
  35.    say '     2. プレゼンテーション・マネージャに'TR'[FD2eT]というオブ'
  36.    say '        ジェクトを作成します.'
  37.    say TR'     3. eT.CMD,CP.EXE,RM.EXE,T2.EXE,THELP.HLP を[OS2]ディ'
  38.    say '        レクトリにコピーします.'
  39.    say ' '
  40.    say YE'         実行の仕方 : eTINST X:'WH'（X:はOS/2導入ドライブ名）'
  41.    say ' '
  42.    say YE'                 例 : [D:\WORK]eTINST D:'
  43.    say ' '
  44.    say WH'        [D:]  は, OS/2の導入ドライブ名   '
  45.    say '        [WORK]は, FD2eT776.LZH を解凍した作業ディレクトリ'
  46.    say ' '
  47.    exit
  48. end
  49.  
  50. driveinfo = SysDriveInfo(drivename)
  51.   if driveinfo = '' then do
  52.     say 'ドライブ名' drivename 'は不適当です.'
  53.     exit
  54. end
  55.  
  56. currentdir = Directory()
  57. RC = SysMkDir(drivename || '\FD2eT')
  58. if RC <> 0 then do
  59.   say 'ディレクトリの作成に失敗しました!  RC'=RC
  60.   exit
  61.   end
  62.  
  63. 'copy' currentdir || '\eT.CMD' drivename || '\OS2'
  64. 'copy' currentdir || '\CP.EXE' drivename || '\OS2'
  65. 'copy' currentdir || '\RM.EXE' drivename || '\OS2'
  66. 'copy' currentdir || '\T2.EXE' drivename || '\OS2'
  67. 'copy' currentdir || '\THELP.HLP' drivename || '\OS2'
  68. 'move' currentdir || '\*.*' '\FD2eT'
  69.  
  70. Class = 'WPProgram'
  71. Title = 'FD2eT'
  72. Location = '<WP_DESKTOP>'
  73. Objmode = 'Replace'
  74.  
  75. SetupString = 'PROGTYPE=WINDOWABLEVIO;NOPRINT=YES;OBJECTID=<WP_FD2eTob>;'||,
  76.                 'MINIMIZED=NO;' || 'EXENAME=' || 'eT.CMD;'
  77.  
  78.   if RES <> SysCreateObject(Class,Title,Location,SetupString,Objmode) then do
  79.   say ' '
  80.   say WH'   ●OS/2 導入ドライブに'YE'[FD2eT]ディレクトリを作成し、すべての'
  81.   say '     ファイルを転送しました.'
  82.   say ' '
  83.   say WH'   ●プレゼンテーション・マネージャに'YE'オブジェクト[FD2eT]を登'
  84.   say '     録しました.'
  85.   say ' '
  86.   say '   ★'RR'∬'GR'FD'YE'2'WH'eT'GR' 0.6'WH' のインストールを完了しました！'
  87.   say ' '
  88.   say '   ●プレゼンテーション・マネージャの'YE'オブジェクト[FD2eT]をマ'
  89.   say '     ウスでダブルクリック'WH'すれば、'RR'∬'GR'FD'YE'2'WH'eT'GR' 0.6'WH' が起動します.'
  90.   say '   ●全画面のコマンドプロンプトから、'YE'eT 'WH'(Enter)とタイプすれば、'
  91.   say '     'RR'∬'GR'FD'YE'2'WH'eT'GR' 0.6'WH' が起動します.'
  92.   say ' '
  93.   say '   ●その他の設定等については、'YE' FD2eT.DOCをお読み下さい.'WH
  94.   say '   ●サポート等は、Shumann$^_^$ (SGV02177)まで電子メールでどうぞ.'
  95.   end
  96.  exit
  97. end
  98.