Delphi控件备份工具

原作者: [db:作者] 来自: [db:来源] 收藏邀请

用途：
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