Inno Setup (создание инсталяционных пакетов). Часть 2

[AntonOVS]

Нуждаюсь в помощи. Можно ли как-то добавить в область на картинке функцию выключения компьютера после установки ? То есть, если пользователь установит галочку напротив этой функции, то после установки компьютер выключится.

Скрипт:

Спойлер

; !Не забывайте, при создании нового скрипта генерировать новое значение AppID!
#define AppID "{{D009B45C-D478-4CE2-B69E-5324B4FC04D2}"
#define MyAppName "Fallout New Vegas. Ultimate Edition"
#define AppVerName "Fallout New Vegas. Ultimate Edition v.1.4.0.525"
#define DefaultGroupName "Fallout New Vegas. Ultimate Edition"
#define IconFile "FalloutNV.ico"
#define NeedMem 512
#define NeedSize "9340"
#define TotalNeedSize "9340"
#define MyAppExeName "FalloutNVLauncher.exe"
#define path "{app}\FalloutNVLauncher.exe"
#define FinishImage "3.bmp"
#define FirewallInstallHelper
#define publisher "Bethesda Softworks"
;-------------------------------------------------------------------
; Компоненты, если не нужны, то закомментировать строку
#define Components
;-------------------------------------------------------------------
; Строку Records раскомментировать после тестового прогона см. инструкцию к ISDone (для ISDone)
#define records
;-------------------------------------------------------------------
; Ускорение распаковки архивов, если не нужно - закомментировать (для ISDone)
#define facompress
;-------------------------------------------------------------------
; Кнопка "Отмена" на странице приветствия, если не нужно - закомментировать
#define CancelOnWelcome
;-------------------------------------------------------------------
; Описание компонентов, если не нужно - закомментировать
#define ComponentsInfo
;-------------------------------------------------------------------

;Дополнительные библиотеки (для ISDone)

#define PrecompInside
#define SrepInside
;#define MSCInside
;#define precomp "0.42"
;#define unrar
;#define XDelta
;#define PackZIP


