Delphi控件備份工具

用途： 
1.若是您須要重裝Delphi，想省去重裝控件的麻煩。 
2.若是您把Delphi環境安裝至另外一臺電腦上。 

那麼，您必定須要這個！

 

運行批處理後，自動在當前目錄下生成備份目錄。

批處理代碼

@echo off
Title=Delphi XE2 控件備份             --by zdh

echo ※※※※※※※※說明(win7 64bit下測試經過)※※※※※※※※※※※※
echo ※用途：                                                        ※
echo ※  1.若是您須要重裝Delphi，想省去重裝控件的麻煩。              ※
echo ※  2.若是您把Delphi環境安裝至另外一臺電腦上。                    ※
echo ※用法：                                                        ※
echo ※  1.請確保控件源碼路徑不變，運行備份的兩個註冊表。            ※
echo ※  2.把system32和SycWow64拷到c:\windows下覆蓋。                ※
echo ※  3.把Bpl拷到C:\Users\Public\Documents\RAD Studio\9.0下覆蓋。 ※
echo ※    各平臺的「公用文檔」路徑不必定相同，請自行肯定。          ※
echo ※                                                              ※
echo ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

echo 建立XE2_Control_Backup備份目錄...
set path=XE2_Control_Backup
set KnownPackages=HKEY_CURRENT_USER\Software\Embarcadero\BDS\9.0\Known Packages
set Library=HKEY_CURRENT_USER\Software\Embarcadero\BDS\9.0\Library

if exist %path% rd /s /q %path%
mkdir %path%

echo 備份註冊表%KnownPackages%
c:\windows\system32\REG EXPORT "%KnownPackages%" %path%\Packages.reg

echo 備份註冊表%Library%
c:\windows\system32\REG EXPORT "%Library%" %path%\Library.reg

for /f "tokens=4" %%a in ('c:\windows\system32\reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "Common Documents"') do (
    set Common_Documents_path=%%a
)
set bpl_path=%Common_Documents_path%\RAD Studio\9.0\

echo 備份%bpl_path%Bpl中的文件
c:\windows\system32\xcopy /s/q/e "%bpl_path%Bpl\*.bpl" "%path%\Bpl\"

echo 備份%windir%\system32中的*16.bpl文件
c:\windows\system32\xcopy /q "%windir%\system32\*16.bpl" "%path%\system32\"
echo 備份%windir%\SysWOW64中的*16.bpl文件
c:\windows\system32\xcopy /q "%windir%\SysWOW64\*16.bpl" "%path%\SysWOW64\"
pause

對於XE5，把9.0改爲12.0，把*16.bpl改爲*19.bpl便可。

 

 

Delphi 2007控件的備份方法以下

@echo off
Title=Delphi2007 控件備份   --by zdh


echo ※※※※※※※※說明(win7 64bit下測試經過)※※※※※※※※※※※※
echo ※用途：                                                        ※
echo ※  1.若是您須要重裝Delphi，想省去重裝控件的麻煩。              ※
echo ※  2.若是您把Delphi環境安裝至另外一臺電腦上。                    ※
echo ※用法：                                                        ※
echo ※  1.請確保控件源碼路徑不變，運行備份的兩個註冊表。            ※
echo ※  2.把system32和SycWow64拷到c:\windows下覆蓋。                ※
echo ※  3.把Bpl拷到C:\Users\Public\Documents\RAD Studio\5.0下覆蓋。 ※
echo ※    各平臺的「公用文檔」路徑不必定相同，請自行肯定。          ※
echo ※                                                              ※
echo ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

echo 建立D2007_Control_Backup備份目錄...
set path=D2007_Control_Backup
set KnownPackages=HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Known Packages
set Library=HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Library

if exist %path% rd /s /q %path%
mkdir %path%

echo 備份註冊表%KnownPackages%
c:\windows\system32\REG EXPORT "%KnownPackages%" %path%\Packages.reg

echo 備份註冊表%Library%
c:\windows\system32\REG EXPORT "%Library%" %path%\Library.reg

for /f "tokens=4" %%a in ('c:\windows\system32\reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "Common Documents"') do (
    set Common_Documents_path=%%a
)
set bpl_path=%Common_Documents_path%\RAD Studio\5.0\

echo 備份%bpl_path%Bpl中的文件
c:\windows\system32\xcopy /s/q/e "%bpl_path%Bpl\*.bpl" "%path%\Bpl\"

echo 備份%windir%\system32中的*100.bpl文件
c:\windows\system32\xcopy /q "%windir%\system32\*100.bpl" "%path%\system32\"
echo 備份%windir%\SysWOW64中的*100.bpl文件
c:\windows\system32\xcopy /q "%windir%\SysWOW64\*100.bpl" "%path%\SysWOW64\"
pause

 

此帖是隻個拋磚引玉，其它Delphi版本能夠參考上面作一份，歡迎一塊兒探討。

 

推薦結合綠色版delphi使用

Delphi XE2綠色版: http://bbs.2ccc.com/topic.asp?topicid=406249

Delphi XE5 update2綠色版: http://bbs.2ccc.com/topic.asp?topicid=445423