59 lines
1.7 KiB
Batchfile
59 lines
1.7 KiB
Batchfile
|
|
|||
|
|
|
|||
|
|
rem
|
|||
|
|
rem __ProgramFiles <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ǻ<EFBFBD><C7BB> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>մϴ<D5B4>.
|
|||
|
|
rem
|
|||
|
|
Set __ProgramFiles=%ProgramFiles%
|
|||
|
|
If Not "%PROCESSOR_ARCHITECTURE%"=="ALPHA" goto acsrCont1
|
|||
|
|
If Not Exist "%ProgramFiles(x86)%" goto acsrCont1
|
|||
|
|
Set __ProgramFiles=%Program Files(x86)%
|
|||
|
|
:acsrCont1
|
|||
|
|
Rem
|
|||
|
|
Rem <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Ȩ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><CDB8><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD>α<CEB1> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
|||
|
|
Rem <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><CDB8><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>.
|
|||
|
|
Rem
|
|||
|
|
|
|||
|
|
call TsMkUDir "%RootDrive%\Office95"
|
|||
|
|
call TsMkuDir "%RootDrive%\Office95\Startup"
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
call TsMkUDir "%RootDrive%\Office95\Templates"
|
|||
|
|
|
|||
|
|
|
|||
|
|
call TsMkuDir "%RootDrive%\Office95\XLStart"
|
|||
|
|
|
|||
|
|
Rem
|
|||
|
|
Rem <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Ȩ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><CDB8><EFBFBD> <20>ý<EFBFBD><C3BD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
Rem <20><><EFBFBD><EFBFBD><EFBFBD>մϴ<D5B4>.
|
|||
|
|
Rem
|
|||
|
|
|
|||
|
|
If Exist "%RootDrive%\Office95\ShortCut Bar" Goto Skip1
|
|||
|
|
If Not Exist "#INSTDIR#\Office\ShortCut Bar" Goto Skip1
|
|||
|
|
Xcopy "#INSTDIR#\Office\ShortCut Bar" "%RootDrive%\Office95\ShortCut Bar" /E /I >Nul: 2>&1
|
|||
|
|
:Skip1
|
|||
|
|
|
|||
|
|
Rem
|
|||
|
|
Rem ClipArt Gallery <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> User<65><72> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><CDB8><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>մϴ<D5B4>.
|
|||
|
|
Rem
|
|||
|
|
|
|||
|
|
If Exist "%RootDrive%\Windows\ArtGalry.Cag" Goto Skip2
|
|||
|
|
If Not Exist "%__ProgramFiles%\Common Files\Microsoft Shared\Artgalry\ArtGalry.cag" Goto Skip2
|
|||
|
|
Copy "%__ProgramFiles%\Common Files\Microsoft Shared\Artgalry\ArtGalry.cag" "%RootDrive%\Windows\ArtGalry.Cag" >Nul: 2>&1
|
|||
|
|
:Skip2
|
|||
|
|
|
|||
|
|
Rem
|
|||
|
|
Rem Custom.dic <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><CDB8><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>.
|
|||
|
|
Rem
|
|||
|
|
|
|||
|
|
If Not Exist "%RootDrive%\Office95\Custom.Dic" Copy Nul: "%RootDrive%\Office95\Custom.Dic" >Nul: 2>&1
|
|||
|
|
|
|||
|
|
Rem
|
|||
|
|
Rem PowerPoint <20><> Binder <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><CDB8><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>մϴ<D5B4>.
|
|||
|
|
Rem
|
|||
|
|
|
|||
|
|
If Not Exist "%UserProfile%\%TEMPLATES%\BINDER70.OBD" copy "%ALLUSERSPROFILE%\%TEMPLATES%\BINDER70.OBD" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
|
|||
|
|
If Not Exist "%UserProfile%\%TEMPLATES%\PPT70.PPT" copy "%ALLUSERSPROFILE%\%TEMPLATES%\PPT70.PPT" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
|