Delete Registry Key - Delphi Snippet

// ...

procedure DeleteRegistryKey(const AHive : HKEY; const AKeyPath, AKeyNameToDelete : String);
begin
  var AKeyHandle : HKEY;
  var AResult := RegOpenKeyExW(AHive, PWideChar(AKeyPath), 0, DELETE or KEY_ENUMERATE_SUB_KEYS or  KEY_QUERY_VALUE, AKeyHandle);
  if AResult <> ERROR_SUCCESS then
    raise EWindowsException.Create('RegOpenKeyW', AResult);
  try
    AResult := RegDeleteTreeW(AKeyHandle, PWideChar(AKeyNameToDelete));
    if AResult <> ERROR_SUCCESS then
      raise EWindowsException.Create('RegDeleteKeyW', AResult);
  finally
    RegCloseKey(AKeyHandle);
  end;
end;

// ...

begin
  try
    DeleteRegistryKey(HKEY_CURRENT_USER, 'Software', 'NewKeyName');
  except
    on e : Exception do
      WriteLn(e.Message);
  end;

// ...

Creating and researching code snippets takes time and effort. You’re welcome to share them through your own platforms, but please don’t forget to credit the original author, here: Jean-Pierre LESUEUR.