(Вопрос по Inno Setup 5) Я извиняюсь за вопрос немножко не в тему. Меня интереcует написание скрипта на Pascal следующего характера: Перед запуском инсталлятора нужна проверка реестра на определённый ключ, и если он существует - должен запускаться мастер инсталляции, а если ключ не существует, то должна вылетать мессага, что прога не найдена - жмите OK чтобы покинуть мастер (ну или другой текст). Вобщем вы программеры - для вас скриптик или только секцию кода написать не составит труда. Поможете такому как мне?
mailto:gubei_vadim@list.ru

Windows данные о размере программы берет из размера каталога в котором размещена программа, а не из реестра, так что обмануть ее тут трудно, проще в вашей программе установки контролировать, чтобы программа устанавливалась в отдельный каталог.

У меня вроде маленький, не сложный вопрос, но найти ответ в хелпе не удалось. Собственно вопрос:
Я создал свою страничку с выбором директории и проверкой пути.
Возможно ли в дальнейшем использовать этот путь вместо константы {app} (при создании ярлыков к примеру).
т.е. как из раздела [code] переопределить {app}?

To Zubr:

Видимо, да...

На самом деле данные о размере программы берутся виндой из каталога, который в конечном итоге мы сами и можем задать. Запихнув в HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MyProgram в значение InstallLocation путь к директории, мы тем самым принуждаем Windows обсчитать на предмет размера именно тот каталог, размер которого мы хотим отобразить...

Сам разобрался строчка в справке была не по глазам...
В разеделе [code] была вставлена функция:
__________
function GetDir(tmp: string): String;
begin
Result := Page.Values[0];
end;
__________
А вместо {app} используем {code:GetDir}

Ну так и я о том же

Существует ли способ убрать слово "Setup" в пункте Описание в свойствах файла инсталлятора?
К примеру, для инсталлятора с таким кусочком кода

[Setup]
AppName=My Program

в свойствах написано "My Program Setup"...

Убрать можно подменив ресурс, как обсуждалось ]]>выше]]>

Вопрос немного не по теме, но знать хочется: Почему минимальный размер инсталлятора NSIS 50 kb, а Inno Setup 300 kb и можно ли вообще его уменьшить?

Аналогия минимальный размер exe-файла скомпилированный в Delphi 300 kB, а в VC 20 kB. Скорее всего Inno Setup создавался в среде типа Delphi. Уменьшить не получится, проще написать свой инсталлятор. Кстати, в VC Net очень неплохой Wizard на проект инсталлятора.

Известно, что при нажатии кнопки "Отмена" при установке, создается откат действий. Вопрос следующий: возможно ли создать откат при деинсталляции?

Откат деинсталляции можно сделать до процесса удаления файлов, что в принципе деинсталлятор и предлагает. Если вам нужны еще какие то события деинсталлятора, то можете попробовать юзать функции:
function InitializeUninstall(): Boolean;
procedure DeinitializeUninstall();
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);

Zubr, спасибо - буду пробовать.
Вот какой инструмент я нашел для Inno Setup 5 (3.7М).
]]>http://www.hisoft2000.de/sm5/ScriptMaker5_full.exe]]>
Генератор скриптов в общем говоря (бесплатный). Включает дополнительный модуль для различных наворотов, а именно: сплеш-заставка, измение изображений для каждой страницы в отдельности, проигрывание wave и midi в фоновом режиме, продвинутая деинсталляция (с восстановлением и модификацией) и многое другое. Рекомендую всем.

У меня появилась такая проблемка: при упаковке одной игрушки, которая занимает несколько CD, программа разбивает архивы на три диска, но даже при использовании максимального метода сжатия (lzma/ultra), она "отводит" оставшиеся 20 MB для четвертого CD. Это мне абсолютно не нужно. Но создав автономный самораспаковывающийся модуль 7Z, мне удалось уместить игру на 3 CD. Этот ехе-архив запускать при установке с последующим удалением не проблема, проблема в том, как запустить его так, чтобы началось сразу его выполнение, т.е. извлечение файлов. Насколько мне подсказывавает собственная интуиция, провернуть это можно с помощью параметров командной строки, вот только пока с ней не подружился, поэтому если возникала у кого-нибудь подобная ситуация, просьба помочь мне в ней разобраться.

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

