[Kutsenko Andriy]

CreateInputDirPage надо зделать под Cancel Page наверное... »

А как это сделать? У меня просто знаний на такое нехватит(, вот я к вам и обращаюсь.

насколько понял это надо дополнительную страницу самому нарисовать? »

Именно это мне и нада!

[Serega]

Здравствуйте, исправил скрипт распаковки FreeArc архивов...
Теперь используются внешние архивы, без копирования в папку приложения.

[sanya007]

Serega,

Я не много по другому создал батник, и не пришлось ничего прописывать в procedure CurStepChanged

Код:

procedure BatRunArc(s: string);
var
  bat, a, b, str: string;
  res: Integer;
begin
  bat := ExpandConstant('{tmp}\RunArc.bat');           /// путь откуда запускается батник
  a:=ExpandConstant('{src}')      ////   Назначаем путь для переменной  "A"
  b:=ExpandConstant('{app}')            ////   Назначаем путь для переменной  "B"
  str := str + '@echo off' + #10#13 +
         str + 'Arc x "' + a + '" -y -s2 -dp"' + b + '" >in_log' + #10#13 +    /// Распаковка из переменной "A" в переменную "B"
         str + 'del ' + '"' + bat + '"';   ////  Батник убивает сам себя
  SaveStringToFile(bat, str, False);
  Exec(bat, '', '', SW_HIDE, ewNoWait, res);   ////  Прячем выполнение батника от "Посторонних глаз"
end;

[Serega]

Я не много по другому создал батник »

здесь уж на любителя...
Самое главное - результат, а пути достижения могут быть разные...

[DemonAk]

Здравствуйте, исправил скрипт распаковки FreeArc архивов... Теперь используются внешние архивы, без копирования в папку приложения. »

Огромная благодарность, все отлично работает

[Krekerpro]

А что надо в батнике прописать?

[Serega]

А что надо в батнике прописать? »

Там уже всё прописано, а менять нужно здесь:

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

Код:

...................................
procedure CurStepChanged(CurStep: TSetupStep);
begin
  If CurStep = ssPostInstall then begin
    patch_Arc:= ExpandConstant('"{src}\Arc.exe"'); // расположение Arc.exe
    UnpackArc(ExpandConstant('"{src}\Project.arc"'), // расположение архива
      ExpandConstant('"{app}"')); // место распаковки архива
  end;
end;
.................................

[Krekerpro]

Serega,
При попытки компиляции выявляет ошибку: http://clip2net.com/clip/m0/1244493206-clip-47kb.png

[Serega]

При попытки компиляции выявляет ошибку »

Скрипт покажите...

[Krekerpro]

Serega,

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

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=D:\123
Compression=lzma/ultra
SolidCompression=yes
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[Files]

Source: C:\Program Files\FreeArc\bin\Arc.exe; DestDir: {app}; Flags: ignoreversion
Source: C:\DirectX.arc; DestDir: {app}; Afterinstall: UnpackArc('DirectX.arc'); Flags: ignoreversion skipifsourcedoesntexist



[UninstallDelete]
Name: {app}; Type: filesandordirs

[code]
var
ProgressLabel: TLabel;
ProgressBar: TNewProgressBar;
patch_Arc: string;

procedure ParserLog;
var
in_File, out_File, S, S1, S2: string;
i, j, n: Integer;
begin
in_File := ExpandConstant('{tmp}\in_log');
out_File := ExpandConstant('{tmp}\out_log');
ProgressBar.Show;
ProgressLabel.Show;
// если файла нет, то подождём...
if FileExists(in_File) = False then
repeat
Application.ProcessMessages; // необходима расширенная версия от Restools
n:= n + 1;
Sleep(500); // ждём полсекунды и повторяем цикл
until (FileExists(in_File) = True) or (n = 10); // максимально повторяем цикл 10 раз, что составит 5 секунд...
// если всё же файла нет, то выходим
if FileExists(in_File) = False then Exit;
// если файл существует, то обробатываем его
repeat
FileCopy(in_File, out_File, False); // копирум файл, чтоб можно было открыть out_File для чтения
LoadStringFromFile(out_File, S); // если попытаться загрузить in_File, то ничего не выйдет, пока в него пишет Arc.exe...
Application.ProcessMessages; // необходима расширенная версия от Restools
if Pos('%', S) > 0 then begin
S1:= Copy(S, Length(S) - 4, (Length(S) - 2) - (Length(S) - 4));
S2:= Copy(S, Length(S) - 4, Length(S) - (Length(S) - 5));
StringChange(S1, ' ', ''); // удаляем пробелы
for i:= 0 to 100 do if S1 = IntToStr(i) then begin
j:= StrToInt(S1);
ProgressBar.Position := j;
StringChange(S2, ' ', '');
ProgressLabel.Caption:= S2;
Application.ProcessMessages; // необходима расширенная версия от Restools
end;
end;
until (Pos('Extracted', S) or Pos('ERROR', S)) > 0;
end;

procedure RunArc(s, patch: string);
var
bat, str: string;
res: Integer;
begin
bat := ExpandConstant('{tmp}\RunArc.bat');
str := '@echo off' + #10#13 +
patch_Arc +
' x ' + s + ' -y -s2 -dp' + // ключи распаковки архива
patch +
' >' + ExpandConstant('"{tmp}\in_log"') + #10#13 +
'del "' + bat + '"';
SaveStringToFile(bat, str, False);
Exec(bat, '', '', SW_HIDE, ewNoWait, res);
end;

procedure UnpackArc(s, patch: string);
begin
WizardForm.CancelButton.Enabled:= False; // отключаем кнопку 'Отмена'
// создаём батник для запуска Arc.exe... незнаю почему, но без батника, не хочет работать Arc.exe
RunArc(s, patch);
WizardForm.StatusLabel.Caption:= 'Распаковка архива ' + ExtractFileName(s) + ', ждите...';
ParserLog; // обрабатываем лог файл
WizardForm.StatusLabel.Caption:= WizardForm.StatusLabel.Caption;
ProgressBar.Position := 100;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
If CurStep = ssPostInstall then begin
patch_Arc:= ExpandConstant('"{src}\Arc.exe"'); // расположение Arc.exe
UnpackArc(ExpandConstant('"{src}\Project.arc"'), // расположение архива
ExpandConstant('"{app}"')); // место распаковки архива
end;
end;

procedure InitializeWizard;
begin
// второй прогрессбар
ProgressBar := TNewProgressBar.Create(WizardForm);
with ProgressBar do begin
Left := WizardForm.ProgressGauge.Left;
Top := WizardForm.ProgressGauge.Top + ScaleX(30);
Width := WizardForm.ProgressGauge.Width;
Height := WizardForm.ProgressGauge.Height;
Parent := WizardForm.InstallingPage;
Position := 0;
Hide;
end;
// создаём Label для отображения процентов
ProgressLabel := TLabel.Create(WizardForm);
with ProgressLabel do begin
Left := ProgressBar.Left;
Top := ProgressBar.Top + ProgressBar.Height + ScaleX(5);
AutoSize:= True;
Caption:= '0%';
Parent := WizardForm.InstallingPage;
Transparent:= True;
Font.Color:= clDefault;
Hide;
end;
end;