[saurn]

habib2302, msgBox после деинсталяции:

Код:

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
    case CurUninstallStep of
        usPostUninstall:
        if DirExists(AddBackslash(ExpandConstant('{userdocs}')) + 'My Game\Save') then
        begin
            if MsgBoxEx(0, 'Удалить сохранения игры находящиеся по адресу:' + #13#13 + AddQuotes(AddBackslash(ExpandConstant('{userdocs}')) + 'My Game\Save'), 'Удаление сохранений', $00000004 or $00000020, 0, 0) = IDYES then
            DelTree(AddBackslash(ExpandConstant('{userdocs}')) + 'My Game\Save', True, True, True);
        end;
    end;
end;