[Painkiller]

opel431, извиняюсь, поправил код.

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
RootKey: HKEY;
PathKEY:String;
 begin
RegSetWOW64AccessMode(raNative);
RootKey := HKEY_LOCAL_MACHINE;
PathKEY:='Software\Microsoft\WIMMount';
if not RegKeyExists (RootKey,PathKEY) then begin
Memo1.Lines.Add('[ '+ SysErrorMessage ( GetLastError )+' ] Ключ не найден') ;
exit
end else begin
Memo1.Lines.Add('[ '+ SysErrorMessage ( GetLastError )+' ] Ключ найден') ;
if not RegDeleteKeyTree (RootKey,PathKEY)then   begin
Memo1.Lines.Add('['+ SysErrorMessage ( GetLastError )+' ] Ключ не удалён');
exit
end else begin
Memo1.Lines.Add('['+ SysErrorMessage ( GetLastError )+' ] Ключ удалён');
end;
end;
end;

Операции выполняются успешно , но ключ всё равно не удаляется

Скрытый текст