自動編譯安裝Delphi控制項批處理__控制項

echo off
set COMPONENTDIR=E:\DELPHIVCL
set BPL=%COMPONENTDIR%\BPL
set SUIPACKSOURCEDIR=%COMPONENTDIR%\SUIPack43\Source
set COOLTRAYSOURCEDIR=%COMPONENTDIR%\COOLTRAY

rem 其實安裝Delphi控制項不過就是在註冊表的指定位置記錄一下bpl而已
set REG32=REG ADD "HKCU\Software\Borland\Delphi\7.0\Known Packages" /v "%BPL%

echo 開始編譯並安裝CoolTray........
del %BPL%\CoolTray.*
set COOLTRAYDIR=%COMPONENTDIR%\COOLTRAY
dcc32 %COOLTRAYDIR%\CoolTray.dpk -LE%BPL%
%REG32%\CoolTray.bpl" /t REG_SZ /d "CoolTray Components"
rem REG ADD "HKCU\Software\Borland\Delphi\7.0\Known Packages" /v "E:\DELPHIVCL\BPL\CoolTray.bpl" /t REG_SZ /d "CoolTray Components"

echo 開始編譯安裝SUIPack43
set SUIPACKDIR=%COMPONENTDIR%\SUIPack43\Packages
rem dcc32 加-U參數指定單元檔案所在路徑 編譯安裝後還應將這些路徑設定為Delphi的Library path
dcc32 %SUIPACKDIR%\SUIPackD7.dpk -LE%BPL% -U"%SUIPACKSOURCEDIR%"
%REG32%\SUIPackD7.bpl" /t REG_SZ /d "SUIPack4.3"

echo 將源碼路徑添加到Delphi的搜尋路徑中......
pause

for /f "tokens=4" %%i in ('reg query HKCU\Software\Borland\Delphi\7.0\Library /v "Search Path"') do set DelphiSearchPath=%%i
echo 現有路徑為：%DelphiSearchPath%

echo "%DelphiSearchPath%"|findstr ";%SUIPACKSOURCEDIR%" > nul
if "%errorlevel%"=="1" set DelphiSearchPath=%DelphiSearchPath%;%SUIPACKSOURCEDIR%
echo "%DelphiSearchPath%"|findstr ";%COOLTRAYSOURCEDIR%" > nul
if "%errorlevel%"=="1" set DelphiSearchPath=%DelphiSearchPath%;%COOLTRAYSOURCEDIR%
echo 處理後路徑為：%DelphiSearchPath%

REG add "HKCU\Software\Borland\Delphi\7.0\Library" /v "Search Path" /t REG_SZ /d "%DelphiSearchPath%"
pause