Имя пользователя:
Пароль:
 

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

Новый участник


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

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


RedBishep,
скрипт
Код: Выделить весь код
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  Res: Integer;
begin
  case CurUninstallStep of
    usPostUninstall:
begin
 If DirExists(ExpandConstant('{app}')+'')
   then
      case MsgBox('Папка "'+ExpandConstant('{app}')+'" не пуста.'#13#13 +
       '"Да" – полное удаление всех файлов в папке, включая саму папку.' #13#13 +
       '"Нет" – открыть папку в проводнике, чтобы вручную удалить файлы.'#13#13 +
       '"Отмена" – ничего не делать, удалить папку позже самостоятельно.', mbInformation, MB_YESNOCANCEL)
      of IDYES:
   begin
if not DelTree(ExpandConstant('{app}')+'', True, True, True)
 then
   MsgBox('Папка не удалена.' #13#13 'Папка или один из файлов в ней задействованы другим приложением.', mbError, MB_OK);
end
 IDNO:
begin
if not ShellExec('open', ExpandConstant('{app}')+'', '', '', SW_SHOWMAXIMIZED, ewNoWait, Res)
 then
   MsgBox('Ошибка открытия.' #13#13 'Папка не найдена.', mbError, MB_OK);
end
 IDCANCEL:
begin
end;
end;
end;
end;
end;

Как вариант вот так. Взято из ФАКа между прочем
После анинсталла будет спрашивать удалить всю папку или оставить как есть

Serega, Все равно... не создает, продолжает выдавать ошибку что отсутствует путь.

BeforeInstall это же непосредственно перед установкой. Может он проверяет путь до начала скачки, а не до установки? Потому как видно что он еще не начал качать даже, а только открыл окно это. Это только предположение

Последний раз редактировалось Pilotfcsm, 31-03-2010 в 20:12.


Отправлено: 19:58, 31-03-2010 | #1650