Извиняюсь, если что-то не так понял. Я делал инсталлятор, в котором сначала я копировал на жесткий sfx-архив, а затем запускал его с параметрами коммандной строки "-e -ao -y", где е-распаковка в текущую папку, ао-перезапись существующих файлов, чтобы не появилось окна с вопросом о перезаписи файла, y-пропуск начального диалога (появится сразу окно прогресса).

Не подскажет ли кто, есть ли программка наподобии Inno Unpacker, но чтобы можно было востаноить секцию [Code], вообще реально восстановить код инсталлятора, хотя бы частично?

Snаке, спасибо большое, буду пробовать.

В смысле получается закриптованный файл CompiledCode.bin, да? Есть смысл написать распаковщик/конвертер в TXT (но это уже не по моей специальности ). Есть какой-то распаковщик здесь:
]]>http://prdownloads.sourceforge.net/innounp/ifps3_disasm.rar]]>
Но он очень кривой и не дружит с пятой версией, да и к тому же извлекает в АСМе - жуть .

Подскажите, пожалуйста, кто-нибудь ответ по такому вопросу. На странице wpInstalling я создал второй progress-bar (просто так, для вида) и его движение ни от чего не должно зависить. Как заставить его двигаться и изменять скорость его движения? Также при отмене установки родной progress-bar скрывается и как сделать, чтобы мой тоже скрывался?

Спасибо Kindly за программку, обязательно попробую. Может еще сам что-нибудь найду.

Чтобы тебе, Kindly, самому не возиться, выкладываю скрипт для распаковки 7Z архива. Кстати, только увидел, что ошибся - вместо неправильной команды "ао" напиши "аоа" как показано ниже.

[Files]
Source: "sfx.exe"; DestDir: "{app}"; AfterInstall: MyAfterInstall; Flags: ignoreversion deleteafterinstall

