Проблема с удалением раздела реестра

[Lauri]

Собссно не получается удалить раздел с подразделами, использую следующий код

Procedure DlX; Stdcall;
begin
if RegKeyExists(HKEY_LOCAL_MACHINE, 'Software\X') then
begin
 RegDelKey(HKEY_LOCAL_MACHINE,'Software\X');
end;
end;

Права админксие, но в разделе X есть её подразделы N and M в которых много своих подразделов. Нада Удалить X со всеми подразделами.

[Rififi]

SHDeleteKey

[Lauri]

Сообщение от Rififi

SHDeleteKey

Не работает, пробую на Севен

[FaTaL]

Попробовал через TRegistry и всё нормально удалилось с подразделами.

[Lauri]

Делаю вот так

if RegKeyExists(HKEY_LOCAL_MACHINE, 'Software\X') then begin
SHDeleteKey(HKEY_LOCAL_MACHINE, 'Software\X\M');
SHDeleteKey(HKEY_LOCAL_MACHINE, 'Software\X\N');
SHDeleteKey(HKEY_LOCAL_MACHINE, 'Software\X');
end;

[FaTaL]

Ещё раз проверил, всё удалилось

var
  reg : TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  if reg.DeleteKey('Test') then
    ShowMessage ('Готово!') else
    ShowMessage ('Не получилось');
  reg.Free;
end;