[A1EXXX]

Я использую скрипт FreeArc от Bulat_Ziganshin для распаковки. В архиве есть обработанные precomp'ом файлы. Возврат из *.pcf в оригинал я задаю через командную строку в секции [Run], но вот беда, исталлятор хочет выполнить преобразование до распаковки архива, что невозможно. Кто знает как это исправить? Искал флаг, который мог бы задать запуск из Run'a после всего-всего, но так и не нашёл.....

[BlackSelf]

A1EXXX, в процедуре CurStepChanged на шаге ssPostInstall после распаковки архивов запусти precomp с нужными параметрами через exec.

[zl0ybot]

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

[Files]
Source: 1.bmp; DestDir: {tmp}; Flags: dontcopy
Source: 2.bmp; DestDir: {tmp}; Flags: dontcopy
Source: 3.bmp; DestDir: {tmp}; Flags: dontcopy
Source: 4.bmp; DestDir: {tmp}; Flags: dontcopy
Source: 5.bmp; DestDir: {tmp}; Flags: dontcopy
Source: 6.bmp; DestDir: {tmp}; Flags: dontcopy
[code]
ExtractTemporaryFile('1.bmp');
ExtractTemporaryFile('2.bmp');
ExtractTemporaryFile('3.bmp');
ExtractTemporaryFile('4.bmp');
ExtractTemporaryFile('5.bmp');
ExtractTemporaryFile('6.bmp');

BmpFile:= TBitmapImage.Create(WizardForm);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\1.bmp'));
BmpFile.SetBounds(0, 0, 497, 360);
BmpFile.Stretch:= true
BmpFile.Parent:= WizardForm.WelcomePage;

BmpFile:= TBitmapImage.Create(WizardForm);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\2.bmp'));
BmpFile.SetBounds(0, 0, 497, 360);
BmpFile.Stretch:= true
BmpFile.Parent:= WizardForm.LicensePage;

BmpFile:= TBitmapImage.Create(SystemRequirementPage);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\3.bmp'));
BmpFile.SetBounds(0, 0, 497, 360);
BmpFile.Stretch:= true
BmpFile.Parent:= SystemRequirementPage.Surface;

BmpFile:= TBitmapImage.Create(WizardForm);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\4.bmp'));
BmpFile.SetBounds(0, 0, 497, 360);
BmpFile.Stretch:= true
BmpFile.Parent:= WizardForm.InfoBeforePage;

BmpFile:= TBitmapImage.Create(WizardForm);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\4.bmp'));
BmpFile.SetBounds(0, 0, 497, 360);
BmpFile.Stretch:= true
BmpFile.Parent:= WizardForm.SelectDirPage;
BmpFile:= TBitmapImage.Create(WizardForm);

BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\6.bmp'));
BmpFile.SetBounds(0, 0, 497, 360);
BmpFile.Stretch:= true
BmpFile.Parent:= WizardForm.SelectProgramGroupPage;

сделайте чтобы он работал

[Berline]

Вопрос может уже звучал: как добавить на страницу выбора компонентов 2 галочки - выделить все - снять все отметки?

И

Доброго времени суток,кто нибудь знает,как реализовать это http://clip2net.com/page/m0/1799727 http://clip2net.com/page/m0/1799737 http://clip2net.com/page/m0/1799740 ??? »

Подниму вопрос - мне интересно из этого - отмеченные сверху "вкладки" этапы установки...

[zl0ybot]

Berline это все фотошоп ....

[A1EXXX]

BlackSelf, можешь наглядно изобразить на примере любого файла, а то не совсем пойму какие именно параметры нужно задать... И чтоб появился StasusMsg, мол подождите и т.д.

[BlackSelf]

A1EXXX, код на работоспособность не проверялся, но должно быть примерно так:

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

Код:

...

[Files]
Source: precomp04.exe; DestDir: {app}; Flags: ignoreversion
Source: packjpg_dll.dll; DestDir: {app}; Flags: ignoreversion

[_code]
...

Var
  ProcessLabel: TLabel;

...

Procedure InitializeWizard();
begin
  ProcessLabel := TLabel.Create(WizardForm);
  with ProcessLabel do begin
    Left := ProgressBar.Left;
    Top := ProgressBar.Top + ProgressBar.Height + ScaleX(5); //положение под себя отредактируй
    AutoSize:= true;
    Caption:= 'Рекомпрессия файлов игры...'
    Parent := WizardForm.InstallingPage;
    Transparent:= True;
    Hide;
  end;
