119 lines
2.8 KiB
Batchfile
119 lines
2.8 KiB
Batchfile
|
@Echo Off
|
|||
|
|
|
|||
|
|
Rem #########################################################################
|
|||
|
|
|
|||
|
|
Rem
|
|||
|
|
Rem <20>ˬd CMD Extensions <20>O<EFBFBD>_<EFBFBD>w<EFBFBD>ҥ<EFBFBD>
|
|||
|
|
Rem
|
|||
|
|
|
|||
|
|
if "A%cmdextversion%A" == "AA" (
|
|||
|
|
call cmd /e:on /c eudora4.cmd
|
|||
|
|
) else (
|
|||
|
|
goto ExtOK
|
|||
|
|
)
|
|||
|
|
goto Done
|
|||
|
|
|
|||
|
|
:ExtOK
|
|||
|
|
|
|||
|
|
Rem #########################################################################
|
|||
|
|
|
|||
|
|
Rem
|
|||
|
|
Rem <20>ˬd %RootDrive% <20>O<EFBFBD>_<EFBFBD>w<EFBFBD>]<5D>w<EFBFBD>A<EFBFBD>ñN<C3B1><4E><EFBFBD>]<5D>w<EFBFBD><77><EFBFBD><EFBFBD><EFBFBD>O<EFBFBD>ɡC
|
|||
|
|
Rem
|
|||
|
|
|
|||
|
|
Call "%SystemRoot%\Application Compatibility Scripts\ChkRoot.Cmd"
|
|||
|
|
If "%_CHKROOT%" == "FAIL" Goto Done
|
|||
|
|
Call "%SystemRoot%\Application Compatibility Scripts\SetPaths.Cmd"
|
|||
|
|
If "%_SETPATHS%" == "FAIL" Goto Done
|
|||
|
|
|
|||
|
|
Rem #########################################################################
|
|||
|
|
|
|||
|
|
Rem <20>q<EFBFBD>n<EFBFBD><6E><EFBFBD>ɨ<EFBFBD><C9A8>o Eudora <20><><EFBFBD>O<EFBFBD>C<EFBFBD>C
|
|||
|
|
|
|||
|
|
..\ACRegL "%Temp%\EPro4.Cmd" EUDTMP "HKCU\Software\Qualcomm\Eudora\CommandLine" "Current" "STRIPCHAR:1"
|
|||
|
|
|
|||
|
|
If Not ErrorLevel 1 Goto Cont1
|
|||
|
|
Echo.
|
|||
|
|
Echo <20>L<EFBFBD>k<EFBFBD>q<EFBFBD>n<EFBFBD><6E><EFBFBD>ɧ<EFBFBD><C9A7><EFBFBD> Eudora Pro 4.0 <20><><EFBFBD>O<EFBFBD>C<EFBFBD>C
|
|||
|
|
Echo <20><><EFBFBD>ˬd Eudora Pro 4.0 <20>O<EFBFBD>_<EFBFBD>w<EFBFBD>w<EFBFBD>ˡA<CBA1>í<EFBFBD><C3AD>s
|
|||
|
|
Echo <20><><EFBFBD><EFBFBD><EFBFBD>o<EFBFBD>ӫ<EFBFBD><D3AB>O<EFBFBD>ɡC
|
|||
|
|
Echo.
|
|||
|
|
Pause
|
|||
|
|
Goto Done
|
|||
|
|
|
|||
|
|
:Cont1
|
|||
|
|
Call %Temp%\EPro4.Cmd
|
|||
|
|
Del %Temp%\EPro4.Cmd >Nul: 2>&1
|
|||
|
|
set EudCmd=%EUDTMP:~0,-2%
|
|||
|
|
|
|||
|
|
..\ACRegL "%Temp%\EPro4.Cmd" EUDTMP "HKCU\Software\Qualcomm\Eudora\CommandLine" "Current" "STRIPCHAR:2"
|
|||
|
|
|
|||
|
|
If Not ErrorLevel 1 Goto Cont2
|
|||
|
|
Echo.
|
|||
|
|
Echo <20>L<EFBFBD>k<EFBFBD>q<EFBFBD>n<EFBFBD><6E><EFBFBD>ɧ<EFBFBD><C9A7><EFBFBD> Eudora Pro 4.0 <20><><EFBFBD>O<EFBFBD>C<EFBFBD>C
|
|||
|
|
Echo <20><><EFBFBD>ˬd Eudora Pro 4.0 <20>O<EFBFBD>_<EFBFBD>w<EFBFBD>w<EFBFBD>ˡA<CBA1>í<EFBFBD><C3AD>s
|
|||
|
|
Echo <20><><EFBFBD><EFBFBD><EFBFBD>o<EFBFBD>ӫ<EFBFBD><D3AB>O<EFBFBD>ɡC
|
|||
|
|
Echo.
|
|||
|
|
Pause
|
|||
|
|
Goto Done
|
|||
|
|
|
|||
|
|
:Cont2
|
|||
|
|
Call %Temp%\EPro4.Cmd
|
|||
|
|
Del %Temp%\EPro4.Cmd >Nul: 2>&1
|
|||
|
|
|
|||
|
|
Set EudoraInstDir=%EUDTMP:~0,-13%
|
|||
|
|
|
|||
|
|
Rem #########################################################################
|
|||
|
|
|
|||
|
|
If Exist "%EudoraInstDir%\descmap.pce" Goto Cont0
|
|||
|
|
Echo.
|
|||
|
|
Echo <20>b<EFBFBD>ϥγo<CEB3><6F><EFBFBD><EFBFBD><EFBFBD>ε{<7B><><EFBFBD>ۮe<DBAE>ʫ<EFBFBD><CAAB>O<EFBFBD>ɤ<EFBFBD><C9A4>e<EFBFBD>A<EFBFBD>z<EFBFBD><7A><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Eudora 4.0 <20>@<40><><EFBFBD>C
|
|||
|
|
Echo <20><><EFBFBD><EFBFBD> Eudora <20><><EFBFBD><EFBFBD><EFBFBD>A<EFBFBD>Цb Eudora Pro <20><><EFBFBD>Ƨ<EFBFBD><C6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s Eudora Pro <20><><EFBFBD>|<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
Echo <20>Ф<EFBFBD><D0A4>e<EFBFBD>C<EFBFBD>N %RootDrive%\eudora.ini <20>Ȫ<EFBFBD><C8AA>[<5B><><EFBFBD>ؼФ<D8BC><D0A4>C
|
|||
|
|
Echo %RootDrive%\eudora.ini
|
|||
|
|
Echo <20>ؼФ<D8BC><D0A4>e<EFBFBD>ȱN<C8B1>|<EFBFBD>O:
|
|||
|
|
Echo "%EudoraInstDir%\Eudora.exe" %RootDrive%\eudora.ini
|
|||
|
|
Echo.
|
|||
|
|
Pause
|
|||
|
|
Goto Done
|
|||
|
|
|
|||
|
|
:Cont0
|
|||
|
|
|
|||
|
|
Rem
|
|||
|
|
Rem <20>ܧ<EFBFBD><DCA7>n<EFBFBD><6E><EFBFBD><EFBFBD><EFBFBD>X<EFBFBD>A<EFBFBD>N<EFBFBD><4E><EFBFBD>|<7C><><EFBFBD>V<EFBFBD>ϥΪ̫<CEAA><CCAB>w<EFBFBD><77>
|
|||
|
|
Rem <20>ؿ<EFBFBD><D8BF>C
|
|||
|
|
Rem
|
|||
|
|
|
|||
|
|
Rem <20>p<EFBFBD>G<EFBFBD>ثe<D8AB><65><EFBFBD>O<EFBFBD>w<EFBFBD>˼Ҧ<CBBC><D2A6>A<EFBFBD>N<EFBFBD>ܧw<F3A6A8A6>˼Ҧ<CBBC><D2A6>C
|
|||
|
|
Set __OrigMode=Install
|
|||
|
|
ChgUsr /query > Nul:
|
|||
|
|
if Not ErrorLevel 101 Goto Begin
|
|||
|
|
Set __OrigMode=Exec
|
|||
|
|
Change User /Install > Nul:
|
|||
|
|
:Begin
|
|||
|
|
|
|||
|
|
..\acsr "#INSTDIR#" "%EudoraInstDir%" Template\Eudora4.Key Eudora4.tmp
|
|||
|
|
..\acsr "#ROOTDRIVE#" "%RootDrive%" Eudora4.tmp Eudora4.key
|
|||
|
|
|
|||
|
|
regini eudora4.key > Nul:
|
|||
|
|
del eudora4.tmp
|
|||
|
|
del eudora4.key
|
|||
|
|
|
|||
|
|
Rem <20>p<EFBFBD>G<EFBFBD><47><EFBFBD>ӬO<D3AC><4F><EFBFBD><EFBFBD><EFBFBD>Ҧ<EFBFBD><D2A6>A<EFBFBD>N<EFBFBD>ܦ^<5E><><EFBFBD><EFBFBD><EFBFBD>Ҧ<EFBFBD><D2A6>C
|
|||
|
|
If "%__OrigMode%" == "Exec" Change User /Execute > Nul:
|
|||
|
|
Set __OrigMode=
|
|||
|
|
|
|||
|
|
Rem <20><><EFBFBD>s descmap.pce <20><><EFBFBD>ϥ<EFBFBD><CFA5>v<EFBFBD><76><EFBFBD>C
|
|||
|
|
cacls "%EudoraInstDir%\descmap.pce" /E /G "Terminal Server User":R >NUL: 2>&1
|
|||
|
|
|
|||
|
|
Rem #########################################################################
|
|||
|
|
|
|||
|
|
Echo.
|
|||
|
|
Echo <20><><EFBFBD>F<EFBFBD>T<EFBFBD>O Eudora Pro 4.0 <20><><EFBFBD>A<EFBFBD><41><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>A<EFBFBD>ثe<D8AB>n<EFBFBD>J<EFBFBD><4A>
|
|||
|
|
Echo <20>ϥΪ̥<CEAA><CCA5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>n<EFBFBD>X<EFBFBD>A<EFBFBD><41><EFBFBD>s<EFBFBD>n<EFBFBD>J<EFBFBD><4A><EFBFBD>A<EFBFBD><41><EFBFBD><EFBFBD> Eudora Pro 4.0<EFBFBD>C
|
|||
|
|
Echo.
|
|||
|
|
Echo Eudora 4.0 <20>h<EFBFBD>ϥΪ<CFA5><CEAA><EFBFBD><EFBFBD>ε{<7B><><EFBFBD>վ㧹<D5BE><E3A7B9><EFBFBD>C
|
|||
|
|
Pause
|
|||
|
|
|
|||
|
|
:done
|