AlexCoRu
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Компиляция пакетов
Код: @echo off
:DCC
set DCC="%ProgramFiles(x86)%\Embarcadero\RAD Studio\9.0\bin\DCC32.EXE"
if exist %DCC% goto :BRCC
set DCC="%ProgramFiles%\Embarcadero\RAD Studio\9.0\bin\DCC32.EXE"
if exist %DCC% goto :BRCC
echo DCC32.exe not found. Abort.
goto :eof
:BRCC
set BRCC="%ProgramFiles(x86)%\Embarcadero\RAD Studio\9.0\bin\BRCC32.EXE"
if exist %BRCC% goto :BPL
set BRCC="%ProgramFiles%\Embarcadero\RAD Studio\9.0\bin\BRCC32.EXE"
if exist %BRCC% goto :BPL
echo BRCC32.exe not found. Abort.
goto :eof
:BPL
set BPL=%USERPROFILE%\Documents\RAD Studio\9.0\Bpl
if not exist "%BPL%" md "%BPL%"
:DCP
set DCP=%USERPROFILE%\Documents\RAD Studio\9.0\Bpl
if not exist "%DCP%" md "%DCP%"
:LIB
set LIB=LibD16
if not exist "%LIB%" md "%LIB%"
del /q "%LIB%\*.*"
del /q "%BPL%\fs*16.bpl"
del /q "%DCP%\fs*16.dcp"
del /q "%BPL%\dclfs*16.bpl"
del /q "%DCP%\dclfs*16.dcp"
del /q "%BPL%\frx*16.bpl"
del /q "%DCP%\frx*16.dcp"
del /q "%BPL%\dclfrx*16.bpl"
del /q "%DCP%\dclfrx*16.dcp"
set OPT=-NSWinapi;System;System.Win;Vcl;Vcl.Imaging;Data;Data.Win;VclTee -M -W -LE"%BPL%" -LN"%DCP%"
pushd FastScript
%DCC% %OPT% -N0"..\%LIB%" fs16.dpk
%DCC% %OPT% -N0"..\%LIB%" dclfs16.dpk
%DCC% %OPT% -N0"..\%LIB%" fsDB16.dpk
%DCC% %OPT% -N0"..\%LIB%" dclfsDB16.dpk
%DCC% %OPT% -N0"..\%LIB%" fsADO16.dpk
%DCC% %OPT% -N0"..\%LIB%" dclfsADO16.dpk
::%DCC% %OPT% -N0"..\%LIB%" fsIBX16.dpk
::%DCC% %OPT% -N0"..\%LIB%" dclfsIBX16.dpk
%DCC% %OPT% -N0"..\%LIB%" fsTee16.dpk
%DCC% %OPT% -N0"..\%LIB%" dclfsTee16.dpk
copy *.dfm "..\%LIB%"
copy dclfsx.res "..\%LIB%"
copy fs_tree.res "..\%LIB%"
copy fsx.res "..\%LIB%"
copy fs_ireg.dcr "..\%LIB%"
popd
pushd Source
%DCC% %OPT% -N0"..\%LIB%" frx16.dpk
%DCC% %OPT% -N0"..\%LIB%" dclfrx16.dpk
%DCC% %OPT% -N0"..\%LIB%" frxDB16.dpk
%DCC% %OPT% -N0"..\%LIB%" dclfrxDB16.dpk
%DCC% %OPT% -N0"..\%LIB%" frxTee16.dpk
%DCC% %OPT% -N0"..\%LIB%" dclfrxTee16.dpk
copy frx.inc "..\%LIB%"
copy *.dfm "..\%LIB%"
copy frxAdoWizard.res "..\%LIB%"
copy frxClass.res "..\%LIB%"
copy frxConnWizard.res "..\%LIB%"
copy frxCtrls.res "..\%LIB%"
copy frxDesgn.res "..\%LIB%"
copy frxDesgnIcon.res "..\%LIB%"
copy frxDesgnWorkspace.res "..\%LIB%"
copy frxPreview.res "..\%LIB%"
copy frxStdWizard.res "..\%LIB%"
copy frxeReg.dcr "..\%LIB%"
copy frxReg.dcr "..\%LIB%"
pushd ADO
%DCC% -I.. %OPT% -N0"..\..\%LIB%" frxADO16.dpk
%DCC% -I.. %OPT% -N0"..\..\%LIB%" dclfrxADO16.dpk
copy frxADOReg.dcr "..\..\%LIB%"
popd
::pushd FIB
::%DCC% -I.. %OPT% -N0"..\..\%LIB%" frxFIB16.dpk
::%DCC% -I.. %OPT% -N0"..\..\%LIB%" dclfrxFIB16.dpk
::copy frxFIBReg.dcr "..\..\%LIB%"
::popd
::pushd IBX
::%DCC% -I.. %OPT% -N0"..\..\%LIB%" frxIBX16.dpk
::%DCC% -I.. %OPT% -N0"..\..\%LIB%" dclfrxIBX16.dpk
::copy frxIBXReg.dcr "..\..\%LIB%"
::popd
pushd ExportPack
%DCC% -I.. %OPT% -N0"..\..\%LIB%" frxe16.dpk
%DCC% -I.. %OPT% -N0"..\..\%LIB%" dclfrxe16.dpk
copy *.dfm "..\..\%LIB%"
copy frxeReg.dcr "..\..\%LIB%"
popd
::pushd ClientServer
::%DCC% -I.. %OPT% -N0"..\..\%LIB%" frxcs16.dpk
::%DCC% -I.. %OPT% -N0"..\..\%LIB%" dclfrxcs16.dpk
::copy frxServerConfig.res "..\..\%LIB%"
::copy frxRegCS.dcr "..\..\%LIB%"
::popd
popd |
Установка пакетов
Код: @echo off
set BPL=%USERPROFILE%\Documents\RAD Studio\9.0\Bpl
if exist "%BPL%" goto :L1
echo BPL path not found. Abort.
goto :eof
:L1
Call :INSTALL "%BPL%\dclfs16.bpl" "dclfs16.bpl"
Call :INSTALL "%BPL%\dclfsDB16.bpl" "dclfsDB16.bpl"
Call :INSTALL "%BPL%\dclfsADO16.bpl" "dclfsADO16.bpl"
::Call :INSTALL "%BPL%\dclfsIBX16.bpl" "dclfsIBX16.bpl"
Call :INSTALL "%BPL%\dclfsTee16.bpl" "dclfsTee16.bpl"
Call :INSTALL "%BPL%\dclfrx16.bpl" "dclfrx16.bpl"
Call :INSTALL "%BPL%\dclfrxDB16.bpl" "dclfrxDB16.bpl"
Call :INSTALL "%BPL%\dclfrxTee16.bpl" "dclfrxTee16.bpl"
Call :INSTALL "%BPL%\dclfrxADO16.bpl" "dclfrxADO16.bpl"
::Call :INSTALL "%BPL%\dclfrxFIB16.bpl" "dclfrxFIB16.bpl"
::Call :INSTALL "%BPL%\dclfrxIBX16.bpl" "dclfrxIBX16.bpl"
Call :INSTALL "%BPL%\dclfrxe16.bpl" "dclfrxe16.bpl"
::Call :INSTALL "%BPL%\dclfrxcs16.bpl" "dclfrxcs16.bpl"
Goto :EOF
:INSTALL
reg add "HKCU\Software\Embarcadero\BDS\9.0\Known Packages" /v "%~1" /t REG_SZ /d "%~2" /f
reg delete "HKCU\Software\Embarcadero\BDS\9.0\Disabled Packages" /v "%~1" /f
reg delete "HKCU\Software\Embarcadero\BDS\9.0\Package Cache\%~2" /f
Exit /b |
|
Всего записей: 911 | Зарегистр. 04-09-2003 | Отправлено: 11:24 25-04-2012 | Исправлено: AlexCoRu, 11:25 25-04-2012 |
|