[Code]
procedure MyAfterInstall();
var
ResultCode: Integer;
begin
 begin
  Exec(ExpandConstant('{app}\sfx.exe'), '-e -aoa -y', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
 end
end;

Snаке, у меня все прекрасно работает с установленным параметром '-y'. Я архив в самом 7z архиваторе создавал, поэтому остальные команды не нужны. Запускаю вообще-то я архив из секции [Run], но предложенный способ тоже не хуже .

Есть пример прогресс-бара (его выполнение и скорость выполнения) в одном из скриптов в папке с примерами.

ни кто не знает,

 CheckListBox := TNewCheckListBox.Create(Page);
  CheckListBox.Width := Page.SurfaceWidth;
  CheckListBox.Height := Page.SurfaceHeight;
  CheckListBox.Flat := True;
  CheckListBox.Parent := Page.Surface;
  CheckListBox.AddCheckBox('GUI', '', 0, True, True, False, True, nil);
    CheckListBox.AddCheckBox('       Windows Explorer', '', 1, False, True, False, True, nil);
    CheckListBox.AddCheckBox('       Outlook',          '', 1, True,  True, False, True, nil);
    CheckListBox.AddCheckBox('       Web Interface',    '', 1, True,  True, False, True, nil);
  CheckListBox.AddCheckBox('Server', '', 0, True, True, False, True, nil);
    CheckListBox.AddCheckBox('cFolders', '', 1, False, True, False, True, nil);
    CheckListBox.AddCheckBox('DMS',      '', 1, True,  True, False, True, nil);
    CheckListBox.AddCheckBox('CRM',      '', 1, True,  True, False, True, nil);

  webInterfaceName := ExpandConstant('{tmp}\web.interface.bmp');
  ExtractTemporaryFile(ExtractFileName(webInterfaceName));

  webInterface := TBitmapImage.Create(Page);
  webInterface.AutoSize := True;
  webInterface.Bitmap.LoadFromFile(webInterfaceName);
  webInterface.Parent := MainForm;
  webInterface.left := 42;
  webInterface.top := 48;

не коректно отображается битмап ?

Хм... Действительно - как задать выполнение нового прогресс-бара?
Один из скриптов в примерах описывает выполнение новой страницы прогресса, а не прогресс-бара в отдельности.
Делаем новую полосу прогресса (ну уж как смог).

var
  ProgressBar: TNewProgressBar;

procedure CurPageChanged(CurPageID: Integer);
var
i:Integer;
begin
If CurPageID=wpInstalling
then
 begin
  ProgressBar := TNewProgressBar.Create(WizardForm);
  ProgressBar.Left := ScaleY(40);
  ProgressBar.Top := ScaleX(180);
  ProgressBar.Width := ScaleY(415);
  ProgressBar.Height := ScaleX(18);
  ProgressBar.Parent := WizardForm;
  ProgressBar.Position := 0; //указывает количество заполняемых секторов
end;
begin
If CurPageID=wpFinished
then
ProgressBar.Hide
end;
end;

Мне кажется, что выполнение прогресс-бара должно осуществляться как-то по-другому, наверное, должна быть какая-то функция, которая бы заполняла полосу прогресса, например, от 0 до 100 (от начала до конца) в определенный промежуток времени, но вот теперешние способности у меня позволяют только предполагать.

Способ скрытия второго прогресс-бара при нажатии на кнопку Отмена в процессе установки.
В этом примере один недостаток - при нажатии на кнопку Отмена, не будет выведено уведомление о подтверждении Отмены. Может будут у кого варианты, как все проделать без отключения сообщения?

procedure CancelButtonClick(CurPage: Integer; var Cancel, Confirm: Boolean);
  begin
  Cancel:=True;
 If CurPage=wpInstalling
then
  begin
  Confirm:=False;
  ProgressBar.Hide
end;
end;

Здраствуйте. Я хочу задать вам, Zubr, целых три вопроса:

1. Мне интересно, что это за процедура ShowAboutBox и как ее использовать. Сам я ответ в Help'е не нашел;
2. Можно ли аналогично инсталлатору как нибудь изменить окно деинсталляции. Конкретно меня интересует, как можно убрать в левом верхнем углу изображение иконки инсталлятора. В отличии от WizardForm(и прочее) компонент UninstProgressForm вроде не поддерживается, но хотелось бы узнать мнение знающего человека;
3. Самый гиморный вопрос. Может объясню немного путанно, но постараюсь. На второй странице форума вы написали скрипт создания фонового рисунка на MainForm, но у него есть один недостаток. Когда запускаешь инсталлятор, одновременно появляются MainForm и WizardForm, а через некоторое время на MainForm создается рисунок, но в этот промежуток времени виден отвратительный синий(или какой-либо другой) фоновый цвет MainForm. Я видел всего два инсталлятора(игра DOOM 3 и программа Quest3D 2.0b), в которых реализован какой-то другой принцип - MainForm и фоновый рисунок на ней появляются ОДНОВРЕМЕННО, а через какое-то мгновение появляется окно WizardForm, т.е. фоновый синий цвет не виден. Подскажите, пожалуйста как это сделано, а то я сам провозился наверное с середины лета, но так и не разобрался.

Буду очень благодарен если вы поможете мне с их решением!
Отдельное большое спасибо Kindly за помощь!

Немного непонятна эта часть скрипта. Напиши, на какой форме ты хочешь создать рисунок!

Чуть не забыл. Если ты, fiot, хочешь создать рисунок на странице инсталлятора, также опиши где конкретно должен располагаться рисунок и его размеры. Возможно я знаю ответ на твой вопрос.

Позволю себе, Kindly, чуть подправить твой скрипт с progress-bar'ом. Попробуй мой скрипт(небольшая переделка под Wise Installation Wizard), думаю понравится. Также я решил проблему со скрытием progress-bar'а. Сначала у меня получалось, что progress-bar скрывался при нажатии "Отмена", но при нажатии в месаге(Выход из программы установки) на "Нет" скрытый progress-bar уже появлялся. Как изменить стандартную месагу я не понял и скрыл ее, и затем просто сделал свою.

[Code]
var
 Progress: TNewProgressBar;
 CurentFile: TNewStatictext;

procedure CancelButtonClick(CurPage: Integer; var Cancel, Confirm: Boolean);
begin
 Confirm:=False;
 If MsgBox('Установка не завершена. Если вы выйдете, программа не будет установлена.' #13#10#13#10 'Вы сможете завершить установку, запустив программу установки позже.' #13#10#13#10 'Выйти из программы установки?', mbConfirmation, mb_YesNo)=IdYes then
  begin
   Cancel:=True;
   Progress.Hide;
   CurentFile.Hide
  end else begin
   Cancel:=False;
  end
end;

procedure InitializeWizard();
var
 Cancel: Boolean;
 Confirm: Boolean;
 Page: TWizardPage;
 InfoText: TNewStatictext;
 AllFiles: TNewStatictext;
begin
   Page:=PageFromID(wpInstalling);
   AllFiles:=TNewStaticText.Create(Page);
   AllFiles.Caption:='Состояние:';
   AllFiles.Parent:=Page.Surface;
   WizardForm.StatusLabel.Top:=ScaleY(20);
   WizardForm.ProgressGauge.Top:=ScaleY(40);
   CurentFile:=TNewStaticText.Create(Page);
   CurentFile.Caption:='Копируется файл:';
   CurentFile.Top:=ScaleY(90);
   CurentFile.Parent:=Page.Surface;
   WizardForm.FileNameLabel.Top:=ScaleY(110);
   Progress:=TNewProgressBar.Create(Page);
   Progress.Top:=ScaleY(130);
   Progress.Width:=Page.SurfaceWidth;
   Progress.Height:=WizardForm.ProgressGauge.Height;
   Progress.Min:=0;
   Progress.Max:=100;
   Progress.Show;
   Progress.Parent:=Page.Surface;
end;

К слову, стало гораздо проще заменить тип сообщения(mbInformation, mbConfirmation и т.д.), если конечно захочешь.
Теперь осталось только решить проблему с движением progress-bar'а.

Snаke

Эта процедура вызывает информационное окно об авторстве и версии Inno Setup.

procedure InitializeWizard();
begin
 MainForm.ShowAboutBox;
end;

Вам это надо?


Похоже, что такой возможности нет.

[Setup]
WindowVisible=no

[code]

function GetSystemMetrics(nIndex:Integer):Integer;
external 'GetSystemMetrics@user32.dll stdcall';

procedure InitializeWizard();
var
  BackgroundBitmapImage: TBitmapImage;
  s:string;
  width, height:Integer;
begin
  MainForm.BORDERSTYLE:=bsNone;
  width:=GetSystemMetrics(61);
  height:=GetSystemMetrics(62);
  MainForm.Width:=width;
  MainForm.Height:=height;
  width:=MainForm.ClientWidth;
  height:=MainForm.ClientHeight;
  ExtractTemporaryFile('mostkorol2_1024.bmp');
  s:=ExpandConstant('{tmp}')+'\mostkorol2_1024.bmp';
  BackgroundBitmapImage := TBitmapImage.Create(MainForm);
  BackgroundBitmapImage.Bitmap.LoadFromFile(s);
  BackgroundBitmapImage.Left := 0;
  BackgroundBitmapImage.Top := 0;
  BackgroundBitmapImage.Width:=width;
  BackgroundBitmapImage.Height:=height;
  BackgroundBitmapImage.Parent := MainForm;
  BackgroundBitmapImage.Stretch:=True;
  MainForm.Visible:=True;
end;

Чтобы ваш progress-bar корректно двигался, надо двигать его в отдельном потоке, то есть создать процедуру потока:

procedure prgbar_emulate;
var
  i:Integer;
begin
 For i:=1 to 100 do
 begin
  Sleep(100);
  prbar.Position:=i;
 end;
end;

Запускается поток с помощью функции API CreateThread, которая находится в Kernel32.dll. Как выдрать функцию из dll смотрите пример выше (с функцией GetSystemMetrics), а также в примерах к Inno Setup (CodeDll.iss). Полный код писать нет времени.

Спасибо, zubr, за скрипт с рисунком. С progress-bar'ом еще предстоит разобраться. Но возникает другой маленький вопросик. Вкратце поясните, что означают эти размеры: width:=GetSystemMetrics(61) и height:=GetSystemMetrics(62).
При использовании размеров 61х62 была видна Панель задач, заменив их на 61х60, получил Fullscreen.

Функция API GetSystemMetrics возвращает информацию о рабочей среде Windows. С параметрами SM_CXMAXIMIZED = 61 и SM_CYMAXIMIZED = 62 функция возвращает размеры развернутого окна по умолчанию. 60 - это вы применили параметр SM_CYMAXTRACK - максимальный размер Y при ручном масштабировании. Если вы хотите, чтобы фоновое окно закрывало и панель задач, корректнее было бы применить параметры SM_CXSCREEN=0, SM_CYSCREEN=1.