[valyok666]

Почитать лучше это
Русская справка к версии 5.4.2, автор перевода BagIra, bugron формат Chm версия

[Sollar]

объясните почему эта функция не срабатывает только на logPage ???

причем судя по мессаджбоксам в условие входит

Код:

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  { Skip pages that shouldn't be shown }
  
  if (not IsTaskSelected('OCS')) and (PageID = TAGPage.ID) then
      Result := True
  else if (not IsTaskSelected('LogMeIn')) and ((PageID = logmeinPage.ID) or (PageID = logPage.ID)) then
      Result := True
  else 
  begin
      if (PageID = wpSelectTasks) then    
      begin
          ocsTAG := GetIniString('Org'+inttostr(GetWizardSetupType()+1), 'ocsTAG', 'Error', 'C:\временная\example.ini');
          LogmeinTAG := GetIniString('Org'+inttostr(GetWizardSetupType()+1), 'LogmeinTAG', 'Error', 'C:\временная\example.ini');
      end; 
      if (PageID = logPage.ID) and (LogmeinTAG <> '' ) then 
      begin
          login := '/c msiexec /i {tmp}{\logmein.msi /q ACCOUNTEMAIL=' + logmeinTAG + ' USERPASSWORD=' + logmeinPage.Values[0] + ' USERVERIFYPWD=' + logmeinPage.Values[0] + ' USEREMAIL=' + logmeinTAG + ' USERWEBPASSWORD=' + logmeinPage.Values[0] + ' LicenseType=free'      
         
          Result := True
      end
      else
      begin    
          login := '/c msiexec /i {tmp}{\logmein.msi /q ACCOUNTEMAIL=' + logPage.Values[0] + ' USERPASSWORD=' + logmeinPage.Values[0] + ' USERVERIFYPWD=' + logmeinPage.Values[0] + ' USEREMAIL=' + logPage.Values[0] + ' USERWEBPASSWORD=' + logmeinPage.Values[0] + ' LicenseType=free'      
          Result := False;
      end;
      if ((PageID = TAGPage.ID) and (ocsTAG <> '' )) then 
      begin
          s := 'install /S /UPGRADE /NOSPASH /SERVER:svc.ru /NP /DEBUG /NOW /TAG:' + ocsTAG;
          Result := True
          msgbox('ocs не срабатывает', mbInformation, MB_OK);
          msgbox(s + '  ' + ocsTAG, mbInformation, MB_OK);
      end
      else
      begin
          s := 'install /S /UPGRADE /NOSPASH /SERVER:svc.ru /NP /DEBUG /NOW /TAG:' + TAGPage.Values[0];
          Result := False
      end;
    end;
end;

[6apakyda]

Подскажите пожалуйста, какой флаг надо вбить чтобы распаковывался только выбранный exe файл
Вообще сдесь ли это делать надо:

Код:

[Components]
Name: XP; Description: Adobe Reader для Windows XP; Flags: exclusive
Name: Vista; Description: Adobe Reader для Windows Vista; Flags: exclusive
Name: Seven; Description: Adobe Reader для Windows 7; Flags: exclusive

[insombia]

6apakyda у тебя вроде все правильно выбрано

[Sotonisto]

murlakatamenka, спасибо за скрипт Но все же вопрос остался открытым Я вообще не использую FreeArc и не понимаю как ним пользоваться (юзаю только Inno).

[valyok666]

Sotonisto, юзай Isdone проще по моему

[Sotonisto]

Я вот только что скачал репак RE4 и там такой инсталлятор:

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

Кто может поделиться таким же/максимально похожим?
---
valyok666, вот есть немного подчищеный скрипт (он с ISDone) http://rghost.ru/26167341 (спасибо за это murlakatamenka).
Как туда вернуть стандартный прогресс бар (нынешний видит только распаковку FreeArc, 7-Zip... короче все, но только не Inno)? Если упаковать, например, игру средствами Inno - прогресс бар не будет реагировать (хотя установка будет идти)

[valyok666]

Sotonisto, там создание формы через ботву или я ошибаюсь????

[valyok666]

У кого нить есть пример создания формы с нуля очень нужно можно в пм)

[Rikill]

valyok666, какая форма интересует? Типо такого? Если что, просто вешаешь на кнопку и видишь результат.
Form := CreateCustomForm();
with Form do
begin
Position := poScreenCenter;
ClientWidth := ScaleX(WizardForm.Width);
ClientHeight := ScaleY(230) div 2;
Caption := 'form';
Color := clBlack;

В var сам допишешь.