手动安装DevExpress的控件包源代码实在是让人受不了,写了一个批处理快速的生成bpl, dcp,以及dcu
首先将ExpressScheduler 的源代码解压到一个目录。
将下面的代码保存为Build.bat (不能改成其它文件名),然后执行,等待,在Lib中就是所有的编译后的文件。
@echo
off
if not exist Lib md Lib
set LIB =.\ Lib
if not %1 N == 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
if not exist Lib md Lib
set LIB =.\ Lib
if not %1 N == 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的其余控件包,在这个上面只需要稍作修改即可适用。