[El Sanchez]

а другая часть просто по пути Е/Приложение »

Irenis, ну и напишите для второй папки в секции Files в директиве DestDir:

Код:

DestDir: {drive:{app}}\Приложение

[habib2302]

как сделать в случае отмены установки исполняемого файла

Код:

[Run]
Filename: {sys}\msiexec.exe; Parameters: "/i {tmp}\SkypeSetup_7.6.0.103.msi /qb ALL_USERS=1 INSTALLDIR={app}";

не запускался следующий исполняемый файл по списку

Код:

[Run]
Filename: {win}\regedit.exe; Parameters: /s {tmp}\Reg-file.reg;

и как сделать проверку сумм файлов

Я как понимаю никому до меня нет дела!?

[nik1967]

и как сделать проверку сумм файлов »

Пример

И не стоит писать жирным шрифтом - кто в состоянии помочь - поможет. Не стоит думать, что кроме твоих проблем ни у кого нет других дел.

[El Sanchez]

как сделать в случае отмены установки исполняемого файла не запускался следующий исполняемый файл по списку »

habib2302,

• Да никак, нужно проверять код возврата и по результатам проверки действовать дальше. Во время отработки секции Run код возврата не получить, он лишь пишется в Debug Output. А вот если запускать из секции Code при помощи Exec, то код возврата доступен.
• Про закавычивание путей в Parameters не забываем, {tmp} и {app} еще как могут содержать whitespace-символы.
• Зачем вообще отмену производить во время установки? Выбор ставить/не ставить нужно раньше делать, до нажатия на Установить, а не когда уже поздно.

[habib2302]

El Sanchez, просто в случае отмены установки допустим msi'шного инсталлятора (который запакован в мой инстал) из-за ошибки, то мой инстал продолжит установку

[AlexM22204]

Здравствуйте! Решил перепаковать для себя VMware Workstation 11.1.2

Вот скрипт

[Setup]
AppName=VMware Workstation
AppVersion=11.1.2
AppPublisher=(сборка)
VersionInfoVersion=11.1.2
CreateAppDir=no
OutputBaseFilename=Setup_VMware_11
SetupIconFile={app}\ws.ico
SolidCompression=yes
WizardImageFile=embedded\WizardImage.bmp
WizardSmallImageFile=embedded\WizardSmallImage.bmp
Uninstallable=no

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

[Files]
Source: "{app}\*"; DestDir: "{tmp}\vmware"; Flags: ignoreversion recursesubdirs createallsubdirs

[Tasks]
Name: "rus"; Description: "{cm:SetupLangPack}"; GroupDescription: "{cm:OtherOptions}"; Flags: checkablealone; MinVersion: 0.0,5.0
Name: "trayicon"; Description: "{cm:DelTrayIcon}"; GroupDescription: "{cm:OtherOptions}"; Flags: checkablealone; MinVersion: 0.0,5.0

[Run]
Filename: "{tmp}\vmware\uninstall.exe"; Parameters: "/T ""{tmp}\vmware\install"" /v /s /S ""{tmp}\vmware"""
Filename: "TASKKILL"; Parameters: "/F /IM ""vmware-tray.exe"""; Flags: runhidden; MinVersion: 0.0,5.0; Tasks: trayicon
Filename: "{tmp}\vmware\VMware-ru-ru.exe"; Parameters: "/s"; MinVersion: 0.0,5.0; Tasks: rus

[Registry]
Root: "HKCU"; Subkey: "Software\VMware, Inc.\VMware Tray"; ValueType: dword; ValueName: "TrayBehavior"; ValueData: "$00000002"; Flags: uninsdeletevalue uninsdeletekeyifempty; Tasks: trayicon

[CustomMessages]
russian.DelTrayIcon=Отключить отображение иконки в трее
russian.SetupLangPack=Установить русский языковой пакет
russian.OtherOptions=Дополнительные параметры:

[code]
///Удалить кнопки свернуть, развернуть из окна инсталлятора
const
GWL_STYLE = -16;
WS_MINIMIZEBOX = $20000;
WS_MAXIMIZEBOX = $10000;

function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall';

procedure initializeWizard();
begin
SetWindowLong(WizardForm.handle, GWL_STYLE, GetWindowLong(WizardForm.handle, GWL_STYLE)and(not WS_MINIMIZEBOX)and(not WS_MAXIMIZEBOX));
end;

Но одно но... Программа только для 64-bit систем, как организовать перед запуском инсталятора проверку, если система 64-bit - то продолжается установка, если система 32-bit - появляется окно с сообщением о несоответствии системы и предложение прекратить установку.

[Dodakaedr]

AlexM22204, в справке про секцию [setup] прочтите, там есть ответ на ваш вопрос. По поводу битности системы.

[kotyarko@fb]

Программа только для 64-bit систем, как организовать перед запуском инсталятора проверку »

Самый простой способ:

Код:

[Setup]
ArchitecturesAllowed=x64

[Sotonisto]

Доброго времени суток.
Есть инсталлятор (с использованием ботвы), у которого два "фоновых" изображения:

Код:

img1:=ImgLoad(WizardForm.Handle, ExpandConstant('img1.jpg'), ScaleX(0), ScaleY(0), WizardForm.ClientWidth, WizardForm.ClientHeight, True, True);
img2:=ImgLoad(WizardForm.Handle, ExpandConstant('img2.jpg'), ScaleX(0), ScaleY(0), WizardForm.ClientWidth, WizardForm.ClientHeight, True, True);

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

Код:

procedure TestBtnHide(hBtn:HWND);
begin
  TestLabel.Show;
  TestLabel.Caption:= ExpandConstant('{cm:TestLabel2}');
  ImgSetVisibility(img2, false);
end;

procedure TestBtnShow(hBtn:HWND);
begin
  TestLabel.Show;
  TestLabel.Caption:= ExpandConstant('{cm:TestLabel1}');
  ImgSetVisibility(img2, true);
end;

В итоге: с текстом всё отлично, но вот изображение никак не реагирует. В чем ошибка, или нужно использовать другую функцию?

[kotyarko@fb]

В итоге: с текстом всё отлично, но вот изображение никак не реагирует. »

Пробуйте так:

Код:

procedure TestBtnHide(hBtn:HWND);
begin
  TestLabel.Show;
  TestLabel.Caption:= ExpandConstant('{cm:TestLabel2}');
  ImgSetVisibility(img2, false);
  ImgApplyChanges(WizardForm.Handle);
end;

procedure TestBtnShow(hBtn:HWND);
begin
  TestLabel.Show;
  TestLabel.Caption:= ExpandConstant('{cm:TestLabel1}');
  ImgSetVisibility(img2, true);
  ImgApplyChanges(WizardForm.Handle);
end;