[Serega]

Krekerpro, удалите секцию [Files], и исправьте процедуру:

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

Код:

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

Заметил такую штуку в инсталах от InstallShield: когда нажимеш на кнопку отмена на любой странице установки и отвечаеш "Да" то появляется вот такая страничка: »

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[code]
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm:= False;
end;

procedure CancelClick(Sender: TObject);
begin
  WizardForm.Close;
end;

procedure CancelOnClick(Sender: TObject);
begin
  with WizardForm do begin
    NextButton.Hide;
    BackButton.Hide;
    CancelButton.Left:= 250;
    CancelButton.Caption:= 'Готово';
    CancelButton.OnClick:= @CancelClick;
//    FinishedHeadingLabel.Caption:= 'Завершение мастера установки бла-бла';
    FinishedLabel.Caption:= 'Установка прервана... бла-бла...' + #13#13#13 +
                            'Нажмите на кнопку "Готово"';
    FinishedPage.Show;
  end;
end;

procedure InitializeWizard;
begin
  WizardForm.CancelButton.OnClick:= @CancelOnClick;
end;