Borrar Clave Y Subclave Del Regedit De Windows

[Casimiro Noteví]

¿Qué devuelve en Result?

[dec]

Hola,

Igual no tienes permisos para borrar claves en la raíz "LOCAL_MACHINE", puesto que, si no me equivoco, necesitas permisos de "administrador". Por otro lado, hace poco me topé con un problema en cierto proyecto que usaba, directamente, las funciones "RegOpenKeyEx" del API de Windows. Dicho problema lo solucioné usando la clase "TRegistry" que incluye Delphi. En fin, igual esto te sirve de algo...

[ecfisa]

Hola cavdrz.

Revisa si te funciona la propuesta del mensaje #4 de este enlace: How to delete a registry key (and its subkey/values) under Windows NT?

Saludos

[[escafandra]]

Sobre la función que ya tienes basada en API y no en TRegistry, vamos a enumerar las subclaves posibles y borrarlas todas en una función recursiva:

Código Delphi [-]
function DeleteRegistryKey(const RootKey: HKEY; const Key: String): Boolean;
var
  Handle : HKEY;
  Subkey: array[0..255] of CHAR;
  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;

Saludos.

[cavdrz]

Gracias por responder, tenias la razón con la nueva función que me diste, funciona a la perfección, gracias.

[[escafandra]]

cavdrz, no te pregunté por el S.O. que usas así que modifiqué la función para que trabajara desde XP.
En el caso de Vista en adelante puedes usar la API RegDeleteTree, hace lo mismo con un código de una sola función, pero ojo, tu programa no funcionará en WinXP.


Saludos.