[Setup]
AppName=FarcOnly
AppVerName=FarcOnly
DefaultDirName={pf}\русская @ папка
OutputDir=C:\test

[Files]
Source: Unarc.dll; DestDir: {app}; Flags: dontcopy

[Code]
function MessageBox(hWnd: Integer; lpText, lpCaption: PChar; uType: Cardinal): Integer;
external 'MessageBoxA@user32.dll stdcall';

const
MB_ICONQUESTION = $20;

var
PBar: TNewProgressBar;

#include "Utils.iss"


procedure CancelButtonClick(CurPage: Integer; var Cancel, Confirm: Boolean);
begin
if CurPage = wpInstalling then begin
Cancel := false;
Confirm := false;
if MessageBox(StrToInt(ExpandConstant('{wizardhwnd}')), SetupMessage(msgExitSetupMessage), SetupMessage(msgExitSetupTitle), MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) = idYes
then begin
FreeArcAbort;
Cancel := true;
end;
end;
end;


procedure InitializeWizard;
begin
PBar := TNewProgressBar.Create(WizardForm);
with PBar do
begin
  Parent := WizardForm.InstallingPage;
  Left := WizardForm.ProgressGauge.Left;
  Top := WizardForm.ProgressGauge.Top;
  Width :=WizardForm.ProgressGauge.Width;
  Height := WizardForm.ProgressGauge.Height;
  Min := 0;
end;
WizardForm.ProgressGauge.Hide;
end;


procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssInstall then
begin
PBar.Max := 100;

ArcExtract('{src}\data1.arc', '{app}', false, 20);
ArcExtract('{src}\data2.arc', '{app}', false, 80);

end;
end;