@echo off
rem first set environment library path
rem 这里路径要修改
set COMPONENTDIR=F:\编程工具\Delphi\控件安装_for2007
set SOURCEDIR=%COMPONENTDIR%\FR4\LIBD11;%COMPONENTDIR%\AutoUpgraderPro\Sources;%COMPONENTDIR%\Raize_4.3.2\Source;%COMPONENTDIR%\SynEditStudio_5.8;%COMPONENTDIR%\EjunExpress4.2.7_Trial\lib\delphi2007;%COMPONENTDIR%\方便好用的远程数据库对象V1.3\GobUnit;%COMPONENTDIR%\方便好用的远程数据库对象V1.3\DXSockEnt30\DXAddons_BASE;%COMPONENTDIR%\方便好用的远程数据库对象V1.3\DXSockEnt30\DXServers_BASE;%COMPONENTDIR%\方便好用的远程数据库对象V1.3\DXSockEnt30\DXSock_BASE;%COMPONENTDIR%\Ehlib4.5.62_Ch_Gy\EhLib4.5.62Install\Delphi2007
rem 这里路径要修改
set BDS=d:\Program Files\CodeGear\RAD Studio\5.0\Bin
set BPL="C:\Documents and Settings\All Users\Documents\RAD Studio\5.0\Bpl"
set DCP="C:\Documents and Settings\All Users\Documents\RAD Studio\5.0\Dcp"
set dcc32exe="%BDS%\dcc32.exe"
echo %dcc32exe%
set DCC32=%dcc32exe% -Q -B -$C- -$J+ -$D- -$L- -$Y- -LE%BPL% -LN%DCP% -R;%SOURCEDIR% -U;%SOURCEDIR% -I;%SOURCEDIR%
set SYSTEM32="C:\Windows\system32"
rem set REG32=REG ADD "HKCU\Software\Borland\BDS\5.0\Known Packages" /f /v $(BDSCOMMONDIR)\Bpl
set REG32=REG ADD "HKCU\Software\Borland\BDS\5.0\Known Packages" /f /v %BPL%
rem BDS 4.0 later no longer required
rem del %BPL%\*Tee*.*
rem del %DCP%\*Tee*.*
rem **********
rem install FastReport 4
echo -----------------------
echo 正在编译FastReport 4...
echo -----------------------
set FastScript=%COMPONENTDIR%\FR4\LIBD11
%DCC32% %FastScript%\fs11.dpk
%DCC32% %FastScript%\fsDB11.dpk
%DCC32% %FastScript%\fsADO11.dpk
%DCC32% %FastScript%\fsBDE11.dpk
%DCC32% %FastScript%\fsTee11.dpk
rem %DCC32% %FastScript%\fsx.dpk
%DCC32% %FastScript%\fqb110.dpk
%DCC32% %FastScript%\dclfs11.dpk
%DCC32% %FastScript%\dclfsDB11.dpk
%DCC32% %FastScript%\dclfsADO11.dpk
%DCC32% %FastScript%\dclfsBDE11.dpk
%DCC32% %FastScript%\dclfsTee11.dpk
set FastReport=%COMPONENTDIR%\FR4\LibD11
%DCC32% %FastReport%\frx11.dpk
%DCC32% %FastReport%\frxDB11.dpk
%DCC32% %FastReport%\frxTee11.dpk
%DCC32% %FastReport%\dclfrx11.dpk
%DCC32% %FastReport%\dclfrxDB11.dpk
%DCC32% %FastReport%\dclfrxTee11.dpk
set FastReportADO=%COMPONENTDIR%\FR4\LibD11
%DCC32% %FastReportADO%\frxADO11.dpk
%DCC32% %FastReportADO%\dclfrxADO11.dpk
set FastReportBDE=%COMPONENTDIR%\FR4\LibD11
%DCC32% %FastReportBDE%\frxBDE11.dpk
%DCC32% %FastReportBDE%\dclfrxBDE11.dpk
set FastReportExport=%COMPONENTDIR%\FR4\LibD11
%DCC32% %FastReportExport%\FRXE11.DPK
%DCC32% %FastReportExport%\DCLFRXE11.DPK
echo -----------------------
echo FastReport 4控件编译结束
echo -----------------------
pause
echo -------------------------
echo 正在编译AutoUpGradePro控件...
echo -------------------------
set AutoUpgardepro=%COMPONENTDIR%\AutoUpgraderPro\Sources
%DCC32% %AutoUpgardepro%\AutoUpgraderProD2007.dpk
echo -----------------------
echo AutoUpGradePro控件编译结束
echo -----------------------
pause
echo -------------------------
echo 正在编译Ehlib 4.4.47控件....
echo -------------------------
rem set EhlibPath=%COMPONENTDIR%\Ehlib4.4.47\Delphi2007
set EhlibPath=%COMPONENTDIR%\Ehlib4.5.62_Ch_Gy\EhLib4.5.62Install\Delphi2007
%DCC32% %EhlibPath%\EhLib110.dpk
%DCC32% %EhlibPath%\DclEhLib110.dpk
%DCC32% %EhlibPath%\EhLibDataDrivers110.dpk
%DCC32% %EhlibPath%\DclEhLibDataDrivers110.dpk
echo -----------------------
echo Ehlib 4.4.47控件编译结束
echo -----------------------
pause
echo ----------------
echo 正在编译Rz_4.3.2控件....
echo ----------------
set EhlibPath=%COMPONENTDIR%\Raize_4.3.2\Source
%DCC32% %EhlibPath%\RaizeComponentsVcl.dpk
%DCC32% %EhlibPath%\RaizeComponentsVclDB.dpk
%DCC32% %EhlibPath%\RaizeComponentsVcl_Design.dpk
%DCC32% %EhlibPath%\RaizeComponentsVclDb_Design.dpk
echo -----------------------
echo Rz_4.3.2控件编译结束
echo -----------------------
pause
echo --------------------------
echo 正在编译SynEdit_5.8控件...
echo --------------------------
set SynEditPath=%COMPONENTDIR%\SynEditStudio_5.8
%DCC32% %SynEditPath%\SynEdit_D10.dpk
echo -----------------------
echo SynEdit_5.8控件编译结束
echo -----------------------
pause
echo ----------------
echo 正在编译ejun表格控件...
echo ----------------
set EjunGridPath=%COMPONENTDIR%\EjunExpress4.2.7_Trial\lib\delphi2007
Copy %EjunGridPath%\*.bpl %Bpl%
Copy %EjunGridPath%\*.dcp %dcp%
echo -----------------------
echo ejun表格控件编译结束
echo -----------------------
pause
rem BDS 4.0 later no longer required
rem copy *.bpl %BPL%
rem copy *.dcp %DCP%
rem del *.dcp
rem del *.bpl
rem **********
rem registry bpl
echo ----------------
echo 添加包到注册表...
echo ----------------
%REG32%\dclfs11.bpl /t REG_SZ /d "FastScript 1.9 Components"
%REG32%\dclfsDB11.bpl /t REG_SZ /d "FastScript 1.9 DB Components"
%REG32%\dclfsADO11.bpl /t REG_SZ /d "FastScript 1.9 ADO Components"
%REG32%\dclfsBDE11.bpl /t REG_SZ /d "FastScript 1.9 BDE Components"
%REG32%\dclfrxDB11.bpl /t REG_SZ /d "FastReport 4.0 DB Components"
%REG32%\DCLFRXE11.bpl /t REG_SZ /d "FastReport 4.0 Exports"
%REG32%\dclfrxADO11.bpl /t REG_SZ /d "FastReport 4.0 ADO Components"
%REG32%\dclfrxBDE11.bpl /t REG_SZ /d "FastReport 4.0 BDE Components"
%REG32%\dclfrxTee11.bpl /t REG_SZ /d "FastReport 4.0 Tee Components"
%REG32%\dclfsTee11.bpl /t REG_SZ /d "FastScript 1.9 Tee Components"
%REG32%\dclfrx11.bpl /t REG_SZ /d "FastReport 4.0 Components"
%REG32%\AutoUpgraderProD2007.bpl /t REG_SZ /d "AutoUpgrade Components"
%REG32%\DclEhLib110.bpl /t REG_SZ /d "Ehlib 4.5 Components"
%REG32%\DclEhLibDataDrivers110.bpl /t REG_SZ /d "Ehlib 4.5 DataDrivers"
%REG32%\RaizeComponentsVcl_Design100.bpl /t REG_SZ /d "Raize Components 4.3.2"
%REG32%\RaizeComponentsVclDb_Design100.bpl /t REG_SZ /d "Raize Components 4.3.2 (Data-Aware)"
%REG32%\SynEdit_D10.bpl /t REG_SZ /d "SynEdit component suite"
%REG32%\dclEjunExpressD2007.bpl /t REG_SZ /d "SynEdit component suite"
%REG32%\dclEjunRegPathD2007.bpl /t REG_SZ /d "SynEdit component suite"
echo ---------------------------
echo 成功将包信息添加到注册表...
echo ---------------------------
pause
echo ----------------
echo 添加Library Path
echo ----------------
Set LibPath="$(BDS)\lib;$(BDS)\Imports;$(BDSCOMMONDIR)\Dcp;$(BDS)\Lib\Indy10;%SOURCEDIR%"
REG delete "HKCU\Software\Borland\BDS\5.0\Library" /v "Search Path" /f
REG ADD "HKCU\Software\Borland\BDS\5.0\Library" /f /v "Search Path" /t REG_SZ /d %LibPath%
echo ----------------
echo 修改Browse Path...
echo ----------------
rem 由于browpath过长,故分为三个变量
set BrowPath0="$(BDS)\SOURCE\WIN32\VCL;$(BDS)\source\Win32\rtl\common;$(BDS)\SOURCE\WIN32\RTL\SYS;$(BDS)\source\Win32\rtl\win;$(BDS)\SOURCE\WIN32\WEBSNAP;$(BDS)\source\ToolsAPI;$(BDS)\SOURCE\WIN32\IBX;$(BDS)\source\Win32\Internet;
set BrowPath1=$(BDS)\SOURCE\WIN32\PROPERTY EDITORS;$(BDS)\source\Win32\soap;$(BDS)\SOURCE\WIN32\XML;$(BDS)\source\Win32\db;$(BDS)\source\Indy\Indy10\Core;$(BDS)\source\Indy\Indy10\System;$(BDS)\source\Indy\Indy10\Protocols;
set BrowPath2=$(BDS)\source\database\src\pas\dbx\driver;$(BDS)\source\database\src\pas\dbx\vcl;%EjunGridPath%"
REG delete "HKCU\Software\Borland\BDS\5.0\Library" /v "Browsing Path" /f
echo 增加Browsing Path
REG ADD "HKCU\Software\Borland\BDS\5.0\Library" /f /v "Browsing Path" /t REG_SZ /d %BrowPath0%%BrowPath1%%BrowPath2%
联系客服