[Gnom_aka_Lexander]

NextButtonClick работает в момент перехода на страницу. приведенный код сработает, при переходе со страницы wpSelectComponents на следующую. А что именно нужно сделать?
Вот так будет более правильно, в моем понимании:

читать дальше »

Код:

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  case CurPageID of // условия при переходе со страниц
    wpSelectComponents:  // со страницы выбора компонентов
   begin
  ...
     Result:= False;
     end;
   end;
Result:= True; // общий результат если ни одно условие не подошло
end;

я знаю что в NextButtonClick нельзя проверять If CurPageID »

непонятно тогда, для чего

NextButtonClick(CurPageID:integer) »

CurPageID в параметре указан по умолчанию?

Обновил пост

[R.i.m.s.k.y.]

Лександер, спасибо, странно почему-то не сработало

Код:

function NextButtonClick(CurPageID:integer): Boolean;
begin
  Result:= True;
  if (CurPageID = 7) then begin...

[Gnom_aka_Lexander]

спасибо, странно почему-то не сработало »

нужно само условие, которое не сработало. сам сталкиваюсь с тем, что любое неверное движение в этой функции вызывает отсутствие ожидаемого результата. Например:

function NextButtonClick(CurPageID:integer): Boolean; begin Result:= True; »

тоесть, сперва мы разрешаем переход на следующую страницу, потом функции становится по барабану на все условия. Постом выше дал более надежное оформление условия страниц.

[R.i.m.s.k.y.]

Лександер, в примере вышше помоему else не хватает на общий результат если ни одно условие не подошло

[Gnom_aka_Lexander]

в примере вышше помоему else не хватает на общий результат если ни одно условие не подошло »

Извиняюсь, все правильно. Правильно будет так:

читать дальше »

Код:

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result:=False;
  case CurPageID of // условия при переходе со страниц
    wpSelectComponents:  // со страницы выбора компонентов
   begin
  ...
     Result:= False;
   end;
 else
  Result:= True; // общий результат если ни одно условие не подошло
  end;
end;

[R.i.m.s.k.y.]

Лександер, тогда логически неверно: сначала отрабатывает case CurPageID of wpSelectComponents: Result := false, а ниже уже Result := True!

[Gnom_aka_Lexander]

тогда логически неверно: »

Постом выше исправил. Для информации: при такой проверке - для каждой страницы обязательно указывать варианты для двух случаев - правда - ложь, у меня в том косяк и был - не было альтернативного условия. и косяк в итоге вылез совершенно на другой странице, поскольку все условие целиком было составлено неверно, а при правильном условии переставала работать кнопка далее на странице, на которой не было условия разрешающее переход далее

[Raf-9600]

Ктонить может подкрутить скрипт, чтоб та часть что касается возврата оригинальных файлов, запускалась только если выбран компонент "Game\Lokal\Backup", а та часть что отвечает за проверку на оставшыеся файлы, если выбран "Game\Full"?

читать дальше »

Код:

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  Res: Integer;
  
//Возврат оригинальных файлов
begin
if CurUninstallStep = usPostUninstall then
begin
MoveDir(ExpandConstant('{app}\Backup\'),ExpandConstant('{app}'));
RemoveDir(ExpandConstant('{app}\Backup\'));
end;


//Проверка на оставшыеся файлы
begin
 case CurUninstallStep of
 usPostUninstall:
  begin
   if DirExists(ExpandConstant('{app}')) then
   if ExpandConstant('{language}') = 'ua' then
   case MsgBox('Папка "' + ExpandConstant('{app}') + '" не порожня.'#13#13 +
               '"Так" – повне видалення всіх файлів у папці, включаючи саму папку.' #13#13 +
               '"Ні" – відкрити папку в провіднику, щоб вручну видалити файли.'#13#13 +
               '"Скасувати" – нічого не робити, видалити папку пізніше самостійно.', mbInformation, MB_YESNOCANCEL) of

        IDYES:
         if not DelTree(ExpandConstant('{app}'), True, True, True) then
                MsgBox('Папка не видалена.' #13#13 'Папка або один з файлів у ній задіяні іншою програмою.', mbError, MB_OK);

        IDNO:
         if not ShellExec('open', ExpandConstant('{app}'), '', '', SW_SHOWMAXIMIZED, ewNoWait, Res) then
                MsgBox('Помилка відкриття.' #13#13 'Папка не знайдена.', mbError, MB_OK);

        IDCANCEL:;
   end
   else
   if ExpandConstant('{language}') = 'ru' then
   case MsgBox('Папка "' + ExpandConstant('{app}') + '" не пуста.'#13#13 +
               '"Да" – полное удаление всех файлов в папке, включая саму папку.' #13#13 +
               '"Нет" – открыть папку в проводнике, чтобы вручную удалить файлы.'#13#13 +
               '"Отмена" – ничего не делать, удалить папку позже самостоятельно.', mbInformation, MB_YESNOCANCEL) of

        IDYES:
         if not DelTree(ExpandConstant('{app}'), True, True, True) then
                MsgBox('Папка не удалена.' #13#13 'Папка или один из файлов в ней задействованы другим приложением.', mbError, MB_OK);

        IDNO:
         if not ShellExec('open', ExpandConstant('{app}'), '', '', SW_SHOWMAXIMIZED, ewNoWait, Res) then
                MsgBox('Ошибка открытия.' #13#13 'Папка не найдена.', mbError, MB_OK);

        IDCANCEL:;
   end
   else
    case MsgBox('Directory "' + ExpandConstant('{app}') + '" is not empty.'#13#13 +
               '"Yes" to delete all of the files in the directory, including the directory itself.' #13#13 +
               '"No" to open the directory with explorer to delete the files manually.'#13#13 +
               '"Cancel" to do nothing and delete the directory later manually.', mbInformation, MB_YESNOCANCEL) of

        IDYES:
         if not DelTree(ExpandConstant('{app}'), True, True, True) then
                MsgBox('Directory is not deleted.' #13#13 'Directory or one of the files are used by the other application.', mbError, MB_OK);

        IDNO:
         if not ShellExec('open', ExpandConstant('{app}'), '', '', SW_SHOWMAXIMIZED, ewNoWait, Res) then
                MsgBox('Error opening the directory.' #13#13 'Directory is not found.', mbError, MB_OK);

        IDCANCEL:;
    end
  end
 end
end;
end;

[El Sanchez]

Постом выше исправил »

Лександер, усе не так. В самом начале Result должен быть True - это результат функции по-умолчанию, else в операторе case не нужен. Если на страницах нужно что-то проверять и от результата этой проверки будет происходить\не происходить переход на следующую страницу, то обязательно нужно условие. Пример:

Код:

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result := True;
  case CurPageID of
    wpSelectComponents:
    begin
      c := a + b;
      Result := c <> 20; //либо if c = 20 then Result := False;
    end;
  end;
end;

Перехода на wpSelectProgramGroup не произойдет, если c = 20. Result зависит от переменной с только на wpSelectComponents, для всех остальных Result = True, установленный в самом начале функции.

[Dark_Delphin]

Всем привет.
Подскажите пожалуйста, что это за ошибка и как исправить?