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:UsersPublicDocumentsRAD Studio9.0下覆盖。 ※
echo ※    各平台的“公用文档”路径不一定相同，请自行确定。          ※
echo ※                                                              ※
echo ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

echo 创建XE2_Control_Backup备份目录...
set path=XE2_Control_Backup
set KnownPackages=HKEY_CURRENT_USERSoftwareEmbarcaderoBDS9.0Known Packages
set Library=HKEY_CURRENT_USERSoftwareEmbarcaderoBDS9.0Library

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

echo 备份注册表%KnownPackages%
c:windowssystem32REG EXPORT "%KnownPackages%" %path%Packages.reg

echo 备份注册表%Library%
c:windowssystem32REG EXPORT "%Library%" %path%Library.reg

for /f "tokens=4" %%a in ('c:windowssystem32
eg query "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerShell Folders" /v "Common Documents"') do (
    set Common_Documents_path=%%a
)
set bpl_path=%Common_Documents_path%RAD Studio9.0

echo 备份%bpl_path%Bpl中的文件
c:windowssystem32xcopy /s/q/e "%bpl_path%Bpl*.bpl" "%path%Bpl"

echo 备份%windir%system32中的*16.bpl文件
c:windowssystem32xcopy /q "%windir%system32*16.bpl" "%path%system32"
echo 备份%windir%SysWOW64中的*16.bpl文件
c:windowssystem32xcopy /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:UsersPublicDocumentsRAD Studio5.0下覆盖。 ※
echo ※    各平台的“公用文档”路径不一定相同，请自行确定。          ※
echo ※                                                              ※
echo ※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

echo 创建D2007_Control_Backup备份目录...
set path=D2007_Control_Backup
set KnownPackages=HKEY_CURRENT_USERSoftwareBorlandBDS5.0Known Packages
set Library=HKEY_CURRENT_USERSoftwareBorlandBDS5.0Library

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

echo 备份注册表%KnownPackages%
c:windowssystem32REG EXPORT "%KnownPackages%" %path%Packages.reg

echo 备份注册表%Library%
c:windowssystem32REG EXPORT "%Library%" %path%Library.reg

for /f "tokens=4" %%a in ('c:windowssystem32
eg query "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerShell Folders" /v "Common Documents"') do (
    set Common_Documents_path=%%a
)
set bpl_path=%Common_Documents_path%RAD Studio5.0

echo 备份%bpl_path%Bpl中的文件
c:windowssystem32xcopy /s/q/e "%bpl_path%Bpl*.bpl" "%path%Bpl"

echo 备份%windir%system32中的*100.bpl文件
c:windowssystem32xcopy /q "%windir%system32*100.bpl" "%path%system32"
echo 备份%windir%SysWOW64中的*100.bpl文件
c:windowssystem32xcopy /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