[Gnom_aka_Lexander]

как это реализовано у R.G. Catalyst. »

R.G. Catalyst используют свою длл-ку для этого, которая специально для них была написана. Делай лого побольше размером, это единственный способ борьбы с запозданием окна WizardForm.

как красиво это реализовать? »

Через сам ISDone. Тогда и по будет на прогрессбаре плавно отображаться, и отмена останется.

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

Код:

[Tasks]
Name: po; Description: Установить дополнительное ПО
Name: po\Runtime; Description: Microsoft Visual C++
Name: po\PhysX; Description: NVIDIA PhysX
Name: po\DX9; Description: Microsoft DirectX
...............................
// Подготавливаем переменную, содержащую всю информацию о выделенных задачах для ISDone.dll
// максимум 96 компонентов.
    Comps1:=0; Comps2:=0; Comps3:=0;
    TmpValue:=1;
    if IsTaskSelected('po\Runtime') then Comps1:=Comps1+TmpValue;     //компонент 1
    TmpValue:=TmpValue*2;
    if IsTaskSelected('po\PhysX') then Comps1:=Comps1+TmpValue;     //компонент 2
    TmpValue:=TmpValue*2;
    if IsTaskSelected('po\DX9') then Comps1:=Comps1+TmpValue;    //компонент 3

.........................................
        if not ISExec          ( 1, 0, 0, ExpandConstant('{src}\Redist\DirectX.exe'), '', ExpandConstant('{src}'),'Microsoft DirectX',false) then break;

        if not ISExec          ( 2, 0, 0, ExpandConstant('{src}\Redist\PhysX.exe'), '', ExpandConstant('{src}'),'Nvidia PhysX',false) then break;

        if not ISExec          ( 3, 0, 0, ExpandConstant('{src}\Redist\VCR_Ext_x86_x64.exe'), '/S', ExpandConstant('{src}\Redist'), 'Microsoft Visual C++',false) then break;

третий вопрос про ISDone »

WizardForm.Caption:='Твоя надпись'; - найди эту строчку и забей там то, что тебе нужно.

[murlakatamenka]

как красиво это реализовать? Через сам ISDone. Тогда и по будет на прогрессбаре плавно отображаться, и отмена останется. »

а это как?

кажется, понял, через ISExec + связь с компонентами (как и в случае установки, например, разных языков озвучки).

[valyok666]

Лександер, можно узнать насчёт isPicture есть ли новая версия???

[Sollar]

как обратиться к массиву #org[i] из кода?

нужно что-то типа

function GetWizardSetupType (Default:String):Integer;
begin
for i := 0 to {#CountSection} do
begin
if ('{#org[i]}' = WizardSetupType(false)) then
msgbox(inttostr(i),mbInformation, MB_OK);
Result:= i;

end
end;

как передать индекс переменной в коде?

[Sotonisto]

Возможно, просьба прозвучит нагло, но кто может с этого скрипта Catalyst (его выкладывали ранее):
а) Убрать слайдшоу и распаковку FreeArc, 7zip и пр. (делаю инсталл для себя, так что эти функции мне не интересны)
б) Добавить прогресс бар (мождо даже стандартный)
Сколько бы раз я своими кривыми ручонками не лез в скрип - результат всегда один... х_х
Прошу помочь и заранее благодарен.
P.S.: Знаю, что обычно все наоборот просят добавить FA и т.д., но меня больше привлекает визуальная сторона инсталла, нежели функциональность

[murlakatamenka]

Sotonisto, в этом скрипте слайдшоу идёт на этапе ssInstall с помощью ISSlideshow, его убрать легко
стандарнтый прорессбар скрывается и вместо него создаётся новый (вместе с другими кастомными контролами; смотрите функции CreateControls и HideControls)
распаковка идёт через ISDone, посмотрите скрипт, который с ним идёт и легко уберёте всё исдонное из скрипта.
и от фриарка грех отказываться, и жмёт хорошо, и репаки удобнее делать: дизайн инсталла отдельно, упаковка отдельно. легче тестировать и компилить только сетапку надо. простой пример. сделали инсталлятор, всё готово и проверено, скомпилили, а потом посмотрели, что, например, текст неправильный (например Battlefeild 3, а не Battlefield 3 ). казалось бы мелочь, но заново компилить 20 минут.

