Не удается удалить папку, созданную в «Мои документы», с помощью Inno Setup

Question

Я пытался использовать программу, описанную здесь Проблемы при удалении папки во время удаления с помощью Inno Setup

после того, как ответы были опубликованы, но по неизвестной мне причине эта часть кода ничего не делает. Может быть связано с версией Windows или 32- или 64-битной?

Вот код, используемый мной:

procedure CurUninstallStepChanged (CurUninstallStep: TUninstallStep);
var
mres : integer;
begin
 case CurUninstallStep of
 usPostUninstall:
 begin
mres := MsgBox('Do you want to delete saved games?', mbConfirmation, MB_YESNO or MB_DEFBUTTON2)
 if mres = IDYES then
   DelTree('ExpandConstant({userdocs}\SpellForce2)', True, True, True);
    end;  
  end;
end;

Есть идеи, которые могут быть мне полезны?

Заранее спасибо! :)

Answer 1

Вы пытаетесь удалить папку с именем 'ExpandConstant ({userdocs} \ SpellForce2)' (буквально), просто удалите символ 'в вызове ExpandConstant (это вызов подпрограммы ).

procedure CurUninstallStepChanged (CurUninstallStep: TUninstallStep);
var
  mres : integer;
begin
  case CurUninstallStep of
    usPostUninstall:
      begin
        mres := MsgBox('Do you want to delete saved games?', mbConfirmation, MB_YESNO or MB_DEFBUTTON2)
        if mres = IDYES then
          DelTree(ExpandConstant('{userdocs}\SpellForce2'), True, True, True);
      end;  
  end;
end;

Answer 2

Вы не можете сделать

DelTree('ExpandConstant({userdocs}\SpellForce2)', True, True, True);

Конечно, это должно читаться

DelTree(ExpandConstant('{userdocs}\SpellForce2'), True, True, True);