[Setup]
AppID={#AppId}
AppName={#MyAppName}
AppVerName={#AppVerName}
AppPublisher={#publisher}
DefaultDirName={pf}\Fallout New Vegas. Ultimate Edition
DefaultGroupName={#publisher}\{#DefaultGroupName}
OutputDir=.
OutputBaseFilename=Setup
AllowNoIcons=true
SetupIconFile=Files\{#IconFile}
VersionInfoProductName={#MyAppName}
VersionInfoProductVersion=1.0
VersionInfoVersion=1.0
VersionInfoDescription={#MyAppName} RePack by pe4enko
VersionInfoCopyright=pe4enko
Compression=none
SolidCompression=true
WizardImageFile=Files\1.bmp
WizardSmallImageFile=Files\2.bmp
;DirExistsWarning=no
UninstallFilesDir={app}\Uninstall
ShowTasksTreeLines=true
#ifdef NeedSize
ExtraDiskSpaceRequired=0
#endif
DisableReadyPage=true
DisableProgramGroupPage=no

[Files]
Source: Include\English.ini; DestDir: {tmp}; Flags: dontcopy
Source: Include\unarc.dll; DestDir: {tmp}; Flags: dontcopy
Source: ISDone.dll; DestDir: {tmp}; Flags: dontcopy
#ifdef records
Source: records.inf; DestDir: {tmp}; Flags: dontcopy
#endif

#ifdef PrecompInside
Source: Include\CLS-precomp.dll; DestDir: {tmp}; Flags: dontcopy
Source: Include\packjpg_dll.dll; DestDir: {tmp}; Flags: dontcopy
Source: Include\packjpg_dll1.dll; DestDir: {tmp}; Flags: dontcopy
Source: Include\precomp.exe; DestDir: {tmp}; Flags: dontcopy
Source: Include\zlib1.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef SrepInside
Source: Include\CLS-srep.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef MSCInside
Source: Include\CLS-MSC.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef facompress
Source: Include\facompress.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef precomp
#if precomp == "0.38"
Source: Include\precomp038.exe; DestDir: {tmp}; Flags: dontcopy
#else
#if precomp == "0.4"
Source: Include\precomp040.exe; DestDir: {tmp}; Flags: dontcopy
#else
#if precomp == "0.41"
Source: Include\precomp041.exe; DestDir: {tmp}; Flags: dontcopy
#else
#if precomp == "0.42"
Source: Include\precomp042.exe; DestDir: {tmp}; Flags: dontcopy
#else
Source: Include\precomp038.exe; DestDir: {tmp}; Flags: dontcopy
Source: Include\precomp040.exe; DestDir: {tmp}; Flags: dontcopy
Source: Include\precomp041.exe; DestDir: {tmp}; Flags: dontcopy
Source: Include\precomp042.exe; DestDir: {tmp}; Flags: dontcopy
#endif
#endif
#endif
#endif
#endif
#ifdef unrar
Source: Include\Unrar.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef XDelta
Source: Include\XDelta3.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef PackZIP
Source: Include\7z.dll; DestDir: {tmp}; Flags: dontcopy
Source: Include\packZIP.exe; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef FirewallInstallHelper
Source: Files\FirewallInstallHelper.dll; DestDir: {app}; Flags: ignoreversion
#endif
Source: Files\{#FinishImage}; DestDir: {tmp}; Flags: dontcopy
Source: Files\ISSkin.dll; DestDir: {app}; Attribs: hidden system
Source: Files\skin.skin; DestDir: {app}; Attribs: hidden system
Source: Files\Logo.bmp; DestDir: {tmp}; Flags: dontcopy
Source: Files\descctrl.dll; DestDir: {tmp}; Flags: dontcopy

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

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

const
PCFonFLY=true;
notPCFonFLY=false;
var 
WelcomeLabel, FinishedLabel, PageNameLabel: TLabel; 
TotalNeedSpaceLabel,NeedSpaceLabel,FreeSpaceLabel: TLabel; 
LabelPct1,LabelTime1,LabelTime2: TLabel;
FreeMB, TotalMB: Cardinal; 
SizeStr: String; 
SizeInt: Integer; 
SymbolNumber: Integer; 
NeedSize, TotalNeedSize, ISDoneCancel: Integer;
ISDoneProgressBar1: TNewProgressBar;
MyCancelButton: TButton;
ISDoneError:boolean;
PCFVer:double;
BtnPanel: TPanel;
BtnImage: TBitmapImage;
Info: TNewStaticText;
InfoCaption: TNewStaticText;
InfoPanel: TPanel;

Function NumToStr(Float: Extended): String; 
Begin 
  Result:= Format('%.2n', [Float]); StringChange(Result, ',', '.'); 
  while ((Result[Length(Result)] = '0') or (Result[Length(Result)] = '.')) and (Pos('.', Result) > 0) do 
  SetLength(Result, Length(Result)-1); 
End; 
 
function GetSize(): Integer; 
begin 
SizeStr:= WizardForm.DiskSpaceLabel.Caption; 
for SymbolNumber:= 97 to 122 do begin 
while (Pos(Chr(SymbolNumber), SizeStr) > 0) do Delete(SizeStr, Pos(Chr(SymbolNumber), SizeStr),1); //Находим все символы нижнего регистра и удаляем 
while (Pos(AnsiUppercase(Chr(SymbolNumber)), SizeStr) > 0) do Delete(SizeStr, Pos(AnsiUppercase(Chr(SymbolNumber)), SizeStr),1); end;  //Находим все символы верхнего регистра и удаляем 
for SymbolNumber:= 192 to 255 do begin 
while (Pos(Chr(SymbolNumber), SizeStr) > 0) do Delete(SizeStr, Pos(Chr(SymbolNumber), SizeStr),1); end; //Находим все символы нижнего регистра и удаляем 
while (Pos('.', SizeStr) > 0) do Delete(SizeStr, Pos('.', SizeStr), 1) //Удаляем точки 
Delete(SizeStr, Pos(',', SizeStr), 5) //Удаляем дробную часть 
Result:= StrToInt(Trim(SizeStr)); //Переводим в число 
end; 
 
function CompareNum(FirstNum, SecondNum: Integer): Boolean; 
begin 
if FirstNum < SecondNum then Result:= False else Result:= True; 
end; 

#ifdef FirewallInstallHelper
function AddApplicationToExceptionList(path: String; name: String): Boolean; external 'AddApplicationToExceptionListA@files:FirewallInstallHelper.dll stdcall setuponly';
function RemoveApplicationFromExceptionList(path: String): Boolean; external 'RemoveApplicationFromExceptionListA@{app}\FirewallInstallHelper.dll stdcall uninstallonly';
#endif

type
  TCallback = function (OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;

function WrapCallback(callback:TCallback; paramcount:integer):longword;external 'wrapcallback@files:ISDone.dll stdcall delayload';

function ISArcExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutPath, ExtractedPath: AnsiString; DeleteInFile:boolean; Password, CfgFile, WorkPath: AnsiString; ExtractPCF: boolean ):boolean; external 'ISArcExtract@files:ISDone.dll stdcall delayload';
function IS7ZipExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutPath: AnsiString; DeleteInFile:boolean; Password: AnsiString):boolean; external 'IS7zipExtract@files:ISDone.dll stdcall delayload';
function ISRarExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutPath: AnsiString; DeleteInFile:boolean; Password: AnsiString):boolean; external 'ISRarExtract@files:ISDone.dll stdcall delayload';
function ISPrecompExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutFile: AnsiString; DeleteInFile:boolean):boolean; external 'ISPrecompExtract@files:ISDone.dll stdcall delayload';
function ISSRepExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutFile: AnsiString; DeleteInFile:boolean):boolean; external 'ISSrepExtract@files:ISDone.dll stdcall delayload';
function ISxDeltaExtract(CurComponent:Cardinal; PctOfTotal:double; minRAM,maxRAM:integer; InName, DiffFile, OutFile: AnsiString; DeleteInFile:boolean):boolean; external 'ISxDeltaExtract@files:ISDone.dll stdcall delayload';
function ISPackZIP(CurComponent:Cardinal; PctOfTotal:double; InName, OutFile: AnsiString;ComprLvl:integer; DeleteInFile:boolean):boolean; external 'ISPackZIP@files:ISDone.dll stdcall delayload';
function ShowChangeDiskWindow(Text, DefaultPath, SearchFile:AnsiString):boolean; external 'ShowChangeDiskWindow@files:ISDone.dll stdcall delayload';

function Exec2 (FileName, Param: PAnsiChar;Show:boolean):boolean; external 'Exec2@files:ISDone.dll stdcall delayload';
function ISFindFiles(CurComponent:Cardinal; FileMask:AnsiString; var ColFiles:integer):integer; external 'ISFindFiles@files:ISDone.dll stdcall delayload';
function ISPickFilename(FindHandle:integer; OutPath:AnsiString; var CurIndex:integer; DeleteInFile:boolean):boolean; external 'ISPickFilename@files:ISDone.dll stdcall delayload';
function ISGetName(TypeStr:integer):PAnsichar; external 'ISGetName@files:ISDone.dll stdcall delayload';
function ISFindFree(FindHandle:integer):boolean; external 'ISFindFree@files:ISDone.dll stdcall delayload';
function ISExec(CurComponent:Cardinal; PctOfTotal,SpecifiedProcessTime:double; ExeName,Parameters,TargetDir,OutputStr:AnsiString;Show:boolean):boolean; external 'ISExec@files:ISDone.dll stdcall delayload';

function SrepInit(TmpPath:PAnsiChar;VirtMem,MaxSave:Cardinal):boolean; external 'SrepInit@files:ISDone.dll stdcall delayload';
function PrecompInit(TmpPath:PAnsiChar;VirtMem:cardinal;PrecompVers:single):boolean; external 'PrecompInit@files:ISDone.dll stdcall delayload';
function FileSearchInit(RecursiveSubDir:boolean):boolean; external 'FileSearchInit@files:ISDone.dll stdcall delayload';
function ISDoneInit(RecordFileName:AnsiString; TimeType,Comp1,Comp2,Comp3:Cardinal; WinHandle, NeededMem:longint; callback:TCallback):boolean; external 'ISDoneInit@files:ISDone.dll stdcall';
function ISDoneStop:boolean; external 'ISDoneStop@files:ISDone.dll stdcall';
function ChangeLanguage(Language:AnsiString):boolean; external 'ChangeLanguage@files:ISDone.dll stdcall delayload';
function SuspendProc:boolean; external 'SuspendProc@files:ISDone.dll stdcall';
function ResumeProc:boolean; external 'ResumeProc@files:ISDone.dll stdcall';

function enabledesc(ComponentsListHandle: HWND; DescLabelHandle: HWND; DescStrings: PChar): BOOL; external 'enabledesc@files:descctrl.dll stdcall';
function disabledesc(): BOOL; external 'disabledesc@files:descctrl.dll stdcall';

function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;
begin
  if OveralPct<=1000 then ISDoneProgressBar1.Position := OveralPct;
  LabelPct1.Caption := IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+'%';
  LabelTime1.Caption:=ExpandConstant('{cm:ElapsedTime} ')+TimeStr2;
  LabelTime2.Caption:=ExpandConstant('{cm:RemainingTime} ')+TimeStr1;
  Result := ISDoneCancel;
end;

function CheckError:boolean;
begin
  result:= not ISDoneError;
end;

///////////////////////////////////////Изоображения///////////////////////////////////////////////
procedure InitializeWizard1(); 
begin 
ExtractTemporaryFile('{#FinishImage}'); 
 
WizardForm.WizardBitmapImage.Width:= ScaleX(497); 
WizardForm.WizardBitmapImage2.Width:= ScaleX(497); 
WizardForm.WizardBitmapImage2.Bitmap.LoadFromFile(ExpandConstant('{tmp}\{#FinishImage}')); 

WelcomeLabel:= TLabel.Create(WizardForm); 
WelcomeLabel.AutoSize:= False; 
with WizardForm.WelcomeLabel2 do 
WelcomeLabel.SetBounds(Left-70, Top+50, Width, Height); 
WelcomeLabel.Alignment := taCenter;
WelcomeLabel.Font:= WizardForm.WelcomeLabel2.Font 
WelcomeLabel.Font.Color:= clWhite; 
WelcomeLabel.Font.Size:=10
WelcomeLabel.Transparent:= True; 
WelcomeLabel.WordWrap:= true; 
WelcomeLabel.Caption:= ExpandConstant('{cm:WelcomeLabel}');
WelcomeLabel.Parent:= WizardForm.WelcomePage 
WelcomeLabel.Font.Style:=[fsBold];
 
FinishedLabel:= TLabel.Create(WizardForm); 
FinishedLabel.AutoSize:= False; 
with WizardForm.FinishedLabel do 
FinishedLabel.SetBounds(Left-70, Top+70, Width, Height);
FinishedLabel.Font:= WizardForm.FinishedLabel.Font 
FinishedLabel.Font.Color:= clWhite; 
FinishedLabel.Transparent:= True; 
FinishedLabel.WordWrap:= true; 
FinishedLabel.Caption:=ExpandConstant('{cm:FinishLabel}');
FinishedLabel.Parent:= WizardForm.FinishedPage 
FinishedLabel.Font.Style:=[fsBold];
FinishedLabel.Alignment := taCenter;
FinishedLabel.Font.Size:=10;
 
WizardForm.WelcomeLabel1.Hide; 
WizardForm.WelcomeLabel2.Hide; 
WizardForm.FinishedLabel.Hide; 
WizardForm.FinishedHeadingLabel.Hide; 
end; 
/////////////////////////////////
procedure InitializeWizard2(); 
begin 
WizardForm.MainPanel.Height:=150;
WizardForm.WizardSmallBitmapImage.SetBounds(ScaleX(0), ScaleY(0), WizardForm.MainPanel.Width, WizardForm.MainPanel.Height); 
 
PageNameLabel:= TLabel.Create(WizardForm) 
with WizardForm.PageNameLabel do 
PageNameLabel.SetBounds(Left, Top+50, Width, Height); 
PageNameLabel.Transparent:= True; 
PageNameLabel.Font:= WizardForm.PageNameLabel.Font; 
PageNameLabel.Font.Color:= clWhite;  //цвет надписи 
PageNameLabel.Parent:= WizardForm.MainPanel; 
 
WizardForm.PageNameLabel.Hide; 
WizardForm.PageDescriptionLabel.Hide; 
///////////////////////////////////////Изоображения///////////////////////////////////////////////
WizardForm.ComponentsList.Color:=WizardForm.SelectDirPage.Color
WizardForm.BackButton.Left:=0;
WizardForm.NextButton.Left:=WizardForm.CancelButton.Left+10;
WizardForm.NextButton.Top:=WizardForm.Bevel.Top+5;
WizardForm.NextButton.Height:=40;
WizardForm.BackButton.Top:=WizardForm.Bevel.Top+5;
WizardForm.BackButton.Height:=40;
WizardForm.SelectDirBrowseLabel.Hide;
WizardForm.CancelButton.Height:=40;
WizardForm.CancelButton.Top:=WizardForm.Bevel.Top+5;
WizardForm.CancelButton.Left:=WizardForm.CancelButton.Left+10;
WizardForm.CancelButton.Hide;
WizardForm.SelectDirBitmapImage.Hide
WizardForm.SelectGroupBitmapImage.Hide
WizardForm.SelectDirLabel.Left:=WizardForm.SelectDirBitmapImage.Left
WizardForm.SelectDirLabel.Top:=100
WizardForm.DirEdit.Top:=140
WizardForm.DirBrowseButton.Top:=140
WizardForm.GroupEdit.Top:=140
WizardForm.GroupBrowseButton.Top:=140
WizardForm.SelectComponentsLabel.Hide;
WizardForm.ComponentsDiskSpaceLabel.Hide;
WizardForm.SelectStartMenuFolderBrowseLabel.Hide;
WizardForm.SelectStartMenuFolderLabel.Left:=WizardForm.SelectDirBitmapImage.Left;
WizardForm.SelectStartMenuFolderLabel.Top:=100;
WizardForm.SelectTasksLabel.Hide;
WizardForm.ComponentsList.Top:=100;
WizardForm.ComponentsList.Height:=120;
WizardForm.TasksList.Top:=100;
WizardForm.TasksList.Height:=120;
WizardForm.StatusLabel.Top:=100;
end; 
///////////////////////////////////////Место для установки//////////////////////////////////////////////
Function MbOrTb(Byte: Extended): String;
begin
  if Byte < 1024 then Result:= NumToStr(Byte) + ' Мб' else
    if Byte/1024 < 1024 then Result:= NumToStr(round(Byte/1024*100)/100) + ' Гб' else
      Result:= NumToStr(round((Byte/(1024*1024))*100)/100) + ' Тб'
end;

procedure GetFreeSpaceCaption(Sender: TObject);
var
Path: String;
begin
  Path := ExtractFileDrive(WizardForm.DirEdit.Text);
  GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
  NeedSpaceLabel.Caption := 'Игра займет на диске: '+ MbOrTb(NeedSize)
  TotalNeedSpaceLabel.Caption := 'Для установки требуется: '+ MbOrTb(TotalNeedSize)
  FreeSpaceLabel.Caption := 'Доступно места на диске: '+ MbOrTb(FreeMB)
  WizardForm.NextButton.Enabled:= (FreeMB>TotalNeedSize);
  if (FreeMB<TotalNeedSize) then
    FreeSpaceLabel.Font.Color:=clRed else
    FreeSpaceLabel.Font.Color:=WizardForm.Font.Color;
end;

procedure SpaceLabel();
begin
  NeedSize := {#NeedSize};
  TotalNeedSize := {#TotalNeedSize};

  FreeSpaceLabel := TLabel.Create(WizardForm);
  FreeSpaceLabel.Parent := WizardForm.SelectDirPage;
  FreeSpaceLabel.SetBounds(ScaleX(0), ScaleY(180), ScaleX(209), ScaleY(13));

  TotalNeedSpaceLabel := TLabel.Create(WizardForm);
  TotalNeedSpaceLabel.Parent := WizardForm.SelectDirPage;
  TotalNeedSpaceLabel.SetBounds(ScaleX(0), ScaleY(200), ScaleX(209), ScaleY(13));

  NeedSpaceLabel := TLabel.Create(WizardForm);
  NeedSpaceLabel.Parent := WizardForm.SelectDirPage;
  NeedSpaceLabel.SetBounds(ScaleX(0), ScaleY(220), ScaleX(209), ScaleY(13));

  WizardForm.DirEdit.OnChange := @GetFreeSpaceCaption;
  
  WizardForm.DiskSpaceLabel.Hide;
end;
///////////////////////////////////////Место для установки//////////////////////////////////////////////

///////////////////////////////////////ISDone////////////////////////
procedure CancelButtonOnClick(Sender: TObject);
begin
  SuspendProc;
  if MsgBox(SetupMessage(msgExitSetupMessage), mbConfirmation, MB_YESNO) = IDYES then ISDoneCancel:=1;
  ResumeProc;
end;

procedure HideControls;
begin
  WizardForm.FileNamelabel.Hide;
  ISDoneProgressBar1.Hide;
  LabelPct1.Hide;
  LabelTime1.Hide;
  LabelTime2.Hide;
  MyCancelButton.Hide;
end;

procedure CreateControls;
var PBTop:integer;
begin
  PBTop:=ScaleY(50);
  ISDoneProgressBar1 := TNewProgressBar.Create(WizardForm);
  with ISDoneProgressBar1 do begin
    Parent   := WizardForm;
    Height   := WizardForm.CancelButton.Height-10
    Left     := ScaleX(0);
    Top      := WizardForm.BackButton.Top+5;
    Width    := ScaleX(405);
    Max      := 1000;
  end;
  LabelPct1 := TLabel.Create(WizardForm);
  with LabelPct1 do begin
    Parent    := ISDoneProgressBar1;
    AutoSize  := True;
    Left      := 10;
    Top       := 3;
    Font.Size := 14;
    Width     := ScaleX(80);
    Transparent:=True;
  end;
  LabelTime1 := TLabel.Create(WizardForm);
  with LabelTime1 do begin
    Parent   := WizardForm.InstallingPage;
    AutoSize := False;
    Width    := ISDoneProgressBar1.Width div 2;
    Left     := ScaleX(0);
    Top      := 200;
  end;
  LabelTime2 := TLabel.Create(WizardForm);
  with LabelTime2 do begin
    Parent   := WizardForm.InstallingPage;
    AutoSize := False;
    Width    := LabelTime1.Width+ScaleX(40);
    Left     := ISDoneProgressBar1.Width div 2;
    Top      := LabelTime1.Top;
  end;
    MyCancelButton:=TNewButton.Create(WizardForm);
    with MyCancelButton do begin
    Parent:=WizardForm;
    Width:=WizardForm.CancelButton.Width;
    Caption:='Отмена';
    Left:=WizardForm.CancelButton.Left;
    Height:=40;
    Top:=WizardForm.Bevel.Top+5;    
    OnClick:=@CancelButtonOnClick;
end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var Comps1,Comps2,Comps3, TmpValue:cardinal;
    FindHandle1,ColFiles1,CurIndex1,tmp:integer;
    ExecError:boolean;
    InFilePath,OutFilePath,OutFileName:PAnsiChar;
begin
  if CurStep = ssInstall then begin  //Если необходимо, можно поменять на ssPostInstall
    WizardForm.ProgressGauge.Hide;
    WizardForm.CancelButton.Hide;
    CreateControls;
    WizardForm.StatusLabel.Caption:=ExpandConstant('{cm:Extracted}');
    ISDoneCancel:=0;

// Распаковка всех необходимых файлов в папку {tmp}.

ExtractTemporaryFile('unarc.dll');

#ifdef PrecompInside
ExtractTemporaryFile('CLS-precomp.dll');
ExtractTemporaryFile('packjpg_dll.dll');
ExtractTemporaryFile('packjpg_dll1.dll');
ExtractTemporaryFile('precomp.exe');
ExtractTemporaryFile('zlib1.dll');
#endif
#ifdef SrepInside
ExtractTemporaryFile('CLS-srep.dll');
#endif
#ifdef MSCInside
ExtractTemporaryFile('CLS-MSC.dll');
#endif
#ifdef facompress
    ExtractTemporaryFile('facompress.dll'); //ускоряет распаковку .arc архивов.
#endif
#ifdef records
    ExtractTemporaryFile('records.inf');
#endif
#ifdef precomp
  #if precomp == "0.38"
    ExtractTemporaryFile('precomp038.exe');
  #else
    #if precomp == "0.4"
      ExtractTemporaryFile('precomp040.exe');
    #else
      #if precomp == "0.41"
        ExtractTemporaryFile('precomp041.exe');
      #else
        #if precomp == "0.42"
          ExtractTemporaryFile('precomp042.exe');
        #else
          ExtractTemporaryFile('precomp038.exe');
          ExtractTemporaryFile('precomp040.exe');
          ExtractTemporaryFile('precomp041.exe');
          ExtractTemporaryFile('precomp042.exe');
        #endif
      #endif
    #endif
  #endif
#endif
#ifdef unrar
    ExtractTemporaryFile('Unrar.dll');
#endif
#ifdef XDelta
    ExtractTemporaryFile('XDelta3.dll');
#endif
#ifdef PackZIP
    ExtractTemporaryFile('7z.dll');
    ExtractTemporaryFile('PackZIP.exe');
#endif

    ExtractTemporaryFile('English.ini');

// Подготавливаем переменную, содержащую всю информацию о выделенных компонентах для ISDone.dll
// максимум 96 компонентов.
    Comps1:=0; Comps2:=0; Comps3:=0;
#ifdef Components
    TmpValue:=1;
    if IsComponentSelected('text\rus') then Comps1:=Comps1+TmpValue;     //компонент 1
    TmpValue:=TmpValue*2;
    if IsComponentSelected('text\eng') then Comps1:=Comps1+TmpValue;     //компонент 2
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc1\eng') then Comps1:=Comps1+TmpValue;    //компонент 3
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc2\eng') then Comps1:=Comps1+TmpValue;    //компонент 4
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc3\eng') then Comps1:=Comps1+TmpValue;     //компонент 5
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc4\eng') then Comps1:=Comps1+TmpValue;    //компонент 6
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc5\eng') then Comps1:=Comps1+TmpValue;    //компонент 7
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc6\eng') then Comps1:=Comps1+TmpValue;    //компонент 8
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc1\rus') then Comps1:=Comps1+TmpValue;    //компонент 9
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc2\rus') then Comps1:=Comps1+TmpValue;    //компонент 10
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc3\rus') then Comps1:=Comps1+TmpValue;    //компонент 11
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc4\rus') then Comps1:=Comps1+TmpValue;    //компонент 12
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc5\rus') then Comps1:=Comps1+TmpValue;    //компонент 13
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc6\rus') then Comps1:=Comps1+TmpValue;    //компонент 14
    //    .....
// см. справку
#endif

#ifdef precomp
  PCFVer:={#precomp};
#else
  PCFVer:=0;
#endif
    ISDoneError:=true;
    if ISDoneInit(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, MainForm.Handle, {#NeedMem}, @ProgressCallback) then begin
      repeat
//        ChangeLanguage('English');
        


//    далее находятся закомментированые примеры различных функций распаковки (чтобы каждый раз не лазить в справку за примерами)
(*
        if not ISArcExtract    ( 0, 0, ExpandConstant('{src}\arc.arc'), ExpandConstant('{app}\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
        if not IS7ZipExtract   ( 0, 0, ExpandConstant('{src}\CODMW2.7z'), ExpandConstant('{app}\data1'), false, '') then break;
        if not ISRarExtract    ( 0, 0, ExpandConstant('{src}\data_*.rar'), ExpandConstant('{app}'), false, '') then break;
        if not ISSRepExtract   ( 0, 0, ExpandConstant('{app}\data1024_1024.srep'),ExpandConstant('{app}\data1024.arc'), true) then break;
        if not ISPrecompExtract( 0, 0, ExpandConstant('{app}\data.pcf'),    ExpandConstant('{app}\data.7z'), true) then break;
        if not ISxDeltaExtract ( 0, 0, 0, 640, ExpandConstant('{app}\in.pcf'), ExpandConstant('{app}\*.diff'),   ExpandConstant('{app}\out.dat'), false) then break;
        if not ISPackZIP       ( 0, 0, ExpandConstant('{app}\1a1\*'), ExpandConstant('{app}\1a1.pak'), 2, false ) then break;
        if not ISExec          ( 0, 0, 0, ExpandConstant('{tmp}\Arc.exe'), ExpandConstant('x -o+ "{src}\001.arc" "{app}\"'), ExpandConstant('{tmp}'), '...',false) then break;
        if not ShowChangeDiskWindow ('Пожалуйста, вставьте второй диск и дождитесь его инициализации.', ExpandConstant('{src}'),'CODMW_2.arc') then break;

//    распаковка группы файлов посредством внешнего приложения

        FindHandle1:=ISFindFiles(0,ExpandConstant('{app}\*.ogg'),ColFiles1);
        ExecError:=false;
        while not ExecError and ISPickFilename(FindHandle1,ExpandConstant('{app}\'),CurIndex1,true) do begin
          InFilePath:=ISGetName(0);
          OutFilePath:=ISGetName(1);
          OutFileName:=ISGetName(2);
          ExecError:=not ISExec(0, 0, 0, ExpandConstant('{tmp}\oggdec.exe'), '"'+InFilePath+'" -w "'+OutFilePath+'"',ExpandConstant('{tmp}'),OutFileName,false);
        end;
        ISFindFree(FindHandle1);
        if ExecError then break;
*)

        ISDoneError:=false;
      until true;
      ISDoneStop;
    end;
    HideControls;
    WizardForm.CancelButton.Visible:=true;
    WizardForm.CancelButton.Enabled:=false;
    BtnPanel.Show;
  end;
  if (CurStep=ssPostInstall) and ISDoneError then begin
    Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', false);
  end;
end;
/////////////////////////////////////////////ISDone/////////////////////

//////////////////////////////Лого/////////////////////////////
procedure TestButtonOnClick(Sender: TObject);
begin
  MsgBox('* Вырезаны все языки кроме английского / не перекодировано' + #10#13 + '* Версия игры 1.4.0.525'+ #10#13 + '* Вшита таблетка от PROPHET'+ #10#13 +'* Выборочная установка дополнений, русификаторов'+ #10#13 +'* Для установки требуется 512 МБ ОЗУ'+ #10#13 +'* Репак от pe4enko', mbInformation, MB_OK)
end;

procedure InitializeWizard3();  
begin
  BtnPanel:=TPanel.Create(WizardForm)
  with BtnPanel do begin
    Left:=180
    Top:=320
    Width:=132
    Height:=35
    Cursor:=crHand
    OnClick:=@TestButtonOnClick
    Parent:=WizardForm
  end
  BtnImage:=TBitmapImage.Create(WizardForm)
  with BtnImage do begin
    AutoSize:=True
    Enabled:=False
    ExtractTemporaryFile('Logo.bmp')
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Logo.bmp')
    Parent:=BtnPanel
  end
end;
/////////////////////////////////Лого///////////////////////////////////////

/////////////////////////////////Описание компонентов//////////////////////////
  #ifdef ComponentsInfo
procedure InitializeWizard4();
begin
  WizardForm.TYPESCOMBO.Visible:= false;

  InfoPanel := TPanel.Create(WizardForm);
  InfoPanel.Parent := WizardForm.SelectComponentsPage;
  InfoPanel.Caption := '';
  InfoPanel.Top := WizardForm.ComponentsList.Top;
  InfoPanel.Left := ScaleX(216);
  InfoPanel.Width := ScaleX(201);
  InfoPanel.Height := WizardForm.ComponentsList.Height;
  InfoPanel.BevelInner := bvRaised;
  InfoPanel.BevelOuter := bvLowered;
  InfoCaption := TNewStaticText.Create(WizardForm);
  InfoCaption.Parent := WizardForm.SelectComponentsPage;
  InfoCaption.Caption := 'Информация:';
  InfoCaption.Left := ScaleX(224);
  InfoCaption.Top := InfoPanel.Top - ScaleY(5);
  InfoCaption.Font.Color := clWhite;//clActiveCaption;
  Info := TNewStaticText.Create(WizardForm);
  Info.Parent := InfoPanel;
  Info.Font.Color:=clBlack;
  Info.AutoSize := False;
  Info.Left := ScaleX(6);
  Info.Width := ScaleX(188);
  Info.Top := ScaleY(12);
  Info.Height := WizardForm.ComponentsList.Height - ScaleY(17);
  Info.Caption := 'Наведите на компонент, чтобы получить дополнительную информацию';
  Info.WordWrap := true;
  Info.Font.Color:=clWhite;
  enabledesc(WizardForm.ComponentsList.Handle,Info.Handle,
       'Язык текста в игре (меню, субтитры, субтитры в видео, лаунчер);'+
       'Русский текст (официальный от 1C);'+
       'Английский текст;'+
       'Дополнительный контент для игры (DLC);'+
       'Этот аддон возвратит нас к тому, с чего всё и началось. История этого дополнения сведет нас с Улиссом, другим курьером, который должен ответить на интересующие нас вопросы.;'+       
       'В Old World Blues главный герой станет подопытным кроликом в ужасном эксперименте. Теперь геймеры будут бороться с маниакальным учеными или присоединения к ним, чтобы создать еще больше мутантов.;'+      
       'Honest Heart - это второе дополнение для Fallout New Vegas, в котором мы отправимся в пустыни национального парка в штате Юта, под названием Сион, обстоятельства берут плохой поворот, когда на караван героя нападает группа бандитов.;'+      
       'Действие Dead Money происходит в Сьерра-Мадре — роскошном экстравагантном казино, которое должно было стать величайшим на всём западе, но только так и не открылось. Бомбы упали до торжественного открытия, и Сьерра-Мадре замерло во времени.;'+      
       'Gun Runner’s Arsenal DLC включает: оптимизированные боеприпасы Small Energy Cell, Micro Fusion Cell, Electron Charge Pack и Flamer Fuel, обеспечивающие на 30% больше повреждений, высокую степень проникновения.;'+       
       'Courier’s Stash - сборник 4х дополнений, ранее доступных только по предзаказу: "Caravan Pack", "Classic Pack", "Mercenary Pack", и "Tribal Pack".;'+
       'Русский текст для дополнений (любительский);'+
       'Русский текст для DLC Lonesome Road (любительский от YikxX, the-thing, Aptom) v.2.0;'+
       'Русский текст для DLC Old World Blues (любительский от ModGamesTribal, YikxX) v.2.00;'+
       'Русский текст для DLC Honest Hearts (любительский от ModGamesTribal) v.1.03;'+
       'Русский текст для DLC Dead Money (любительский от ModGamesTribal, YikxX) v.4.0;'+
       'Русский текст для DLC Gun Runners Arsenal (любительский от Aptom) v.1.1;'+
       'Русский текст для DLC Courier’s Stash (любительский от warp 37) v.2.1;'
       
       );
end;
#endif
/////////////////////////////////Описание компонентов//////////////////////////

//////////////////////////// Удаление сохранений ///////////////////////////
procedure DeleteSavedGames(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep=usUninstall then
  if DirExists(ExpandConstant('{userdocs}')+'\My Games\FalloutNV') then
  if MsgBox(ExpandConstant('{cm:DeleteSave}'), mbInformation, MB_YESNO) = idYes then
  DelTree(ExpandConstant('{userdocs}')+'\My Games\FalloutNV', True, True, True)
end;
//////////////////////////// Удаление сохранений ///////////////////////////

////////////////////////////////Скин////////////////////////////////////////
procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall delayload setuponly'; 
procedure UnloadSkin(); external 'UnloadSkin@files:isskin.dll stdcall delayload setuponly'; 
 
procedure LoadSkinU(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@{tmp}\isskin.dll stdcall delayload uninstallonly'; 
procedure UnloadSkinU(); external 'UnloadSkin@{tmp}\isskin.dll stdcall delayload uninstallonly'; 
////////////////////////////////Скин////////////////////////////////////////

procedure InitializeWizard();
begin
  InitializeWizard1();
  InitializeWizard2(); 
  InitializeWizard3();
  #ifdef ComponentsInfo
  InitializeWizard4();
  #endif
  SpaceLabel;
end;

Procedure CurPageChanged(CurPageID: Integer);
Begin
#ifdef CancelOnWelcome
 if CurPageID = wpWelcome then
 begin
  WizardForm.CancelButton.Left:=0;
end;
 if CurPageID = wpsELECTdIR then
 begin
  WizardForm.CancelButton.Left:=WizardForm.NextButton.Left;
end;
#endif
 if CurPageID = wpSelectTasks then
 begin
  WizardForm.NextButton.Caption:='Установить';
end;
  PageNameLabel.Caption:= WizardForm.PageNameLabel.Caption; 
  if CurPageID = wpSelectDir then GetFreeSpaceCaption(nil);
  if (CurPageID = wpFinished) and ISDoneError then
  begin
    WizardForm.Caption:= ExpandConstant('{cm:Error}');
    FinishedLabel.Font.Color:= clRed;
    FinishedLabel.Caption:= ExpandConstant('{cm:FinishedLabel}');
  end;
end;

procedure InitializeUninstallProgressForm;
begin
   UninstallProgressForm.CancelButton.Hide;
   UninstallProgressForm.Bevel.Hide;
   UninstallProgressForm.Bevel1.Hide;
   UninstallProgressForm.ClientHeight := 100;
   UninstallProgressForm.Position:=poScreenCenter
   UninstallProgressForm.MainPanel.Hide;
   UninstallProgressForm.InnerNotebook.Top:=0
   UninstallProgressForm.InnerNotebook.Left:=0
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); 
var 
path: String; 
begin 
DeleteSavedGames(CurUninstallStep);
if CurUninstallStep=usUninstall then 
begin 
path:=ExpandConstant('{#path}'); 
RemoveApplicationFromExceptionList(path) 
UnloadDll(ExpandConstant('{app}\FirewallInstallHelper.dll')); 
end; 
end;

function InitializeSetup(): Boolean; 
begin 
ExtractTemporaryFile('skin.skin'); 
LoadSkin(ExpandConstant('{tmp}\skin.skin'), ''); 
Result:= true 
end; 
 
function InitializeUninstall(): Boolean; 
begin 
FileCopy(ExpandConstant('{app}\isskin.dll'), 
ExpandConstant('{tmp}\isskin.dll'), False); 
FileCopy(ExpandConstant('{app}\skin.skin'), 
ExpandConstant('{tmp}\skin.skin'), False); LoadSkinU(ExpandConstant('{tmp}\orange.skin'), ''); 
Result:=True; 
end; 
 
procedure DeinitializeSetup(); 
begin 
UnloadSkin(); 
#ifdef ComponentsInfo
disabledesc();
#endif
end; 
 
procedure DeinitializeUninstall(); 
begin 
UnloadSkinU(); 
end; 
[/spoiler]
И еще вопрос, возможно не по теме. Можно ли как-то сделать свой скин для ISSkin (.cjstyles) ?

 

[murlakatamenka]

demon777, ну тогда не знаю
----------
AntonOVS, можно создать свой таск + http://www.computerhope.com/shutdown.htm
а зачем комп-то выключать после установки?

 

[AntonOVS]

murlakatamenka, ну например вы куда-то спешите и вам вот хочется поставить игру на установку и пойти. Вы ставите на инсталляцию и ставите галочку напротив этой функции и с мыслью что компьютер выключится после установки вы спокойно идете по делам, вот так-то.
Извините, ничего не понял с вашего ответа, не могли бы вы показать на примере ?

 

[LexBell]

AntonOVS, держи.

Спойлер: выключение

[SOURCE="iss"]Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

var
  ShotCheckBox: TNewCheckBox;

procedure InitializeWizard();
begin
  ShotCheckBox := TNewCheckBox.Create(WizardForm);
  with ShotCheckBox do
  begin
    Parent := WizardForm.InstallingPage;
    SetBounds(ScaleX(0),ScaleY(65),ScaleX(225),ScaleY(15));
    Caption := 'Выключить компьютер после установки';
    Checked := true;
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
var
  res : integer;
begin
  if CurPageID=wpFinished then
  begin
    if ShotCheckBox.Checked then
    begin
      ShellExec('','shutdown','-s','{win}\System32\',SW_SHOW,ewNoWait,res);
      WizardForm.NextButton.OnClick(nil);
    end;
  end;
end;[/SOURCE][/SPOILER]

 

[YURSHAT]

{win}\System32\

А не првильнее будет указать константу {sys}, вместо выражения выше?

 

[LexBell]

YURSHAT, хз, просто эта константа может расшифровываться и как {win}\System\, а эта папка будет неверной, в данном случае.
из справки:

{sys}
Системная папка Windows (System32 на Windows NT).
Например: ввели {sys}\CTL3D32.DLL системная папка Windows "C:\WINDOWS\SYSTEM", на выходе "C:\WINDOWS\SYSTEM\CTL3D32.DLL".

В общем, я так и не понял, плюс, с константой {sys} ничего не получилось - я игристое еще литром вермута шлифанул, вот и не вышло, наверное

 

[YURSHAT]

Системная папка Windows (System32 на Windows NT)

Ключевое слово Windows NT

я игристое еще литром вермута шлифанул, вот и не вышло, наверное

Очень может быть

 

[AntonOVS]

Кому не сложно, помогите мне пожалуйста. Вот растянул картинки на первой и последней странице, теперь хочу чтобы на картинках не было текста, переместить его к кнопке "далее" и убрать некоторые строчки.

Спойлер: как-то так

И можно-ли как-нибудь серую область (на которой находятся кнопки) расширить до картинки ?

Спойлер: Скрипт

;#define Physx
;Название игры
#define appname "Skyrim"
;Версия игры
#define appver "1.5.24.0.5"
;Ваш ник
#define repacker "pe4enko"
#define publisher "Bethesda Softworks"
;Exe
#define exe "FalloutNVLauncher.exe"
;Реестр
#define Registry
;Сколько требуется для установки
#define NeedSize 9340
#define NeedInstallSize 9340

#define NeedMem 512

;#define SecondProgressBar

#define Components

;#define records

#define facompress

#define PrecompInside
#define SrepInside
;#define MSCInside
;#define precomp "0.42"
;#define unrar
;#define XDelta
;#define PackZIP

[Setup]
AppId={{66EA0B65-82F8-4306-B206-F42F4F254E7B}
AppName={#appname}
AppVerName={#appname} v.{#appver}
AppPublisher={#publisher}
DefaultDirName={pf}\{#appname}
DefaultGroupName={#publisher}\{#appname}
InternalCompressLevel=ultra64
SolidCompression=true
Compression=lzma/ultra64
AllowNoIcons=yes
OutputDir=.
SetupIconFile=icon.ico
ShowTasksTreeLines=yes
OutputBaseFilename=setup
VersionInfoProductName={#appname}
VersionInfoProductVersion=1.0
VersionInfoVersion=1.0
VersionInfoCopyright={#repacker}
VersionInfoDescription={#appname} repack by {#repacker}
WizardImageFile=Files\1.bmp
WizardSmallImageFile=Files\55x58.bmp

#ifdef Components
[Types]
Name: full; Description: "Полная установка"; Flags: iscustom

[Components]
Name: Text; Description: "Язык текста:"; Types: full; Flags: fixed;
Name: Text\rus; Description: "Русский"; Flags: exclusive;
Name: Text\eng; Description: "Английский"; Flags: exclusive;
Name: dlcs; Description: "Дополнения:"; Types: full;
Name: dlc1\eng; Description: "Lonesome Road";
Name: dlc2\eng; Description: "Old World Blues";
Name: dlc3\eng; Description: "Honest Hearts";
Name: dlc4\eng; Description: "Dead Money";
Name: dlc5\eng; Description: "Gun Runners' Arsenal";
Name: dlc6\eng; Description: "Courier’s Stash";
Name: dlcsrus; Description: "Русификация дополнений:"; Types: full;
Name: dlc1\rus; Description: "Русифицировать Lonesome Road";
Name: dlc2\rus; Description: "Русифицировать Old World Blues";
Name: dlc3\rus; Description: "Русифицировать Honest Hearts";
Name: dlc4\rus; Description: "Русифицировать Dead Money";
Name: dlc5\rus; Description: "Русифицировать Gun Runners' Arsenal";
Name: dlc6\rus; Description: "Русифицировать Courier’s Stash";
#endif

#ifdef Registry
[Registry]
Root: HKLM; SubKey: SOFTWARE\Bethesda Softworks; Flags: uninsdeletekeyifempty
Root: HKLM; SubKey: SOFTWARE\Bethesda Softworks\FalloutNV; ValueType: string; ValueName: Installed Path; ValueData: {app}\; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: SOFTWARE\Wow6432Node\Bethesda Softworks; Flags: uninsdeletekeyifempty
Root: HKLM; SubKey: SOFTWARE\Wow6432Node\Bethesda Softworks\FalloutNV; ValueType: string; ValueName: Installed Path; ValueData: {app}\; Flags: uninsdeletevalue uninsdeletekeyifempty
#endif

[Icons]
Name: "{group}\{#appname} v.{#appver}"; Filename: "{app}\{#exe}"; WorkingDir: "{app}"; Check: CheckError
Name: "{group}\{cm:UninstallProgram,{#appname}}"; Filename: "{uninstallexe}"; WorkingDir: "{app}"; Check: CheckError
Name: "{commondesktop}\{#appname}"; Filename: "{app}\{#exe}"; Tasks: desktopicon; WorkingDir: "{app}"; Check: CheckError

[Tasks]
Name: desktopicon; Description: "Добавить ярлык на рабочий стол"; GroupDescription: Создание ярлыков:
Name: Redist; Description: "Дополнительное программное обеспечение:"
Name: Redist\DirectXCheck; Description: "Обновить DirectX (требуется интернет-подключение)"; Flags: unchecked
#ifdef Physx
Name: Redist\PhysXCheck; Description: "Установить Nvidia PhysX"; Flags: unchecked
#endif
Name: Redist\VCCheck; Description: "Установить Microsoft Visual C++"; Flags: unchecked

[Run]
Filename: {src}\Soft\vcredist_x86.exe; Parameters: /q; StatusMsg: Устанавливаем Microsoft Visual C++ Redist x86...; Flags: skipifdoesntexist; Tasks: Redist\VCCheck; Check: CheckError and not IsWin64
Filename: {src}\Soft\vcredist_x64.exe; Parameters: /q; StatusMsg: Устанавливаем Microsoft Visual C++ Redist x64...; Flags: skipifdoesntexist; Tasks: Redist\VCCheck; Check: CheckError and IsWin64
#ifdef Physx
Filename: {src}\Soft\PhysX.bat; StatusMsg: Устанавливаем Nvidia PhysX...; Flags: waituntilterminated; Tasks: Redist\PhysXCheck; Check: CheckError
#endif
Filename: {src}\Soft\dxwebsetup.exe; StatusMsg: Обновляем DirectX...; Flags: waituntilterminated; Tasks: Redist\DirectXCheck; Check: CheckError

[Files]
Source: Include\English.ini; DestDir: {tmp}; Flags: dontcopy
Source: Include\unarc.dll; DestDir: {tmp}; Flags: dontcopy
Source: ISDone.dll; DestDir: {tmp}; Flags: dontcopy
#ifdef records
Source: records.inf; DestDir: {tmp}; Flags: dontcopy
#endif

#ifdef PrecompInside
Source: Include\CLS-precomp.dll; DestDir: {tmp}; Flags: dontcopy
Source: Include\packjpg_dll.dll; DestDir: {tmp}; Flags: dontcopy
Source: Include\packjpg_dll1.dll; DestDir: {tmp}; Flags: dontcopy
Source: Include\precomp.exe; DestDir: {tmp}; Flags: dontcopy
Source: Include\zlib1.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef SrepInside
Source: Include\CLS-srep.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef MSCInside
Source: Include\CLS-MSC.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef facompress
Source: Include\facompress.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef precomp
#if precomp == "0.38"
Source: Include\precomp038.exe; DestDir: {tmp}; Flags: dontcopy
#else
#if precomp == "0.4"
Source: Include\precomp040.exe; DestDir: {tmp}; Flags: dontcopy
#else
#if precomp == "0.41"
Source: Include\precomp041.exe; DestDir: {tmp}; Flags: dontcopy
#else
#if precomp == "0.42"
Source: Include\precomp042.exe; DestDir: {tmp}; Flags: dontcopy
#else
Source: Include\precomp038.exe; DestDir: {tmp}; Flags: dontcopy
Source: Include\precomp040.exe; DestDir: {tmp}; Flags: dontcopy
Source: Include\precomp041.exe; DestDir: {tmp}; Flags: dontcopy
Source: Include\precomp042.exe; DestDir: {tmp}; Flags: dontcopy
#endif
#endif
#endif
#endif
#endif
#ifdef unrar
Source: Include\Unrar.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef XDelta
Source: Include\XDelta3.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef PackZIP
Source: Include\7z.dll; DestDir: {tmp}; Flags: dontcopy
Source: Include\packZIP.exe; DestDir: {tmp}; Flags: dontcopy
#endif
Source: Files\final.bmp; DestDir: {tmp}; Flags: dontcopy

[CustomMessages]
russian.Extracted=Распаковка архивов...
russian.CancelButton=Отменить установку
russian.Error=Ошибка распаковки!
russian.ElapsedTime=Прошло:
russian.RemainingTime=Осталось времени:

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

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

const
  PCFonFLY=true;
  notPCFonFLY=false;
var
  LabelPct1, LabelTime1, LabelTime2: TLabel;
  TotalSpaceLabel, FreeSpaceLabel, NeedSpacelabel, InstallSpaceLabel: TLabel;
  WelcomeLabel1, WelcomeLabel2, FinishedLabel, FinishedHeadingLabel: TLabel;
  FreeMB, TotalMB: Cardinal;
  ISDoneProgressBar1: TNewProgressBar;
#ifdef SecondProgressBar
  LabelPct2: TLabel;
  ISDoneProgressBar2:TNewProgressBar;
#endif
  MyCancelButton: TButton;
  ISDoneCancel:integer;
  ISDoneError:boolean;
  PCFVer:double;

type
  TCallback = function (OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;

function WrapCallback(callback:TCallback; paramcount:integer):longword;external 'wrapcallback@files:ISDone.dll stdcall delayload';

function ISArcExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutPath, ExtractedPath: AnsiString; DeleteInFile:boolean; Password, CfgFile, WorkPath: AnsiString; ExtractPCF: boolean ):boolean; external 'ISArcExtract@files:ISDone.dll stdcall delayload';
function IS7ZipExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutPath: AnsiString; DeleteInFile:boolean; Password: AnsiString):boolean; external 'IS7zipExtract@files:ISDone.dll stdcall delayload';
function ISRarExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutPath: AnsiString; DeleteInFile:boolean; Password: AnsiString):boolean; external 'ISRarExtract@files:ISDone.dll stdcall delayload';
function ISPrecompExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutFile: AnsiString; DeleteInFile:boolean):boolean; external 'ISPrecompExtract@files:ISDone.dll stdcall delayload';
function ISSRepExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutFile: AnsiString; DeleteInFile:boolean):boolean; external 'ISSrepExtract@files:ISDone.dll stdcall delayload';
function ISxDeltaExtract(CurComponent:Cardinal; PctOfTotal:double; minRAM,maxRAM:integer; InName, DiffFile, OutFile: AnsiString; DeleteInFile, DeleteDiffFile:boolean):boolean; external 'ISxDeltaExtract@files:ISDone.dll stdcall delayload';
function ISPackZIP(CurComponent:Cardinal; PctOfTotal:double; InName, OutFile: AnsiString;ComprLvl:integer; DeleteInFile:boolean):boolean; external 'ISPackZIP@files:ISDone.dll stdcall delayload';
function ShowChangeDiskWindow(Text, DefaultPath, SearchFile:AnsiString):boolean; external 'ShowChangeDiskWindow@files:ISDone.dll stdcall delayload';

function Exec2 (FileName, Param: PAnsiChar;Show:boolean):boolean; external 'Exec2@files:ISDone.dll stdcall delayload';
function ISFindFiles(CurComponent:Cardinal; FileMask:AnsiString; var ColFiles:integer):integer; external 'ISFindFiles@files:ISDone.dll stdcall delayload';
function ISPickFilename(FindHandle:integer; OutPath:AnsiString; var CurIndex:integer; DeleteInFile:boolean):boolean; external 'ISPickFilename@files:ISDone.dll stdcall delayload';
function ISGetName(TypeStr:integer):PAnsichar; external 'ISGetName@files:ISDone.dll stdcall delayload';
function ISFindFree(FindHandle:integer):boolean; external 'ISFindFree@files:ISDone.dll stdcall delayload';
function ISExec(CurComponent:Cardinal; PctOfTotal,SpecifiedProcessTime:double; ExeName,Parameters,TargetDir,OutputStr:AnsiString;Show:boolean):boolean; external 'ISExec@files:ISDone.dll stdcall delayload';

function SrepInit(TmpPath:PAnsiChar;VirtMem,MaxSave:Cardinal):boolean; external 'SrepInit@files:ISDone.dll stdcall delayload';
function PrecompInit(TmpPath:PAnsiChar;VirtMem:cardinal;PrecompVers:single):boolean; external 'PrecompInit@files:ISDone.dll stdcall delayload';
function FileSearchInit(RecursiveSubDir:boolean):boolean; external 'FileSearchInit@files:ISDone.dll stdcall delayload';
function ISDoneInit(RecordFileName:AnsiString; TimeType,Comp1,Comp2,Comp3:Cardinal; WinHandle, NeededMem:longint; callback:TCallback):boolean; external 'ISDoneInit@files:ISDone.dll stdcall';
function ISDoneStop:boolean; external 'ISDoneStop@files:ISDone.dll stdcall';
function ChangeLanguage(Language:AnsiString):boolean; external 'ChangeLanguage@files:ISDone.dll stdcall delayload';
function SuspendProc:boolean; external 'SuspendProc@files:ISDone.dll stdcall';
function ResumeProc:boolean; external 'ResumeProc@files:ISDone.dll stdcall';

function NumToStr(Float: Extended): String;
begin
  Result:= format('%.2n', [Float]); StringChange(Result, ',', '.');
  while (Result[Length(Result)] = '0')or((Result[Length(Result)] = '.')and(Pos('.', Result) > 0)) do
    SetLength(Result, Length(Result)-1);
end;

function MbOrTb(Float: Extended): String;
begin
  if Float < 1024 then Result:= NumToStr(Float)+' Мб' else
    if Float/1024 < 1024 then Result:= NumToStr(Float/1024)+' Гб' else
      Result:= NumToStr(Float/(1024*1024))+' Тб';
end;

procedure DirEditOnChange(Sender: TObject);
var Drive: String;
begin
  Drive:= ExtractFileDrive(WizardForm.DirEdit.Text);
  GetSpaceOnDisk(Drive, True, FreeMB, TotalMB);
  TotalSpaceLabel.Caption:= 'Всего места на диске: '+MbOrTb(TotalMB);
  FreeSpaceLabel.Caption:= 'Доступно места на диске: '+MbOrTb(FreeMB)+' ('+IntToStr(round(FreeMB*100/TotalMB))+'%)';
  InstallSpacelabel.Caption:= 'Требуется места для установки: '+MbOrTb({#NeedInstallSize});
  NeedSpaceLabel.Caption:= 'Требуется места на диске: '+MbOrTb({#NeedSize});
  WizardForm.NextButton.Enabled:= (FreeMB>{#NeedInstallSize})and(FreeMB>{#NeedSize})  ;
end;

function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;
begin
  if OveralPct<=1000 then ISDoneProgressBar1.Position := OveralPct;
  LabelPct1.Caption := IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+'%';
#ifdef SecondProgressBar
  if CurrentPct<=1000 then ISDoneProgressBar2.Position := CurrentPct;
  LabelPct2.Caption := IntToStr(CurrentPct div 10)+'.'+chr(48 + CurrentPct mod 10)+'%';
#endif
  LabelTime1.Caption:=ExpandConstant('{cm:ElapsedTime} ')+TimeStr2;
  LabelTime2.Caption:=ExpandConstant('{cm:RemainingTime} ')+TimeStr1;
  Result := ISDoneCancel;
end;

procedure CancelButtonOnClick(Sender: TObject);
begin
  SuspendProc;
  if MsgBox(SetupMessage(msgExitSetupMessage), mbConfirmation, MB_YESNO) = IDYES then ISDoneCancel:=1;
  ResumeProc;
end;

procedure HideControls;
begin
  WizardForm.FileNamelabel.Hide;
  ISDoneProgressBar1.Hide;
  LabelPct1.Hide;
  LabelTime1.Hide;
  LabelTime2.Hide;
  MyCancelButton.Hide;
#ifdef SecondProgressBar
  ISDoneProgressBar2.Hide;
  LabelPct2.Hide;
#endif
end;

procedure CreateControls;
var PBTop:integer;
begin
  PBTop:=ScaleY(50);
  ISDoneProgressBar1 := TNewProgressBar.Create(WizardForm);
  with ISDoneProgressBar1 do begin
    Parent   := WizardForm.InstallingPage;
    Height   := WizardForm.ProgressGauge.Height;
    Left     := ScaleX(0);
    Top      := PBTop;
    Width    := ScaleX(365);
    Max      := 1000;
  end;
  LabelPct1 := TLabel.Create(WizardForm);
  with LabelPct1 do begin
    Parent    := WizardForm.InstallingPage;
    AutoSize  := False;
    Left      := ISDoneProgressBar1.Width+ScaleX(5);
    Top       := ISDoneProgressBar1.Top + ScaleY(2);
    Width     := ScaleX(80);
  end;
#ifdef SecondProgressBar
  PBTop:=PBTop+ScaleY(25);
  ISDoneProgressBar2 := TNewProgressBar.Create(WizardForm);
  with ISDoneProgressBar2 do begin
    Parent   := WizardForm.InstallingPage;
    Left     := ScaleX(0);
    Top      := PBTop+ScaleY(8);
    Width    := ISDoneProgressBar1.Width;
    Max      := 1000;
    Height   := WizardForm.ProgressGauge.Height;
  end;
  LabelPct2 := TLabel.Create(WizardForm);
  with LabelPct2 do begin
    Parent    := WizardForm.InstallingPage;
    AutoSize  := False;
    Left      := ISDoneProgressBar2.Width+ScaleX(5);
    Top       := ISDoneProgressBar2.Top + ScaleY(2);
    Width     := ScaleX(80);
  end;
#endif
  LabelTime1 := TLabel.Create(WizardForm);
  with LabelTime1 do begin
    Parent   := WizardForm.InstallingPage;
    AutoSize := False;
    Width    := ISDoneProgressBar1.Width div 2;
    Left     := ScaleX(0);
    Top      := PBTop + ScaleY(35);
  end;
  LabelTime2 := TLabel.Create(WizardForm);
  with LabelTime2 do begin
    Parent   := WizardForm.InstallingPage;
    AutoSize := False;
    Width    := LabelTime1.Width+ScaleX(40);
    Left     := ISDoneProgressBar1.Width div 2;
    Top      := LabelTime1.Top;
  end;
  MyCancelButton:=TButton.Create(WizardForm);
  with MyCancelButton do begin
    Parent:=WizardForm;
    Width:=ScaleX(135);
    Caption:=ExpandConstant('{cm:CancelButton}');
    Left:=ScaleX(360);
    Top:=WizardForm.cancelbutton.top;
    OnClick:=@CancelButtonOnClick;
  end;
end;

Procedure CurPageChanged(CurPageID: Integer);
Begin
  if (CurPageID = wpFinished) and ISDoneError then
  begin
    WizardForm.Caption:= ExpandConstant('{cm:Error}');
    WizardForm.FinishedLabel.Font.Color:= clRed;
    WizardForm.FinishedLabel.Caption:= SetupMessage(msgSetupAborted) ;
  end;
  if CurPageID=wpSelectDir then begin
    DirEditOnChange(nil)
  end;
begin
    FinishedLabel.Caption:= WizardForm.FinishedLabel.Caption;
  end;
end;

function CheckError:boolean;
begin
  result:= not ISDoneError;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var Comps1,Comps2,Comps3, TmpValue:cardinal;
    FindHandle1,ColFiles1,CurIndex1,tmp:integer;
    ExecError:boolean;
    InFilePath,OutFilePath,OutFileName:PAnsiChar;
begin
  if CurStep = ssInstall then begin  //Если необходимо, можно поменять на ssPostInstall
    WizardForm.ProgressGauge.Hide;
    WizardForm.CancelButton.Hide;
    CreateControls;
    WizardForm.StatusLabel.Caption:=ExpandConstant('{cm:Extracted}');
    ISDoneCancel:=0;

// Распаковка всех необходимых файлов в папку {tmp}.

ExtractTemporaryFile('unarc.dll');

#ifdef PrecompInside
ExtractTemporaryFile('CLS-precomp.dll');
ExtractTemporaryFile('packjpg_dll.dll');
ExtractTemporaryFile('packjpg_dll1.dll');
ExtractTemporaryFile('precomp.exe');
ExtractTemporaryFile('zlib1.dll');
#endif
#ifdef SrepInside
ExtractTemporaryFile('CLS-srep.dll');
#endif
#ifdef MSCInside
ExtractTemporaryFile('CLS-MSC.dll');
#endif
#ifdef facompress
    ExtractTemporaryFile('facompress.dll'); //ускоряет распаковку .arc архивов.
#endif
#ifdef records
    ExtractTemporaryFile('records.inf');
#endif
#ifdef precomp
  #if precomp == "0.38"
    ExtractTemporaryFile('precomp038.exe');
  #else
    #if precomp == "0.4"
      ExtractTemporaryFile('precomp040.exe');
    #else
      #if precomp == "0.41"
        ExtractTemporaryFile('precomp041.exe');
      #else
        #if precomp == "0.42"
          ExtractTemporaryFile('precomp042.exe');
        #else
          ExtractTemporaryFile('precomp038.exe');
          ExtractTemporaryFile('precomp040.exe');
          ExtractTemporaryFile('precomp041.exe');
          ExtractTemporaryFile('precomp042.exe');
        #endif
      #endif
    #endif
  #endif
#endif
#ifdef unrar
    ExtractTemporaryFile('Unrar.dll');
#endif
#ifdef XDelta
    ExtractTemporaryFile('XDelta3.dll');
#endif
#ifdef PackZIP
    ExtractTemporaryFile('7z.dll');
    ExtractTemporaryFile('PackZIP.exe');
#endif

    ExtractTemporaryFile('English.ini');

// Подготавливаем переменную, содержащую всю информацию о выделенных компонентах для ISDone.dll
// максимум 96 компонентов.
    Comps1:=0; Comps2:=0; Comps3:=0;
#ifdef Components
    TmpValue:=1;
    if IsComponentSelected('text\rus') then Comps1:=Comps1+TmpValue;     //компонент 1
    TmpValue:=TmpValue*2;
    if IsComponentSelected('text\eng') then Comps1:=Comps1+TmpValue;     //компонент 2
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc1\eng') then Comps1:=Comps1+TmpValue;    //компонент 3
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc2\eng') then Comps1:=Comps1+TmpValue;    //компонент 4
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc3\eng') then Comps1:=Comps1+TmpValue;     //компонент 5
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc4\eng') then Comps1:=Comps1+TmpValue;    //компонент 6
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc5\eng') then Comps1:=Comps1+TmpValue;    //компонент 7
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc6\eng') then Comps1:=Comps1+TmpValue;    //компонент 8
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc1\rus') then Comps1:=Comps1+TmpValue;    //компонент 9
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc2\rus') then Comps1:=Comps1+TmpValue;    //компонент 10
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc3\rus') then Comps1:=Comps1+TmpValue;    //компонент 11
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc4\rus') then Comps1:=Comps1+TmpValue;    //компонент 12
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc5\rus') then Comps1:=Comps1+TmpValue;    //компонент 13
    TmpValue:=TmpValue*2;
    if IsComponentSelected('dlc6\rus') then Comps1:=Comps1+TmpValue;    //компонент 14
//    .....
// см. справку
#endif

#ifdef precomp
  PCFVer:={#precomp};
#else
  PCFVer:=0;
#endif
    ISDoneError:=true;
    if ISDoneInit(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, MainForm.Handle, {#NeedMem}, @ProgressCallback) then begin
      repeat
//        ChangeLanguage('English');     

        if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data1.bin'), ExpandConstant('{app}\Data\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
        if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data2.bin'), ExpandConstant('{app}\Data\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data3.bin'), ExpandConstant('{app}\Data\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data4.bin'), ExpandConstant('{app}\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 1, 0, ExpandConstant('{src}\data12.bin'), ExpandConstant('{app}\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 2, 0, ExpandConstant('{src}\data11.bin'), ExpandConstant('{app}\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 3, 0, ExpandConstant('{src}\data5.bin'), ExpandConstant('{app}\Data\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 4, 0, ExpandConstant('{src}\data6.bin'), ExpandConstant('{app}\Data\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 5, 0, ExpandConstant('{src}\data7.bin'), ExpandConstant('{app}\Data\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;    
        if not ISArcExtract ( 6, 0, ExpandConstant('{src}\data8.bin'), ExpandConstant('{app}\Data\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 7, 0, ExpandConstant('{src}\data9.bin'), ExpandConstant('{app}\Data\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;      
        if not ISArcExtract ( 8, 0, ExpandConstant('{src}\data10.bin'), ExpandConstant('{app}\Data\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 9, 0, ExpandConstant('{src}\Rus\LonesomeRoad.bin'), ExpandConstant('{app}\Data\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 10, 0, ExpandConstant('{src}\Rus\OldWorldBlues.bin'), ExpandConstant('{app}\Data\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 11, 0, ExpandConstant('{src}\Rus\HonestHearts.bin'), ExpandConstant('{app}\Data\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 12, 0, ExpandConstant('{src}\Rus\DeadMoney.bin'), ExpandConstant('{app}\Data\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 13, 0, ExpandConstant('{src}\Rus\GunRunnerArsenal.bin'), ExpandConstant('{app}\Data\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 14, 0, ExpandConstant('{src}\Rus\CouriersStash.bin'), ExpandConstant('{app}\Data\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        

//    далее находятся закомментированые примеры различных функций распаковки (чтобы каждый раз не лазить в справку за примерами)
(*
        if not ISArcExtract    ( 0, 0, ExpandConstant('{src}\arc.arc'), ExpandConstant('{app}\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
        if not IS7ZipExtract   ( 0, 0, ExpandConstant('{src}\CODMW2.7z'), ExpandConstant('{app}\data1'), false, '') then break;
        if not ISRarExtract    ( 0, 0, ExpandConstant('{src}\data_*.rar'), ExpandConstant('{app}'), false, '') then break;
        if not ISSRepExtract   ( 0, 0, ExpandConstant('{app}\data1024_1024.srep'),ExpandConstant('{app}\data1024.arc'), true) then break;
        if not ISPrecompExtract( 0, 0, ExpandConstant('{app}\data.pcf'),    ExpandConstant('{app}\data.7z'), true) then break;
        if not ISxDeltaExtract ( 0, 0, 0, 640, ExpandConstant('{app}\in.pcf'), ExpandConstant('{app}\*.diff'),   ExpandConstant('{app}\out.dat'), false, false) then break;
        if not ISPackZIP       ( 0, 0, ExpandConstant('{app}\1a1\*'), ExpandConstant('{app}\1a1.pak'), 2, false ) then break;
        if not ISExec          ( 0, 0, 0, ExpandConstant('{tmp}\Arc.exe'), ExpandConstant('x -o+ "{src}\001.arc" "{app}\"'), ExpandConstant('{tmp}'), '...',false) then break;
        if not ShowChangeDiskWindow ('Пожалуйста, вставьте второй диск и дождитесь его инициализации.', ExpandConstant('{src}'),'CODMW_2.arc') then break;

//    распаковка группы файлов посредством внешнего приложения

        FindHandle1:=ISFindFiles(0,ExpandConstant('{app}\*.ogg'),ColFiles1);
        ExecError:=false;
        while not ExecError and ISPickFilename(FindHandle1,ExpandConstant('{app}\'),CurIndex1,true) do begin
          InFilePath:=ISGetName(0);
          OutFilePath:=ISGetName(1);
          OutFileName:=ISGetName(2);
          ExecError:=not ISExec(0, 0, 0, ExpandConstant('{tmp}\oggdec.exe'), '"'+InFilePath+'" -w "'+OutFilePath+'"',ExpandConstant('{tmp}'),OutFileName,false);
        end;
        ISFindFree(FindHandle1);
        if ExecError then break;
*)

        ISDoneError:=false;
      until true;
      ISDoneStop;
    end;
    HideControls;
    WizardForm.CancelButton.Visible:=true;
    WizardForm.CancelButton.Enabled:=false;
  end;
  if (CurStep=ssPostInstall) and ISDoneError then begin
    Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', false);
  end;
end;

///////////////////////////////////////Изоображения///////////////////////////////////////////////
procedure InitializeWizard1(); 
begin 
ExtractTemporaryFile('final.bmp'); 
 
WizardForm.WizardBitmapImage.Width:= ScaleX(497); 
WizardForm.WizardBitmapImage.Height:=ScaleY(280);
WizardForm.WizardBitmapImage2.Width:= ScaleX(497); 
WizardForm.WizardBitmapImage2.Height:=ScaleY(280);
WizardForm.WizardBitmapImage2.Bitmap.LoadFromFile(ExpandConstant('{tmp}\final.bmp')); 
 
WelcomeLabel1:= TLabel.Create(WizardForm); 
WelcomeLabel1.AutoSize:= False; 
with WizardForm.WelcomeLabel1 do 
WelcomeLabel1.SetBounds(Left, Top, Width, Height); 
WelcomeLabel1.Font:= WizardForm.WelcomeLabel1.Font 
WelcomeLabel1.Font.Color:= clWhite; 
WelcomeLabel1.Transparent:= True; 
WelcomeLabel1.WordWrap:= true; 
WelcomeLabel1.Caption:= WizardForm.WelcomeLabel1.Caption; 
WelcomeLabel1.Parent:= WizardForm.WelcomePage 
 
WelcomeLabel2:= TLabel.Create(WizardForm); 
WelcomeLabel2.AutoSize:= False; 
with WizardForm.WelcomeLabel2 do 
WelcomeLabel2.SetBounds(Left, Top, Width, Height); 
WelcomeLabel2.Font:= WizardForm.WelcomeLabel2.Font 
WelcomeLabel2.Font.Color:= clWhite; 
WelcomeLabel2.Transparent:= True; 
WelcomeLabel2.WordWrap:= true; 
WelcomeLabel2.Caption:= WizardForm.WelcomeLabel2.Caption; 
WelcomeLabel2.Parent:= WizardForm.WelcomePage 
 
FinishedHeadingLabel:= TLabel.Create(WizardForm); 
FinishedHeadingLabel.AutoSize:= False; 
with WizardForm.FinishedHeadingLabel do 
FinishedHeadingLabel.SetBounds(Left, Top, Width, Height); 
FinishedHeadingLabel.Font:= WizardForm.FinishedHeadingLabel.Font 
FinishedHeadingLabel.Font.Color:= clWhite; 
FinishedHeadingLabel.Transparent:= True; 
FinishedHeadingLabel.WordWrap:= true; 
FinishedHeadingLabel.Caption:= WizardForm.FinishedHeadingLabel.Caption; 
FinishedHeadingLabel.Parent:= WizardForm.FinishedPage 
 
FinishedLabel:= TLabel.Create(WizardForm); 
FinishedLabel.AutoSize:= False; 
with WizardForm.FinishedLabel do 
FinishedLabel.SetBounds(Left, Top, Width, Height); 
FinishedLabel.Font:= WizardForm.FinishedLabel.Font 
FinishedLabel.Font.Color:= clWhite; 
FinishedLabel.Transparent:= True; 
FinishedLabel.WordWrap:= true; 
FinishedLabel.Caption:= WizardForm.FinishedLabel.Caption; 
FinishedLabel.Parent:= WizardForm.FinishedPage 
 
WizardForm.WelcomeLabel1.Hide; 
WizardForm.WelcomeLabel2.Hide; 
WizardForm.FinishedLabel.Hide; 
WizardForm.FinishedHeadingLabel.Hide; 
end; 
///////////////////////////////////////Изоображения (Конец)///////////////////////////////////////////////

///////////////////////////////////////Место на диске///////////////////////////////////////////////
procedure InitializeWizard2();
begin
  TotalSpaceLabel:= TLabel.Create(WizardForm);
  TotalSpaceLabel.AutoSize:= False;
  TotalSpaceLabel.SetBounds(0, 120, 300, 20);
  TotalSpaceLabel.Parent:= WizardForm.SelectDirpage;
 
  FreeSpaceLabel:= TLabel.Create(WizardForm);
  FreeSpaceLabel.AutoSize:= False;
  FreeSpaceLabel.SetBounds(0, 140, 300, 20);
  FreeSpaceLabel.Parent:= WizardForm.SelectDirpage;
 
  InstallSpacelabel:= TLabel.Create(WizardForm);
  InstallSpacelabel.AutoSize:= False;
  InstallSpacelabel.SetBounds(0, 160, 300, 20);
  InstallSpacelabel.Parent:= WizardForm.SelectDirpage;
   
  NeedSpaceLabel:= TLabel.Create(WizardForm);
  NeedSpaceLabel.AutoSize:= False;
  NeedSpaceLabel.SetBounds(0, 180, 300, 20);
  NeedSpaceLabel.Parent:= WizardForm.SelectDirpage;
   
  WizardForm.ComponentsDiskSpaceLabel.Hide;

  WizardForm.DirEdit.OnChange:=@DirEditOnChange;
end;
///////////////////////////////////////Место на диске (Конец)///////////////////////////////////////////////

procedure InitializeWizard();
begin
  InitializeWizard1();
  InitializeWizard2();
  WizardForm.Position:=poScreenCenter;
end;
[/spoiler]Заранее благодарен!

PS. 
Если перемещать текст это долго и нудно, то просто опишите мне как и я сам это сделаю.

 

[SaintPaul]

Скажите пожалуйста, то, что в самом инсталяционном окне все меняется с помощью кодов -я понял, а вот каким образом можно изменить саму рамку окна? Изменить кнопки на ней либо переместить их?

 

[YURSHAT]

SaintPaul, скачать версию от китайсев, переключится в режим FormDesigner, подвигать элементы и посмотреть результат в коде...

 

[SaintPaul]

YURSHAT, спасибо, так и делаю, в принципе ) Но вот не понял, как саму панель изменить, та где кнопки свернуть, закрыть размещаются )

 

[alexa1995]

При запуске инстала файл например 1.ехе копируется на диск С: при попытке запуска 2й версии инстала выбивает ошибку.
Внимание вопрос.!
Как сделать проверку в скрытом режиме и чтоб только после нее распаковывался файл 1.ехе

 

[vint56]

AntonOVS
вот пример

#define GameName "Call of Duty"
[Setup]
AppName={#GameName}
AppVerName={#GameName}
DefaultDirName={pf}\{#GameName}
DefaultGroupName={#GameName}

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

[CustomMessages]
rus.Welcome1=Вас приветствует мастер установки игры «{#GameName}»
rus.Finished1=Установка игры «{#GameName}» успешно завершена

var
  MyText1: TNewStaticText;
  MyText2: TNewStaticText;


procedure InitializeWizard();
begin
  WizardForm.WelcomeLabel1.Hide;
  WizardForm.WelcomeLabel2.Hide;
  WizardForm.FinishedHeadingLabel.Hide;
  WizardForm.FinishedLabel.Hide;

  MyText1 := TNewStaticText.Create(WizardForm);
  with MyText1 do
  begin
    Name := 'MyText1';
    Parent := WizardForm;
    AutoSize := False;
    WordWrap := True;
    Caption:=ExpandConstant('{cm:Welcome1}');
// Caption := 'Вас приветствует Мастер установки My Application' + #13#10 + '';
    Font.Color := clWindowText;
    Font.Height := -9;
    ParentFont := False;
    ShowAccelChar := False;
    Left := ScaleX(8);
    Top := ScaleY(319);
    Width := ScaleX(221);
    Height := ScaleY(31);
  end;

  MyText2 := TNewStaticText.Create(WizardForm);
  with MyText2 do
  begin
    Name := 'MyText';
    Parent := WizardForm;
    AutoSize := False;
    WordWrap := True;
    Caption:=ExpandConstant('{cm:Finished1}');
//  Caption := 'Завершение Мастера установки [AppName]' + #13#10 + '';
    Font.Color := clWindowText;
    Font.Height := -9;
    ParentFont := False;
    ShowAccelChar := False;
    Left := ScaleX(8);
    Top := ScaleY(319);
    Width := ScaleX(221);
    Height := ScaleY(31);
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
   MyText1.Hide;
   MyText2.Hide;
if CurPageID=wpWelcome then
  MyText1.Show;
if CurPageID=wpFinished then
  MyText2.Show;
end;[/more]

 

[murlakatamenka]

murlakatamenka, ну например вы куда-то спешите и вам вот хочется поставить игру на установку и пойти. Вы ставите на инсталляцию и ставите галочку напротив этой функции и с мыслью что компьютер выключится после установки вы спокойно идете по делам, вот так-то.
Извините, ничего не понял с вашего ответа, не могли бы вы показать на примере ?

В принципе, Gnom уже ответил на данный вопрос.
Я имел ввиду следующее (сделать через таск).

Спойлер: Код (проверен)

[font=Courier New][color=#000000][color=#FF0000]#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"

[/color][b][Setup]
[/b][color=#0000FF]AppName[/color]=[color=#FF0000]{#MyAppName}
[/color][color=#0000FF]AppVersion[/color]=[color=#FF0000]{#MyAppVersion}
[/color][color=#0000FF]AppPublisher[/color]=[color=#FF0000]{#MyAppPublisher}
[/color][color=#0000FF]AppPublisherURL[/color]=[color=#FF0000]{#MyAppURL}
[/color][color=#0000FF]AppSupportURL[/color]=[color=#FF0000]{#MyAppURL}
[/color][color=#0000FF]AppUpdatesURL[/color]=[color=#FF0000]{#MyAppURL}
[/color][color=#0000FF]DefaultDirName[/color]=[color=#FF00FF]{pf}[/color]\[color=#FF0000]{#MyAppName}
[/color][color=#0000FF]DefaultGroupName[/color]=[color=#FF0000]{#MyAppName}
[/color][color=#0000FF]OutputBaseFilename[/color]=setup
[color=#0000FF]Compression[/color]=lzma
[color=#0000FF]SolidCompression[/color]=yes

[b][Languages]
[/b][color=#0000FF]Name[/color]: "default"; [color=#0000FF]MessagesFile[/color]: "compiler:Default.isl"

[b][Tasks]
[/b][color=#0000FF]Name[/color]: "ping"; [color=#0000FF]Description[/color]: "Попинговать самого себя :)";
[color=#0000FF]Name[/color]: "shutdown"; [color=#0000FF]Description[/color]: "Выключить компьютер после завершения установки. Внимание! Все программы будут принудительно закрыты! Не забудьте сохранить результаты их работы!"; [color=#0000FF]Flags[/color]: [color=#802020]unchecked[/color];

[b][Files]
[/b][color=#0000FF]Source[/color]: "X:\Portable Soft\Inno Setup 5\Examples\MyProg.exe"; [color=#0000FF]DestDir[/color]: "[color=#FF00FF]{app}[/color]"; [color=#0000FF]Flags[/color]: [color=#802020]ignoreversion
[/color][color=#008000]; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[/color][b][Run]
[/b][color=#0000FF]Filename[/color]: "[color=#FF00FF]{sys}[/color]\cmd.exe"; [color=#0000FF]Parameters[/color]: "/C ""ping -t 192.168.1.1"""; [color=#0000FF]Flags[/color]: [color=#802020]nowait[/color]; [color=#0000FF]Tasks[/color]: ping;
[color=#0000FF]Filename[/color]: "[color=#FF00FF]{sys}[/color]\cmd.exe"; [color=#0000FF]Parameters[/color]: "/C ""shutdown -s -f"""; [color=#0000FF]Flags[/color]: [color=#802020]nowait[/color]; [color=#0000FF]Tasks[/color]: shutdown;
[/color][/font]

ЗЫ. у мну {sys} работает.

 

[YURSHAT]

о вот не понял, как саму панель изменить, та где кнопки свернуть, закрыть размещаются

Эту панель "строкой заголовка" кличут Ее винда генерирует и "двигать" кнопки на ней не возможно, только убрать можно

ЗЫ. у мну {sys} работает.

А что не должно?

 

[murlakatamenka]

А что не должно?

ну если принять игристого и шлифануть вермутом, то видимо нет

[ADMIN="YURSHAT"][/ADMIN]

 

[nik1967]

K.I.S, вверху справа в выпадающем списке выбираешь InnerNotebook и растягиваешь/сжимаешь.

 

[demon777]

мужики помогите разобраться со скриптом. Все компилируются но при запуске вылетает ошибка

Не могу понять в чем проблема
вот скрипт подробно

#include "Modules\botva2.iss"

[Setup]
AppName=My Program
AppVerName=My Program 1.5
AppPublisher=My Company, Inc.
DefaultDirName=C:\example

[Files]
Source: Files\Music\bass.dll; DestDir: {tmp}; Flags: dontcopy
Source: Files\Music.mp3; DestDir: {tmp}; Flags: dontcopy nocompression
Source: Files\Music\checkbox.png; DestDir: {tmp}; Flags: dontcopy

const 
BASS_SAMPLE_LOOP = 4; 

  var 
  Mp3Label: TLabel;
  MusBtn, mp3Handle: HWND; 

function BASS_Init(device: Integer; freq, flags: DWORD; win: hwnd; CLSID: Integer): Boolean; external 'BASS_Init@files:BASS.dll stdcall delayload';
function BASS_StreamCreateFile(mem: BOOL; f: PAnsiChar; offset1: DWORD; offset2: DWORD; length1: DWORD; length2: DWORD; flags: DWORD): DWORD; external 'BASS_StreamCreateFile@files:BASS.dll stdcall delayload';
function BASS_Start: Boolean; external 'BASS_Start@files:BASS.dll stdcall delayload';
function BASS_ChannelPlay(handle: DWORD; restart: BOOL): Boolean; external 'BASS_ChannelPlay@files:BASS.dll stdcall delayload';
function BASS_Stop: Boolean; external 'BASS_Stop@files:BASS.dll stdcall delayload';
function BASS_Free: Boolean; external 'BASS_Free@files:BASS.dll stdcall delayload';

procedure BtnClick(hBtn:HWND);
begin
  case hBtn of
        MusBtn: if not BtnGetChecked(MusBtn) then BASS_Stop
    else if BASS_Start then BASS_ChannelPlay(mp3Handle, False);
        end;
    end;

procedure BtnEvents(Btn: HWND; ClickEvent: TBtnEventProc);
begin
  if ClickEvent <> nil then BtnSetEvent(Btn, 1, WrapBtnCallback(ClickEvent, 1));
end;
   
procedure BtnTextures;
begin
  MusBtn:=BtnCreate(WizardForm.Handle,ScaleX(10),ScaleY(20),ScaleX(78),ScaleY(33),ExpandConstant('CheckBox.png'),1,True);
  BtnSetCursor(MusBtn,GetSysCursorHandle(32649));
  BtnSetChecked(MusBtn, True);
  end;

function InitializeSetup(): Boolean; 
begin 
ExtractTemporaryFile('Music.mp3');
  ExtractTemporaryFile('BASS.dll');
  BASS_Init(-1, 44100, 0, 0, 0);
  mp3Handle := BASS_StreamCreateFile(FALSE, PAnsiChar(ExpandConstant('{tmp}\Music.mp3')), 0, 0, 0, 0, BASS_SAMPLE_LOOP);
  BASS_Start;
  BASS_ChannelPlay(mp3Handle,False);
   Mp3Label:= TLabel.Create(WizardForm);
    with Mp3Label do begin
    SetBounds(ScaleX(40), ScaleY(3), ScaleX(40), ScaleY(20));
    Caption:= 'Audio';
    Transparent:= True;
    Alignment:= taCenter;
    Parent:= WizardForm;
    Font.Color:= clWhite;
    Font.Name:= 'Tahoma';
    Font.Size:= 10;
  end; 
end; 

procedure DeinitializeSetup;
begin
  BASS_Stop();
  BASS_Free();
  end;
[/MORE]

 

[demon777]

demon777, скрипт с файлами в студию

http://rghost.ru/37366261

K.I.S спасибо за скрипты, воспользовался первым который выложил он лучше

Еще вопрос как перенести все со страницы StartMenuFolder на TasksPage?

Вот так должно быть на выходе

 

[ARS_23]

demon777,

WizardForm.GroupEdit.Parent:= WizardForm.SelectTasksPage;
WizardForm.GroupBrowseButton.Parent:= WizardForm.SelectTasksPage;
WizardForm.NoIconsCheck.Parent:= WizardForm.SelectTasksPage;