@echo off
if not exist Lib md Lib
set LIB=.\Lib

if not %1N == N goto copy
call Build "ExpressGDI+ Library"
call Build "XP Theme Manager"
call Build "ExpressDataController"
call Build "ExpressEditors Library 5"
call Build "ExpressExport Library"
call Build "ExpressLibrary"
call Build "ExpressScheduler 2"

cd %LIB%
set Param=-$D- -B
dcc32 dxGDIPlusD7.dpk %Param%
dcc32 dxThemeD7.dpk %Param%
dcc32 cxDataD7.dpk %Param%
dcc32 cxADOAdaptersD7.dpk %Param%
dcc32 cxBDEAdaptersD7.dpk %Param%
dcc32 cxIBXAdaptersD7.dpk %Param%
dcc32 cxEditorsVCLD7.dpk %Param%
dcc32 cxExtEditorsVCLD7.dpk %Param%
dcc32 dclcxEditorsVCLD7.dpk %Param%
dcc32 dclcxExtEditorsVCLD7.dpk %Param%
dcc32 cxExportVCLD7.dpk %Param%
dcc32 cxLibraryVCLD7.dpk %Param%
dcc32 dclcxLibraryVCLD7.dpk %Param%
dcc32 dclcxSchedulerVCLD7.dpk %Param%
dcc32 cxSchedulerVCLD7.dpk %Param%


del *.pas
del *.dpk
::del *.res
::del *.dfm
del *.bpk
del *.bmp
del *.dcr
del *.cpp
del *.inc
pause
goto exit

:copy
if not exist %1 goto exit
cd %1
if exist Packages copy "Packages\*.*" .%LIB% /Y > nul
if exist Sources copy "Sources\*.*" .%LIB% /Y > nul
cd..

:exit

DevExpress的其余控件包，在这个上面只需要稍作修改即可适用。