如何动态的备份和还原注册表

如何动态的备份和还原注册表（要原代码），如果可行立即结贴。 问题点数：50、回复次数：2Top

1 楼cg1120（代码最优化－§惟坚韧者始能遂其志§）回复于 2003-02-11 14:43:52 得分 50

备份：  
   
  用法：  
      ExportRegistryToFile(HKEY_CURRENT_USER,'SoftWare\Borland','C:\aaaa.reg');  
  ///FileName:RegExport.pas  
  unit   RegExport;  
   
  interface  
  uses  
      windows,   registry,   Classes,   sysutils;  
   
  procedure   ExportRegistryToFile(const   Root:   HKEY;   const   Key:   string;   const   FileName:   TFileName);  
   
  implementation  
   
  function   DBLBackSlash(T:   string):   string;  
  ///本函数用来把一个'\'变成两个'\\'，符合REG文件格式  
  var  
      K                                   :   Longint;  
  begin  
      Result   :=   T;  
      for   K   :=   Length(T)   downto   1   do  
          if   Result[k]   =   '\'   then   insert('\',   Result,   K);  
  end;  
   
  {$I-}  
   
  procedure   ExportRegistryToFile(const   Root:   HKEY;   const   Key:   string;   const   FileName:   TFileName);  
  var  
      Reg                               :   TRegistry;  
      F                                   :   TextFile;  
      p                                   :   PChar;  
      FKey                             :   string;  
   
      procedure   ProcessBranch(R:   string);   ///递归处理子键  
      var  
          Values,   Keys         :   TStringList;  
          i,   j,   k                   :   longint;  
          s,   t                         :   string;  
      begin  
          WriteLn(F);  
          case   Root   of  
              HKEY_CLASSES_ROOT:   s   :=   'HKEY_CLASSES_ROOT';  
              HKEY_CURRENT_USER:   s   :=   'HKEY_CURRENT_USER';  
              HKEY_LOCAL_MACHINE:   s   :=   'HKEY_LOCAL_MACHINE';  
              HKEY_USERS:   s   :=   'HKEY_USERS';  
              HKEY_PERFORMANCE_DATA:   s   :=   'HKEY_PERFORMANCE_DATA';  
              HKEY_CURRENT_CONFIG:   s   :=   'HKEY_CURRENT_CONFIG';  
              HKEY_DYN_DATA:   s   :=   'HKEY_DYN_DATA';  
          end;  
          WriteLn(F,   '['   +   s   +   '\'   +   R   +   ']');   ///like   [HKEY_CURRENT_USER\....\....\]  
          Reg.CloseKey;  
          Reg.OpenKey(R,   False);  
          Values   :=   TStringList.Create;  
          Keys   :=   TStringList.Create;  
          Reg.GetValueNames(Values);  
          Reg.GetKeyNames(Keys);  
          for   i   :=   0   to   Values.Count   -   1   do  
          begin  
              s   :=   Values.Strings[i];  
              t   :=   s;  
              if   s   =   ''   then   s   :=   '@'   else   s   :=   '"'   +   s   +   '"';  
              Write(F,   DBLBackSlash(s)   +   '=');  
              case   Reg.GetDataType(t)   of  
                  rdString,   rdExpandString:   Writeln(F,   '"'   +   DBLBackSlash(Reg.ReadString(t))   +   '"');  
                  rdInteger:   Writeln(F,   'dword:'   +   IntToHex(Reg.ReadInteger(t),   8));  
                  rdBinary:   begin  
                          Write(F,   'hex:');  
                          j   :=   Reg.GetDataSize(t);  
                          GetMem(p,   j);  
                          Reg.ReadBinaryData(t,   p^,   j);  
                          for   k   :=   0   to   j   -   1   do  
                          begin  
                              Write(F,   IntToHex(byte(p[k]),   2));  
                              if   k   <>   j   -   1   then  
                              begin  
                                  Write(F,   ',');  
                                  if   (K   >   0)   and   ((K   mod   25)   =   0)   then  
                                      WriteLn(F,   '\');  
                              end;   ///End   if   K<>j-1  
                          end;   ///For  
                          FreeMem(p,   j);  
                          WriteLn(F);  
                      end;  
              else   ///case   else  
                  WriteLn(F,   '""');   ///数据非法！  
              end;   ///   End   Case  
          end;   ///end   For  
          Reg.CloseKey;  
          Values.Free;  
          for   i   :=   0   to   Keys.Count   -   1   do  
              if   R   <>   ''   then  
                  ProcessBranch(R   +   '\'   +   Keys.Strings[i])  
              else  
                  ProcessBranch(Keys[i]);  
          Keys.Free;  
      end;  
   
  begin  
      FKey   :=   Key;  
      if   FKey   <>   ''   then  
          if   Key[Length(FKey)]   =   '\'   then  
              SetLength(FKey,   Length(FKey)   -   1);  
      AssignFile(F,   FileName);  
      ReWrite(F);  
      if   IOResult   <>   0   then   exit;  
      WriteLn(F,   'REGEDIT4');  
      Reg   :=   TRegistry.Create;  
      try  
          Reg.RootKey   :=   Root;  
          ProcessBranch(FKey);  
      finally  
          Reg.Free;  
          Close(F);  
      end;  
  end;  
  {$I+}  
   
  end.  
  Top

2 楼cg1120（代码最优化－§惟坚韧者始能遂其志§）回复于 2003-02-11 14:47:43 得分 0

还原：  
   
  WinExec("RegEdit.exe   /s   Backup.reg",   SW_HIDE);    
  或：  
  procedure   TFormMain.ButtonImportClick(Sender:   TObject);  
  var               //从文件导回到注册表  
    RootKey,phKey:   hKey;  
    KeyName,sKeyFileName:   String;  
    FileName:   array   [0..255]   of   char;  
  begin  
    RootKey   :=   HKEY_CURRENT_USER;  
    KeyName   :=   'software';//xxxxxxx  
    RegOpenKeyEx(RootKey,   PChar(KeyName),   0,   KEY_ALL_ACCESS,   phKey);  
    sKeyFileName   :=   'C:\aaaa.reg';  
    StrPCopy(FileName,sKeyFileName);  
    if   RegRestoreKey(phKey,   FileName,0)=   0   then    
        ShowMessage('注册表指定分支已恢复。')  
    else  
          ShowMessage('注册表指定分支没有恢复，操作失败。');  
      RegCloseKey(phKey);  
  end;  
  Top

相关问题

• root
• 注册表
• processbranch
• fkey
• 备份
• 还原
• exportregistrytofile
• skeyfilename
• phkey
• rootkey

• 帖主：neo40
• cg1120

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载