Экспортировать ветвь реестра

Delphi , ОС и Железо , Реестр

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

unit RegExpo;

 interface

 uses
   Windows, rRegistry, Classes, SysUtils;

 {$I-}
 {$LONGSTRINGS ON}

 { 
  Regexpo 

  Author : Arthur Hoornweg (arthur.hoornweg@email.de) 
  Version : 1.00, May 1998 
  O/S : Windows 95, 98, ME, NT, 2000, XP 
        Delphi 2+ 
  Function : 
    This unit allows you to backup a branch of the registry into a *.REG file, 
    that is compatible with "regedit". 
    Double-clicking such a file in the explorer will import it. 


  Example: 
    ExportRegistryBranch(HKEY_LOCAL_MACHINE,'SOFTWARE\Borland\Delphi','A:\DELPHI.REG') 

  (c) 1998 A.M. Hoornweg. All rights reserved. 

  You may use this software for all purposes, both commercial and 
  noncommercial, as long as proper credit is given. The sourcecode may be distributed 
  freely, as long as this copyright is included and no more than a marginal fee is 
  asked. 


  Disclaimer: 

  I accept no responsibility whatsoever for any damages caused by these 
  routines. Use them at your own risk. If you find any bugs, please let me know. 
}


 procedure ExportRegistryBranch(Rootsection: Integer; regroot: string;
   FileName: string);

 implementation

 function dblBackSlash(t: string): string;
 var
   k: longint;
 begin
   Result := t; {Strings are not allowed to have}
   for k := Length(t) downto 1 do {single backslashes}
     if Result[k] = '\' then Insert('\', Result, k);
 end;


 procedure ExportRegistryBranch(rootsection: Integer; Regroot: string;
   FileName: string);
 var
   reg: TRegistry;
   f: Textfile;
   p: PChar;

   procedure ProcessBranch(root: string); {recursive sub-procedure}
   var
     values, keys: TStringList;
     i, j, k: longint;
     s, t: string; {longstrings are on the heap, not on the stack!}
   begin
     Writeln(f); {write blank line}
     case rootsection 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 + '\' + root + ']'); {write section name in brackets}

     reg.OpenKey(root, False);
     try
       values := TStringList.Create;
       try
         keys := TStringList.Create;
         try
           reg.GetValuenames(values); {get all value names}
           reg.GetKeynames(keys); {get all sub-branches}

           for i := 0 to values.Count - 1 do {write all the values first}
           begin
             s := values[i];
             t := s; {s=value name}
             if s = '' then s := '@' {empty means "default value", write as @}
             else
               s := '"' + s + '"'; {else put in quotes}
             Write(f, dblbackslash(s) + '='); {write the name of the key to the file}

             case reg.Getdatatype(t) of {What type of data is it?}

               rdString, rdExpandString: {String-type}
                 Writeln(f, '"' + dblbackslash(reg.ReadString(t) + '"'));

               rdInteger: {32-bit unsigned long integer}
                 Writeln(f, 'dword:' + IntToHex(reg.readinteger(t), 8));

              {write an array of hex bytes if data is "binary." Perform a line feed 
              after approx. 25 numbers so the line length stays within limits}

               rdBinary:
                 begin
                   Write(f, 'hex:');
                   j := reg.GetDataSize(t); {determine size}
                   GetMem(p, j); {Allocate memory}
                   reg.ReadBinaryData(t, p^, J); {read in the data, treat as pchar}
                   for k := 0 to j - 1 do
                   begin
                     Write(f, IntToHex(Byte(p[k]), 2)); {Write byte as hex}
                     if k <> j - 1 then {not yet last byte?}
                     begin
                       Write(f, ','); {then write Comma}
                       if (k > 0) and ((k mod 25) = 0) {line too long?} then
                         Writeln(f, '\'); {then write Backslash +lf}
                     end; {if}
                   end; {for}
                   FreeMem(p, j); {free the memory}
                   Writeln(f); {Linefeed}
                 end;
               else
                 Writeln(f, '""'); {write an empty string if datatype illegal/unknown}
             end;{case}
           end; {for}
         finally
           reg.CloseKey;
         end;

       finally
         {value names all done, no longer needed}
         values.Free;
       end;

       {Now al values are written, we process all subkeys}
       {Perform this process RECURSIVELY...}
       for i := 0 to keys.Count - 1 do
         ProcessBranch(root + '\' + keys[i]);
     finally
       keys.Free; {this branch is ready}
     end;
   end; { ProcessBranch}


 begin
   if RegRoot[Length(Regroot)] = '\' then {No trailing backslash}
     SetLength(regroot, Length(Regroot) - 1);
   Assignfile(f, FileName); {create a text file}
   Rewrite(f);
   if ioResult <> 0 then Exit;
   Writeln(f, 'REGEDIT4'); {"magic key" for regedit}

   reg := TRegistry.Create;
   try
     reg.Rootkey := Rootsection;
     {Call the function that writes the branch and all subbranches}
     ProcessBranch(Regroot);
   finally
     reg.Free; {ready}
     Close(f);
   end;
 end;

 end.

Программный модуль Delphi под именем RegExpo, который позволяет экспортировать ветвь реестра Windows в файл с расширением .reg, который может быть импортирован с помощью утилиты regedit.

Вот подробное описание кода:

Интерфейс Интерфейсный раздел определяет единственную процедуру: ExportRegistryBranch. Эта процедура принимает три параметра:

• Rootsection: целое число, представляющее корневой ключ реестра для экспорта (например, HKEY_LOCAL_MACHINE)
• Regroot: строка, представляющая путь ветви реестра для экспорта (например, 'SOFTWARE\Borland\Delphi')
• FileName: строка, представляющая имя файла .reg для экспорта

Имплементация Имплементационный раздел определяет несколько процедур и функций:

• dblBackSlash: функция, которая заменяет одиночные обратные косые запятые (\) на двойные обратные косые запятые (\\) для обеспечения совместимости результата с Windows.
• ProcessBranch: рекурсивная процедура, которая записывает ветвь реестра и все ее подветви в файл вывода. Эта процедура использует два TStringLists: values для хранения имен значений и keys для хранения имен ключей.
• ExportRegistryBranch: основная процедура, которая вызывает ProcessBranch для экспорта указанной ветви реестра.

Вот шаг за шагом, что код делает:

1. Он проверяет, имеет ли входной строка Regroot trailing backslash (\) и удаляет его, если он есть.
2. Он создает текстовый файл с указанным именем FileName.
3. Он пишет заголовок "REGEDIT4" в файл, что указывает на то, что это файл экспорта реестра.
4. Он создает объект TRegistry и устанавливает его корневой ключ на указанное Rootsection.
5. Он вызывает ProcessBranch, чтобы рекурсивно записать ветвь реестра и все ее подветви в файл вывода.
6. Наконец, он закрывает текстовый файл.

Замечания

• Код использует рекурсивные процедуры для обработки ветви реестра и всех ее подветвей. Это может привести к ошибкам стека, если ветвь реестра имеет слишком много уровней вложенности.
• Код предполагает, что входная строка Regroot является валидным путем ключа реестра. Он не выполняет никаких проверок на это вводе.
• Код использует класс TRegistry из единицы rRegistry, который обеспечивает доступ к реестру Windows.

В целом, этот код appears to be полезной утилитой для экспорта конкретных ветвей реестра Windows в файлы с расширением .reg, которые могут быть импортированы с помощью утилиты regedit. Однако он может потребовать некоторых модификаций и тестирования, чтобы обеспечить его корректную работу в всех сценариях.

В статье 'Экспортировать ветвь реестра' описано создание программного интерфейса для экспорта раздела реестра в файл *.REG,compatible с программой 'regedit'.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Реестр ::