Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для El Sanchez

Ветеран


Contributor


Сообщения: 1274
Благодарности: 1030

Профиль | Отправить PM | Цитировать


Цитата AlekseyPopovv:
А через procedure CurUninstallStepChanged как? »
AlekseyPopovv,
Скрытый текст

Код: Выделить весь код
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
    CaptureFolder: String;
begin
    case CurUninstallStep of
        usPostUninstall:
            begin
                CaptureFolder := GetIniString('Splash', 'CaptureFolder', '', 'где-то там\file.ini');
                if DirExists(CaptureFolder) and (MsgBox('Удалить папку?', mbConfirmation, MB_YESNO) = IDYES) then
                    DelTree(CaptureFolder, True, True, True);
            end;
    end;
end;
Это сообщение посчитали полезным следующие участники:

Отправлено: 13:26, 09-06-2015 | #681