2 respuestas en este tema

[escafandra]

Hicieron esta pregunta en CD y me parece interesante dejar aquí mi respuesta.

 

La API de Windows dispone de la función RegDeleteKey para realizar esa tarea, pero tiene un detalle, no borrará una clave si existe una subclave y era esto lo que originaba la cuestión. La solución es sencilla, buscar todas las subclaves del arbol y borrarlas, Así que eso hice en una función recursiva:

delphi

function DeleteRegistryKey(const RootKey: HKEY; const Key: String): Boolean;
var
  Handle : HKEY;
  Subkey: array[0..255] of CHAR;  // las claves no pueden extenderse más allá de 256 caracteres.
  PathKey: String;
  Index: integer;
begin
  Result := False;
  if RegOpenKeyEx(RootKey, PChar(Key), 0, KEY_ALL_ACCESS or KEY_WOW64_64KEY, Handle) = ERROR_SUCCESS then
  begin
    Index:= 0;
    while ERROR_SUCCESS = RegEnumKey(Handle, Index, @Subkey[0], sizeof(Subkey)-1) do
    begin
      PathKey:= Key + '\' + String(Subkey);
      DeleteRegistryKey(RootKey, PathKey);
      inc(Index);
    end;
    RegCloseKey(Handle);
    if RegOpenKeyEx(RootKey, PChar(ExtractFilePath(Key)), 0, KEY_ALL_ACCESS or KEY_WOW64_64KEY, Handle) = ERROR_SUCCESS then
    begin
      Result := RegDeleteKey(Handle, PCHAR(ExtractFileName(Key))) = ERROR_SUCCESS;
      RegCloseKey(Handle);
    end;
  end else
    Result := False;
end;

Espero que os sirva de algo.

 

 

Saludos.

[egostar]

Hola, muy interesante el asunto de borrar claves, pero yo tengo un detalle, antes de borrar algo del registro suelo hacer un respaldo de la llave.

Hay alguna función que haga una copia antes de borrar?

Saludos.

[escafandra]

Hola, muy interesante el asunto de borrar claves, pero yo tengo un detalle, antes de borrar algo del registro suelo hacer un respaldo de la llave.

Hay alguna función que haga una copia antes de borrar?

Saludos.

Si. Tienes las APIs RegSaveKey y RegSaveKeyEx
 
El truco anterior esta centrado en Versiones anteriores a Vista, desde Vista tenemos RegDeleteTree que hace lo mismo de forma recursiva pero sin más código que la API:

 

delphi

function RegDeleteTreeA(Key: HKEY; SubKey: PCHAR): DWORD; stdcall; external 'Advapi32.dll';
 
RegDeleteTreeA(HKEY_CURRENT_USER, 'MyClave');

Usando la unit que publiqué aquí para escanear el registro, puedes sacar las claves y valores en modo texto. Esa Unit enumera claves y valores. con variaciones de ese código se puede hacer una función que genere un archivo similar a los que exporta regedit.
 
Saludos.