Скрипты Inno Setup. Помощь и советы [часть 4]

by_gangster · Отправлено: **11:43, 10-03-2012** | #**1001**

Люди да помогите создать инсталятор с максимальным сжатием, плиииииззз

R.i.m.s.k.y. · Конфигурация компьютера

by_gangster, парой страниц назад были настройки на максимальное сжатие

Gnom_aka_Lexander · Отправлено: **11:49, 10-03-2012** | #**1003**

R.i.m.s.k.y., могу порекомендовать использовать способ nick1967 создавать чекбокс и через шеллэкзек запускать.

Цитата by_gangster:

с максимальным сжатием »

здесь это не обсуждается.

Цитата El Sanchez:

Внимание! Данная тема предназначена только для обсуждения написания скриптов ! »

Не вижу ни одного слова про обсуждение способов сжатия.

by_gangster · Отправлено: **11:51, 10-03-2012** | #**1004**

R.i.m.s.k.y., да чё я тока не делал, я весь форум перерыл, Compression=lzma почему он сжимает лучше чем lzma/ultra и т.д надо МАКСиМАлЬНО

я ставил lzma2/ultra64 но инсталятор после этого стал ещё больше а если lzma то чуть-чуть поменьше становится
Возможные значения:
zip
zip/1 до zip/9
bzip
bzip/1 до bzip/9
lzma
lzma/fast
lzma/normal
lzma/max
lzma/ultra (рассмотрите требования к памяти ниже перед использованием)
lzma/ultra64 (рассмотрите требования к памяти ниже перед использованием)
lzma2
lzma2/fast
lzma2/normal
lzma2/max
lzma2/ultra (рассмотрите требования к памяти ниже перед использованием)
lzma2/ultra64 (рассмотрите требования к памяти ниже перед использованием)
none

R.i.m.s.k.y. · Конфигурация компьютера

Цитата Лександер:

могу порекомендовать использовать способ nick1967 создавать чекбокс и через шеллэкзек запускать. »

а нельзя на шаге ssDone просто проверить какие чекбоксы были выбраны на FinishedPage?
Догадываюсь что можно, но я абсолютно не знаю названия всех этих внутренностей

alert30 · Конфигурация компьютера

repacksman, молодец что в твоем сайте много готовых скриптов, но какой смысл здесь выкладывать?

Gnom_aka_Lexander · Отправлено: **12:17, 10-03-2012** | #**1007**

можно. if WizardForm.RunList.Checked[0] then

R.i.m.s.k.y. · Конфигурация компьютера

Цитата Лександер:

можно. if WizardForm.RunList.Checked[0] then »

а как этот НОЛЬ узнать? т.е. порядковый номер?
я вот наваял но ругается что неизвестный Items

Код:

if CurStep=ssDone  then begin
#if Full == True
if NeedRestart_my() then MsgBox(ExpandConstant('{cm:code9}'), mbInformation, MB_OK);
#endif

web1 := WizardForm.FinishedPage.Items.IndexOf(ExpandConstant('{cm:runSVPTeam}'));
web2 := WizardForm.FinishedPage.Items.IndexOf(ExpandConstant('{cm:runsubscribe}'));
if (WizardForm.FinishedPage.Checked[web1]) then ShellExec('open', 'http://www.SVP-Team.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
if (WizardForm.FinishedPage.Checked[web2]) then begin
  if IsRus then ShellExec('open', 'http://svp-team.com/wiki/Mailing_list/ru', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
  else ShellExec('open', 'http://svp-team.com/wiki/Mailing_list', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;
end; // CurStep=ssDone

хотя c ComponentsList и TasksList это работает

Gnom_aka_Lexander · Отправлено: **12:22, 10-03-2012** | #**1009**

только нужно это вешать не на ssDone а в NextButtonClick:

Код:

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result := True;
  if CurPageID=wpFinished then
  begin
    if WizardForm.RunList.Checked[0] then
.............................................
    Result := True;
  end;
end;

просто на ssDone итемы ранлиста еще не созданы, видимо.

R.i.m.s.k.y. · Конфигурация компьютера

Лександер, блин, последний список называется RunList, а я влупил FinishedPage
Теперь работает