You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
119 lines
3.8 KiB
119 lines
3.8 KiB
@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 사용자가, DictPath를 B 사용자가 검색한 후에
|
|
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
|