P.S.: Знаю, что обычно все наоборот просят добавить FA и т.д., но меня больше привлекает визуальная сторона инсталла, нежели функциональность »

isdone никак визуальную сторону не ухудшает ведь, а делать удобнее.
---------------
убрал слайдшоу и всё, что с ним связано (т.е. dll и слайды) - http://rghost.ru/26167341

[6apakyda]

Здраствуйте
Меня попросили сделать установщик:
Запускаем установку >появляется окно где предлагается поменять стартовую страницу > после чего запускается установка exe файла (именно файла а не набора файлов) и всё.
Очень нужно, помогите пожалуйста, я в этом ничего не понимаю и готов оплатить труды за написание такого кода.
Заранее спасибо

[murlakatamenka]

Лександер, только сейчас заметил "читать дальше" с кодом
-------------------------------------------------------------------------------

появляется окно где предлагается поменять стартовую страницу

домашнюю страницу браузера, это имеется ввиду?
типа появляется окошко с надписью "Домашняя страница будет изменена на "адрес_новой_homepage"" с кнопками OK и Cancel и вне зависимости от выбора пользователя начинается установка программы.
---------------------------------------
для смены homepage IE (при компиляции [_Code] заменить на [code])

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

Код:

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{12C06398-3F34-4DDE-BD66-6D263C0FC8FA}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "C:\Program Files (x86)\Inno Ultra\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, "&", "&&")}}"; Flags: nowait postinstall skipifsilent

[_Code]
procedure InitializeWizard();
begin
  if MsgBox('Сменить домашнюю страницу на {#MyAppURL} ?',mbconfirmation, mb_yesno) = IDYES then
    begin
      RegWriteStringValue(HKEY_CURRENT_USER, 'SOFTWARE\Microsoft\Internet Explorer\Main',
    'Start Page', ExpandConstant('{#MyAppURL}'));
    end;
end;

[6apakyda]

Да, всё верно, домашнюю страницу поменять, но с предложением (галочка) Поменять стартовую страницу на www_ru?
Спасибо за код. Только вот хотелось бы чтобы без предложения запустить программу, а чтобы сразу после распаковки файла, exe сразу запускалась. Вечером продолжу танцевать с бубном
-------------------
С помощью команды DisableFinishedPage=yes убрал последнее окно, после чего запускается exe без запроса.
Галочки с предложением заменить страницу нету, но и страница не меняется =(
И ещё я не пойму, почему когда я заменил DefaultDirName={pf}\{#MyAppName} на .....={tmp}\{#MyAppName} ничего не изменилось
-------------------
Поставил DefaultDirName=no и поменял в разделе [Files] DestDir {app} на DestDir {tmp} и также в [Run], заработало.
С заменой стартовой страницы "разобрался", изначально пропустил фразу

(при компиляции [_Code] заменить на [code]) »

Спасибо огромное за помощь! На самом деле я понял что по чуть чуть и можно многому научиться, главное читать по больше

[murlakatamenka]

6apakyda, а чего в {tmp} прога ставится?

С помощью команды DisableFinishedPage=yes убрал последнее окно, после чего запускается exe без запроса. »

дурной тон это, обязательно надо спрашивать у пользователя, нужно ли запускать программу после установки или нет.
вот с галочкой код (ещё раз повторю, он только для Internet Explorer)

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

Код:

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{12C06398-3F34-4DDE-BD66-6D263C0FC8FA}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}";
Name: "homepage"; Description: "Ñäåëàòü {#MyAppURL} ñòàðòîâîé ñòðàíèöåé"; GroupDescription: "{cm:AdditionalIcons}";

[Files]
Source: "C:\Program Files (x86)\Inno Ultra\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

[Registry]
Root: HKCU; Subkey: "SOFTWARE\Microsoft\Internet Explorer\Main"; ValueName: "Start Page"; ValueType: String; ValueData: {#MyAppName}; Tasks: "homepage"; Flags: noerror

[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, "&", "&&")}}"; Flags: nowait postinstall skipifsilent

вот рекомендую почитать - Inno Setup (Инструкция по Inno Setup - Инструкция по Inno Setup в формате PDF для начинающих от sjwrec.)