boss911
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
serg_aka_lain
Цитата:| DelTree(ExpandConstant('{app}') + '\Folder3\*.log', False, True, False); |
То, что и надо было. Да, удалять нужно только файлы, то есть логи.
Цитата:| Попробуй CurStep = ssPostInstall |
Попробовал заменить if CurStep = ssDone then на if CurStep = ssPostInstall, теперь не компилируется, спотыкается на нижней строке от if CurStep = ssPostInstall (begin).
Добавлено:
Метод тыка рулит! 
Вот так теперь работает:
Код: procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
begin
DelTree(ExpandConstant('{app}') + '\Folder1', True, True, True);
DelTree(ExpandConstant('{app}') + '\Folder2', True, True, True);
DelTree(ExpandConstant('{app}') + '\Folder3\*.log', False, True, False);
end;
end; |
все удаляется, а потом закрывается инсталл, как и нужно было.
А можно в этот код добавить текст, который бы выводился на странице инсталлятора в момент выполнения данного (procedure CurStepChanged) действия? Типа как флаг 'StatusMsg' в секции Run. |
Всего записей: 3704 | Зарегистр. 29-01-2005 | Отправлено: 23:00 22-06-2008 | Исправлено: boss911, 23:30 22-06-2008 |
|
