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

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

Аватара для Dodakaedr

Ветеран


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

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


Цитата TheLeon:
можно ли на финишной странице установщика сделать пункт, который удаляет файлы в определённых папках? »
Пример очистки локальной папки Temp, для удаления файлов используйте вместо команды DelTree команду DeleteFile:
Скрытый текст
Код: Выделить весь код
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
var
DelTmp: TNewCheckBox;

function DelTmpCheck(): boolean;
begin
  result := DelTmp.Checked;
end;

procedure InitializeWizard();
begin
  DelTmp := TNewCheckBox.Create(WizardForm);
  DelTmp.Parent := WizardForm.FinishedPage;
  DelTmp.Caption := 'Очистить папку Temp';
  DelTmp.SetBounds(ScaleX(WizardForm.RunList.Left), ScaleY(WizardForm.RunList.Top), ScaleX(140), ScaleY(15));
  DelTmp.Checked := true;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  case CurStep of
    ssDone:
      begin
        if DelTmpCheck then
          begin
            DelTree(ExpandConstant('{localappdata}\Temp'), false, true, true);
          end;
      end;
  end;
end;

-------
Inno Setup 5 Ultra Unicode

Это сообщение посчитали полезным следующие участники:

Отправлено: 10:48, 17-08-2017 | #2033