[duxa]

Wilddeer, для распаковки 7зип' а можешь воспользоваться is7z или isdone или через батник. А вот про pak подробнее.
В некоторых играх (например: SW the forse unleashed 2) pak - это все тот же 7зип.

[Wilddeer]

duxa

В Crysis 2
Там .pak открывается через WinRar или 7zip

Можно написать батник 7zip но я не умею

[nik1967]

Wilddeer,
для восстановления (запаковки в *.pak) я использую ExecAndWait.iss + 7za.exe

[Wilddeer]

nik1967

Можешь скрипт запаковки написать?

[nik1967]

Wilddeer,

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

Код:

#include "ExecAndWait.iss"

procedure Cancel7zBtnOnClick(Sender: TObject);
var
tmp: Integer;
begin
  _QUIT:= True;
    WizardForm.StatusLabel.Caption:='Откат установки...';
     WizardForm.ProgressGauge.Hide;
     WizardForm.FilenameLabel.Hide;
    if MsgBox(SetupMessage(msgExitSetupMessage), mbConfirmation, MB_YESNO) = IDYES then
  Exec(ExpandConstant('{uninstallexe}'), '/SILENT','', sw_Hide, ewWaitUntilTerminated, tmp);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
  begin
      WizardForm.CancelButton.OnClick:=@Cancel7zBtnOnClick;
      WizardForm.StatusLabel.Caption:='Восстановление игровых архивов...';
      WizardForm.FilenameLabel.Caption:='Это может занять 5-10 мин... ждите';
      ExecAndWait(ExpandConstant('{app}\Run\data\7za.exe'), 'a -tzip maps.pak .\maps\*', ExpandConstant('{app}\Run\data'), SW_HIDE, True);
      DelTree(ExpandConstant('{app}\Run\data\maps'), True, True, True);
    DeleteFile(ExpandConstant('{app}\Run\data\7za.exe'));
  end;
end;

[my-94]

Помогите приделать к этому скрипту

http://rghost.ru/4468505

вот это

Код:

[Files] 
Source: C:\BitmapImage2.bmp; DestDir: {tmp}; Flags: dontcopy 

Code] 
procedure InitializeWizard(); 
var b:string; 
begin 
ExtractTemporaryFile('BitmapImage2.bmp') 
b:=ExpandConstant('{tmp}\BitmapImage2.bmp') 
with WizardForm do 
begin 
WizardBitmapImage.Width:=WizardForm.ClientWidth; 
WelcomeLabel1.Visible:=False; 
WelcomeLabel2.Visible:=False; 
WizardBitmapImage2.Bitmap.LoadFromFile(b); 
WizardBitmapImage2.Width:=WizardForm.ClientWidth; 
FinishedLabel.Visible:=False; 
FinishedHeadingLabel.Visible:=False; 
end; 
end;

чтоб получилось так:

[actavir]

Народ выручите плиз, у меня при распаковке (используется IsDOne) проценты зашкаливают а прогресс бар показывает только первое действие, а дальше остаётся полным. Я уже задавал этот вопрос но тот способ не сработал, подскажите кто знает????

[nik1967]

actavir,
Ну написано же в хэлпе к ISDone:

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

При автоматической расстановке необходим тестовый проход для определения времени выполнения каждой операции относительно других.
Для включения данного режима необходимо заполнить вторые значения всех функций извлечения архивов нулями.
Краткая инструкция:
а) первым делом убедитесь, что в начале скрипта закомментирована строка

#define records
(т.е. необходимо поставить точку с запятой в начале этой строки);
б) компилим проект и запускаем на установку. Это и будет нашим тестовым проходом. Все операции должны дойти до конца и завершиться удачно. Прогрессбар будет зашкаливать и все компоненты будут извлечены вне зависимости от того выбраны они, или нет. Все так и должно быть!
в) после тестового прогона в указанной папке создастся файл records.inf (имя и путь назначается в процедуре инициализации. О ней см. "подробное описание функций" ниже), его необходимо добавить в проект, раскомметировав, или добавив в начале скрипта строку:

#define records

Так же стоит отметить, что если сам скрипт находится в папке отличной от той, в которую компилится проект (например в скрипте NFS:Undercover откомпиленный файл сохраняется в Output\setup.exe), то records.inf создастся в папке с setup.exe и его необходимо будет перенести непосредственно к скрипту, или же подправить в секции [Files] его истинное расположение, например:

#ifdef records
Source: Output\records.inf; DestDir: {tmp}; Flags: dontcopy
#endif
г) снова откомпилить проект.
После этого инсталлер готов к употреблению. Приятного аппетита
При запуске процесс выполнения операций будет равномерно и корректно отображаться на прогрессбаре.

[Vista-w]

nik1967,
Привет, помоги пожалуйста решить проблему?
вот

Как передвинуть все это добро в центр?
И как изменить размер SelectDirPage ?

[actavir]

nik1967, спасибо огромное разобрался наконец то)))
А ещё вопрос почему при отмене, не происходит деинсталляция??? Как исправить?