[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;