end;

...

procedure CurStepChanged(CurStep: TSetupStep);
var
res: Integer;
begin
    if CurStep = ssInstall then begin
        StartInstall:= GetTickCount    
        WndHookID:= SetWindowsHookEx(WH_CALLWNDPROC, WrapCWPSTRUCTProc(@OnWndHook, 3), 0, GetCurrentThreadID); 
        TimerID:= SetTimer(0, 0, 500, WrapTimerProc(@MyTimerProc, 4));   
        if not {#isFalse(SetupSetting("Uninstallable"))} then Status.count:= -1;
    end;
    if CurStep = ssPostInstall then
    begin
        StartInstall:= GetTickCount   
        UnPackError:= UnPack('{#Archives}')
        if UnPackError <> 0 then begin // Error occured, uninstall it then
            if not {#isFalse(SetupSetting("Uninstallable"))} then 
                Exec(ExpandConstant('{uninstallexe}'), '/SILENT','', sw_Hide, ewWaitUntilTerminated, n);   
            WizardForm.caption:= SetupMessage(msgErrorTitle) +' - '+ cm('ArcBreak')
            SetTaskBarTitle(SetupMessage(msgErrorTitle))
        end else
            SetTaskBarTitle(SetupMessage(msgSetupAppTitle));
ProcessLabel.show
Exec(ExpandConstant('{app}\precomp04.exe'), ' -r data.pcf ', '', SW_HIDE, ewWaitUntilTerminated, res); 
DeleteFile(ExpandConstant('{app}\data.pcf'));
    end;
    if CurStep = ssDone then
DeleteFile(ExpandConstant('{app}\precomp04.exe'));
DeleteFile(ExpandConstant('{app}\packjpg_dll.dll'));
end;

...

[A1EXXX]

BlackSelf, спасибо большое, но другом форуме мне подкинули альтернативу попроще: просто заменить ssPostInstall на ssInstall - проверил, работает! Ну всё равно спасибо!!!

P.S. Никто не сталкивался с такой фигнёй при распаковке, когда, например, DefaultDirName={pf}\Название компании\Название игры\ такой, а я хочу установить в D:\Games\Название игры\ и распаковка сначала начинается во временный файл $$arcpackedfile$$.tmp возле setup.exe и лишь потом в нужную папку (наверно, до конца ждать не стал), а не сразу в неё!!! Тупо как-то! Можно это поправить, а то устанавливать по стандартно указанному пути мало кто станет.....

[DemonAk]

Тоже заменил на ssInstall, но теперь проблемка не распаковывает архивы с прекомпом т.к файлы неоходимые для распаковки еще не скопировались на диск. Как бы сделать что бы вот это:
#ifdef precomp
Source: {#precomp}; DestDir: {sys}; Flags: deleteafterinstall
Source: {#GetEnv("ProgramFiles")}\FreeArc\bin\arc.ini; DestDir: {sd}; Flags: deleteafterinstall
#endif

скопировалось в назначенные каталоги как только запустил инсталятор, посоветовали вот это но он копирует файлы в темп =\
function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('precomp04.exe');
ExtractTemporaryFile('packjpg_dll.dll');
ExtractTemporaryFile('arc.ini');
end;

[A1EXXX]

DemonAk, я precomp не так использую. Прекомпрессированные файлы запаковую вместе с остальными файлами игры FreeArc'ом (ну и плюс в одну папку с ними ложу precomp.exe и packjpg_dll.dll), а замет задаю рекомпрессию через командную строку в секции [Run], вот пример одного файла:

[Run]
Filename: {app}\precomp.exe; Parameters: "-o""mp_vacant.ff"" -r ""mp_vacant.pcf"""; WorkingDir: {app}; StatusMsg: Выполняется рекомпрессия файлов, подождите 10-15 минут...; Flags: runhidden runasoriginaluser => рекомпресиия
Filename: cmd.exe; WorkingDir: {app}; Parameters: /C del /F /Q mp_vacant.pcf; Flags: runhidden runasoriginaluser => удалить *.pcf файл
Filename: cmd.exe; WorkingDir: {app}; Parameters: /C del /F /Q packjpg_dll.dll precomp.exe; Flags: runhidden runasoriginaluser => удалить файлы precomp'а

С такой трактовкой ssInstall у меня работает

P.S. Проценты на месте )))