[cliff99]

вот тебе пример простой распаковки архива FreeArc в зависимости от выбранных компонентов на этапе ssPostInstall с отображением прогресса распаковки я просто упростил и немного изменил код из шапки. Надеюсь это то что тебе нужно »

Спасибо за помощь огромное.



Johny777,
Я похоже рано обрадовался. Я сколько мучаюсь, но так и не могу подключить свой arc архив к твоим примерам.
Он мои архивы просто не подхватывает.
Мне нужно, чтобы при выборе компонента main/ Распаковывался соответственно архив main.arc лежащий в корне.
\\\
setup.exe
main.arc -------
data.bin

[Johny777]

cliff99,

Он мои архивы просто не подхватывает. »

не проблема, используй: AnsiToUtf8(AddBackslash(ExpandConstant('{src}')) + 'main.arc')
константа {src} - путь к "рядом с экзешником инсталла"

Спасибо за помощь огромное. »

для этого есть кнопка "Полезное сообщение" под каждым сообщением

[GoshaPolo]

Вот решил поделится своим скриптом,все кто хочет можете качать,скрипт без каких либо наворотов с подсказками в коде для новичков »

Спасибо, интересно посмотреть готовое решение. Только вот вопрос совсем уж новичка, который никогда не сталкивался с распаковкой архивов. Как добавить архив для распаковки?

[Gnom_aka_Lexander]

За место процедуры: CancelButtonOnClick вставляешь это: »

Если открыть справку, которая идет к библиотеке, то там про функцию SuspendProc тоже написано. Она как раз-таки приостанавливает текущий поток распаковки или выполнения программы. Все что нужно в вашем примере - перенести ее в самое начало. Ну и переменную CurPage обязательно задействовать, во избежании ошибки. Тоесть как-то так это будет:

Код:

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  if CurPageID = wpInstalling then
  begin
    Cancel:=False;
    Confirm:=False;
    SuspendProc;
    if ExitSetupMsgBox then ISDoneCancel:=1;
    ResumeProc;
  end;
end;

Cancel:=True; в данном случае так делать нельзя, ибо при отмене должно выполнится удаление того, что успело распаковаться. А этого не произойдет, если провести полную отмену.

[insombia]

GoshaPolo в справке к исдону все есть но вот пример,в файле isdone.iss найди строку
if not ISArcExtract ( 0, 00, ExpandConstant('{src}\data.arc'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
выделеное жирным это файл который нужно распаковать

Gnom_aka_Lexander не мог бы ты пожалуйста в тот скрипт что я выложил это вставить?

[Gnom_aka_Lexander]

insombia, ты и сам это можешь. удалить все,что связано с кастомной кнопкой отмены и вставить этот код отмены. ничего сложного, я принципиально в чужих скриптах не ковыряюсь, с некоторого времени, уж больно это вас расслабляет: "а, там есть тот, кто за меня сделает все, можно самому и не париться с этой ересью типа справок, шапки форума и гугла".
P.S. ради интереса глянул. Действительно, разобраться там -целое дело. В таком точно ковыряться не буду.

[Gnom_aka_Lexander]

используй встроенную функцию IsWin64. она, собственно, именно для того и предназначена, чтоб проверять битность системы.

[alert30]

habib2302, как вариант:

Код:

[Code]
begin
  if Is64BitInstallMode then
    MsgBox('Installing in 64-bit mode', mbInformation, MB_OK)
  else
    MsgBox('Installing in 32-bit mode', mbInformation, MB_OK);
end;

[Gnom_aka_Lexander]

alert30, Ты неправ. если заглянешь в справку,то увидишь, что Is64BitInstallMode определяет именно тип установки а не битность системы. Битность системы определяет только IsWin64.

[Gnom_aka_Lexander]

habib2302, смотря что тебе нужно. хотя в обоих секциях-и в [Run] и в [Files] есть параметр Check. Соответственно,то что на х32 нужно,там ставишь Check: not IsWin64,где нужно х64,там Check: IsWin64 Логично-же? в коде,соответственно -
if IsWin64 then
// тут действие,если х64 система
else
// тут действие если х32 система