119 lines
3.4 KiB
Batchfile
119 lines
3.4 KiB
Batchfile
@echo off
|
|
|
|
|
|
Rem #########################################################################
|
|
|
|
Rem
|
|
Rem 在使用者主目錄中建立存放應用程式指定
|
|
Rem 資料的目錄。
|
|
Rem
|
|
|
|
call TsMkUDir "%RootDrive%\Office95"
|
|
|
|
Rem #########################################################################
|
|
|
|
Rem 檢查是否這個指令檔是在 Alpha 上執行。如果是，就設定適當的共用工具。
|
|
rem
|
|
rem
|
|
Set __SharedTools=Shared Tools
|
|
If Not "%PROCESSOR_ARCHITECTURE%"=="ALPHA" goto acsrCont1
|
|
If Not Exist "%ProgramFiles(x86)%" goto acsrCont1
|
|
Set __SharedTools=Shared Tools (x86)
|
|
:acsrCont1
|
|
|
|
|
|
Rem #########################################################################
|
|
|
|
Rem
|
|
Rem 在使用者目錄中建立 Custom.dic 檔案。
|
|
Rem
|
|
|
|
If Not Exist "%RootDrive%\Office95\Custom.Dic" Copy Nul: "%RootDrive%\Office95\Custom.Dic" >Nul: 2>&1
|
|
|
|
Rem #########################################################################
|
|
|
|
REM
|
|
REM 取得目錄名稱及路徑。
|
|
REM
|
|
|
|
|
|
..\ACRegL "%Temp%\Proj95_1.Cmd" DictPath "HKLM\Software\Microsoft\%__SharedTools%\Proofing Tools\Spelling\1033\Normal" "Dictionary" "StripChar\1"
|
|
If ErrorLevel 1 Goto Done
|
|
Call %Temp%\Proj95_1.Cmd
|
|
Del %Temp%\Proj95_1.Cmd >Nul: 2>&1
|
|
|
|
..\ACRegL "%Temp%\Proj95_3.Cmd" DictName "HKLM\Software\Microsoft\%__SharedTools%\Proofing Tools\Spelling\1033\Normal" "Dictionary" "StripPath"
|
|
If ErrorLevel 1 Goto Done
|
|
Call %Temp%\Proj95_3.Cmd
|
|
Del %Temp%\Proj95_3.Cmd >Nul: 2>&1
|
|
|
|
Rem #########################################################################
|
|
|
|
REM
|
|
REM 如果路徑的登錄設定變更並重設，
|
|
REM 而且又安裝其他的 MS Office 應用軟體的話，
|
|
REM 這可能會發生。
|
|
|
|
If "%DictPath%"=="%RootDrive%\Office95" Goto GetDictionary
|
|
|
|
..\ACRegL "%Temp%\Proj95_2.Cmd" Dictionary "HKLM\Software\Microsoft\%__SharedTools%\Proofing Tools\Spelling\1033\Normal" "Dictionary" ""
|
|
If ErrorLevel 1 Goto Done
|
|
Call %Temp%\Proj95_2.Cmd
|
|
Del %Temp%\Proj95_2.Cmd >Nul: 2>&1
|
|
|
|
REM 不讓兩個使用者同時使用這個程式碼。
|
|
REM 這會防止使用者 A 在使用者 B 抓取 DictPath 後
|
|
REM 變更它。
|
|
..\ACRegL "%Temp%\Proj95_7.Cmd" OrigDictPath "HKLM\Software\Microsoft\%__SharedTools%\Proofing Tools\Spelling\1033\Normal" "Dictionary" "StripChar\1"
|
|
If ErrorLevel 1 Goto Done
|
|
Call %Temp%\Proj95_7.Cmd
|
|
Del %Temp%\Proj95_7.Cmd >Nul: 2>&1
|
|
if "%OrigDictPath%"=="%RootDrive%\Office95" Goto GetDictionary
|
|
|
|
..\acsr "#DICTNAME#" "%DictName%" Template\prj95Usr.key %Temp%\Proj95_4.tmp
|
|
..\acsr "#ROOTDRIVE#" "%RootDrive%" %Temp%\Proj95_4.tmp %Temp%\Proj95_5.tmp
|
|
..\acsr "#DICTIONARY#" "%Dictionary%" %Temp%\Proj95_5.tmp %Temp%\Proj95_6.tmp
|
|
..\acsr "#__SharedTools#" "%__SharedTools%" %Temp%\Proj95_6.tmp %Temp%\Prj95Usr.Key
|
|
|
|
Rem 變更登錄機碼，將路徑指向使用者所指定的目錄。
|
|
regini %Temp%\prj95Usr.key > Nul:
|
|
|
|
Del %Temp%\Proj95_4.tmp >Nul: 2>&1
|
|
Del %Temp%\Proj95_5.tmp >Nul: 2>&1
|
|
Del %Temp%\Proj95_6.tmp >Nul: 2>&1
|
|
Del %Temp%\prj95Usr.key >Nul: 2>&1
|
|
|
|
goto CopyDictionary
|
|
|
|
|
|
Rem #########################################################################
|
|
|
|
REM
|
|
REM 如果目錄路經並未變更，就從登錄中抓取
|
|
REM 原始名稱及路徑。
|
|
REM
|
|
|
|
:GetDictionary
|
|
|
|
..\ACRegL "%Temp%\Proj95_6.Cmd" Dictionary "HKLM\Software\Microsoft\%__SharedTools%\Proofing Tools\Spelling\1033\Normal" "OrigDictionary" ""
|
|
If ErrorLevel 1 Goto SpellError
|
|
|
|
Call %Temp%\Proj95_6.Cmd
|
|
Del %Temp%\Proj95_6.Cmd >Nul: 2>&1
|
|
|
|
Rem #########################################################################
|
|
|
|
REM
|
|
REM 將目錄複製到使用者目錄。
|
|
REM
|
|
|
|
:CopyDictionary
|
|
|
|
If Exist "%RootDrive%\Office95\%DictName%" goto Cont1
|
|
If Not Exist "%Dictionary%" goto Cont1
|
|
Copy "%Dictionary%" "%RootDrive%\Office95\%DictName%" >Nul: 2>&1
|
|
|
|
:Cont1
|
|
|
|
|
|
:Done |