[Iska]

Может. Что Вы подразумеваете под «нужной папкой»?

[vk_k14m@vk]

А меня уже принято игнорить?

[R.i.m.s.k.y.]

Значит к "var res:integer; file, path, " нужно написать что-то подобное для параметров? »

нет, это переменные
первое - целочисленное, используется для кода ошибок, второе - строковое, задаешь пути в них
Что не работает то?

[vk_k14m@vk]

нет, это переменные первое - целочисленное, используется для кода ошибок, второе - строковое, задаешь пути в них Что не работает то? »

Вот опять меня буд-то не понимают. Перечитайте еще раз мое сообщение. Медленно, не спеша. Если не поняли вопрос, перечитайте еще раз.

[Nordek]

Как можно запускать приложение через секцию [Сode] с параметрами. »

Вот опять меня буд-то не понимают. »

Пример

Код:

[Code]
var
  IS_CP: TWizardPage;
  B_1: TNewButton;
  B_2: TNewButton;
  ResultCode: Integer;

procedure B_1Click(Sender: TObject);
begin
  Exec(ExpandConstant('{pf}\7-Zip\7zFM.exe'), '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
end;

procedure B_2Click(Sender: TObject);
begin
  Exec(ExpandConstant('{pf}\7-Zip\7zG.exe'), ExpandConstant('a -t7z -m0=LZMA2 -mmt=on -mx9 -md=64m -mfb=64 -ms=4g -mqs=on -bb0 -sccUTF-8 "-w{tmp}" "{userdesktop}\Default.7z" "{localappdata}\Google\Chrome\User Data\Default"'), '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
end;

procedure app_7z;
begin
  IS_CP := CreateCustomPage(wpWelcome, 'Caption', 'Description');

  B_1 := TNewButton.Create(WizardForm);
  with B_1 do
  begin
    Parent := IS_CP.Surface;
    SetBounds(ScaleX(16), ScaleY(16), ScaleX(100), ScaleY(25));
    Caption := 'Run 7-Zip';
    OnClick := @B_1Click;
  end;

  B_2 := TNewButton.Create(WizardForm);
  with B_2 do
  begin
    Parent := IS_CP.Surface;
    SetBounds(ScaleX(16), ScaleY(48), ScaleX(100), ScaleY(25));
    Caption := 'Create Backup';
    OnClick := @B_2Click;
  end;
end;

procedure InitializeWizard();
begin
  app_7z;
end;

Вот опять меня буд-то не понимают. »

Прикинь, в справке можно найти!?

[ENERGES]

как сделать такое окно https://s8.hostingkartinok.com/uploa...531f517572.png
сам скрипт http://rgho.st/6HNm67hXF

[TheLeon]

Здравствуйте ещё раз, уважаемые администрация и пользователи OSZone.net. У меня появился опять вопрос, но так вот: как при установке заменить в файле(формата .img) какие-либо файлы(формата .txd и .dff), а файлы, которые заменяют, перенести в, созданную установщиком, папку-бэкап?

[El Sanchez]

как сделать такое окно »

web_form, GetOpenFileName

как при установке заменить в файле(формата .img) какие-либо файлы(формата .txd и .dff), а файлы, которые заменяют, перенести в, созданную установщиком, папку-бэкап? »

TheLeon, для начала нужно найти консольную утилиту для работы с img-файлами.

[ENERGES]

El Sanchez, а как это прописать в скрипте?

[El Sanchez]

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

web_form, место в скрипте найдете по комментарию

Скрытый текст

Код:

// далее находятся закомментированые примеры различных функций распаковки (чтобы каждый раз не лазить в справку за примерами)
FileName := ExpandConstant('{src}\data1.bin');
if not FileExists(FileName) then
  GetOpenFileName('Открытие', FileName, ExpandConstant('{src}'), 'Arc files (data*.bin)|*.bin|All Files|*.*', 'bin');
if not ISARCExtract(0, 100, FileName, ExpandConstant('{app}'), '', False, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then Break;