FileForums - Blackbox Inno Setup Script

for me no restart
Code:
//----------This Installer Uses Inno Setup Unicode Version----------\\

#define AppName "Kurutucu"

#define AppPublisher "Fileforums"

#define AppVersion "1.0.8.0"

#define AppExec "Kurutucu.exe" 

#define AppURL "https://www.facebook.com/cemal93"

#define AppSize "1000"                 

#define SetupName "Setup"  

#define SetupOut "Output"



#define PrecompVer "Inside" 



[Setup]

AppName={#AppName}

AppPublisher={#AppPublisher}

AppVersion={#AppVersion}

AppComments={#AppName}

DefaultDirName={pf}\{#AppPublisher}\{#AppName}

DefaultGroupName={#AppName}     

OutputBaseFilename={#SetupName}

OutputDir={#SetupOut}

SetupIconFile=Style\Setup.ico

WizardImageFile=Style\Background.bmp

WizardSmallImageFile=Style\smallbitmap.bmp

Compression=none

AlwaysRestart = no



[Icons]

Name: {group}\Uninstall {#AppName}; Filename: {app}\unins000.exe; WorkingDir: {app}; Check: CheckError

Name: {group}\{#AppName}; Filename: {app}\{#AppExec}; WorkingDir: {app}; Check: CheckError

Name: {commondesktop}\{#AppName}; Filename: {app}\{#AppExec}; WorkingDir: {app}; Check: CheckError



[Files]

Source: Include\*.*; DestDir: {tmp}; Flags: dontcopy

Source: Style\*.*; DestDir: {tmp}; Flags: dontcopy



[Messages]

SetupWindowTitle=Welcome to The Setup Wizard «{#AppName}»

  

[CustomMessages]

SoundCtrlButtonCaptionSoundOn=Music on

SoundCtrlButtonCaptionSoundOff=Music off 



[Languages]

Name: eng; MessagesFile: compiler:Default.isl



[Components]

Name: "directx"; Description: "Install DirectX"

Name: "visualc"; Description: "Install Visual C++"

Name: "nvidiaphysx"; Description: "Install Nvidia Physx"

Name: "framework"; Description: "Install Framework"



[Tasks]

Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked



[UninstallDelete]

Type: filesandordirs; Name: {app}



[_Code]

const

  BASS_SAMPLE_LOOP = 4;

  BASS_ACTIVE_STOPPED = 0;

  BASS_ACTIVE_PLAYING = 1;

  BASS_ACTIVE_STALLED = 2;

  BASS_ACTIVE_PAUSED  = 3;

  BASS_UNICODE = $80000000;

  BASS_CONFIG_GVOL_STREAM = 5;

const

  #ifndef UNICODE

    EncodingFlag = 0;

  #else

    EncodingFlag = BASS_UNICODE;

  #endif

type

  HSTREAM = DWORD;



function BASS_Init(device: LongInt; freq, flags: DWORD;

  win: HWND; clsid: Cardinal): BOOL;

  external 'BASS_Init@files:bass.dll stdcall';

function BASS_StreamCreateFile(mem: BOOL; f: string; offset1: DWORD;

  offset2: DWORD; length1: DWORD; length2: DWORD; flags: DWORD): HSTREAM;

  external 'BASS_StreamCreateFile@files:bass.dll stdcall';

function BASS_Start: BOOL;

  external 'BASS_Start@files:bass.dll stdcall';

function BASS_Pause: BOOL;

  external 'BASS_Pause@files:bass.dll stdcall';

function BASS_ChannelPlay(handle: DWORD; restart: BOOL): BOOL;

  external 'BASS_ChannelPlay@files:bass.dll stdcall';

function BASS_SetConfig(option: DWORD; value: DWORD ): BOOL;

  external 'BASS_SetConfig@files:bass.dll stdcall';

function BASS_ChannelIsActive(handle: DWORD): DWORD;

  external 'BASS_ChannelIsActive@files:bass.dll stdcall';

function BASS_Free: BOOL;

  external 'BASS_Free@files:bass.dll stdcall';



var

  SoundStream: HSTREAM;

  SoundCtrlButton: TNewButton;



procedure SoundCtrlButtonClick(Sender: TObject);

begin

  case BASS_ChannelIsActive(SoundStream) of

    BASS_ACTIVE_PLAYING:

    begin

      if BASS_Pause then

        SoundCtrlButton.Caption :=

          ExpandConstant('{cm:SoundCtrlButtonCaptionSoundOn}');

    end;

    BASS_ACTIVE_PAUSED:

    begin

      if BASS_Start then

        SoundCtrlButton.Caption :=

          ExpandConstant('{cm:SoundCtrlButtonCaptionSoundOff}');

    end;

  end;

end;



{ RedesignWizardFormBegin } // Don't remove this line!

// Don't modify this section. It is generated automatically.

procedure RedesignWizardForm;

begin

  with WizardForm.ProgressGauge do

  begin

    Height := ScaleY(13);

  end;



{ ReservationBegin }

  // This part is for you. Add your specialized code here.



{ ReservationEnd }

end;

// Don't modify this section. It is generated automatically.

{ RedesignWizardFormEnd } // Don't remove this line!





type

#ifdef UNICODE

 PChar = PAnsiChar;

#endif

const

  PCFonFLY=true;

  notPCFonFLY=false;

var

  LabelPct1,LabelCurrFileName,LabelTime1,LabelTime2,LabelTime3: TLabel;

  ISDoneProgressBar1: TNewProgressBar;

  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 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)+'%';

  LabelCurrFileName.Caption:=' Extracting File: '+MinimizePathName(CurrentFile, LabelCurrFileName.Font, LabelCurrFileName.Width-ScaleX(100));

  LabelTime1.Caption:=' Time Elapsed: '+TimeStr2;

  LabelTime2.Caption:='Time Remaining: '+TimeStr1;

 // LabelTime3.Caption:='Installing time:'+TimeStr3;

  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;

  LabelCurrFileName.Hide;

  LabelTime1.Hide;

  LabelTime2.Hide;

  MyCancelButton.Hide;

end;



procedure CreateControls;

var PBTop:integer;

begin

  PBTop:=ScaleY(150);

  ISDoneProgressBar1 := TNewProgressBar.Create(WizardForm);

  with ISDoneProgressBar1 do begin

    Parent   := WizardForm;

    Height   := 25;

    Left     := ScaleX(77);

    Top      := PBTop;

    Width    := ScaleX(500);

    Max      := 1000;

  end;

  LabelCurrFileName := TLabel.Create(WizardForm);

  with LabelCurrFileName do begin

    Parent   := WizardForm;

    AutoSize := False;

    Width    := ISDoneProgressBar1.Width+ScaleX(30);

    Left     := ISDoneProgressBar1.Left;

    Top      := PBTop-20;

  end;



  LabelTime1 := TLabel.Create(WizardForm);

  with LabelTime1 do begin

    Parent   := WizardForm;

    AutoSize := False;

    Width    := ISDoneProgressBar1.Width div 2;

    Left     := ISDoneProgressBar1.Left;

    Top      := PBTop + ScaleY(30);

  end;

  LabelTime2 := TLabel.Create(WizardForm);

  with LabelTime2 do begin

    Parent   := WizardForm;

    AutoSize := False;

    Width    := LabelTime1.Width+ScaleX(40);

    Left     := 400;

    Top      := LabelTime1.Top;

  end;

  LabelPct1 := TLabel.Create(WizardForm);

  with LabelPct1 do begin

    Parent    := WizardForm;

    AutoSize  := true;

    Font.Height:=-24;

    Left      := ISDoneProgressBar1.Left -33 + ISDoneProgressBar1.Width div 2;

    Top       := ISDoneProgressBar1.Top + ScaleY(70);

    //Width     := ScaleX(80);

  end;

//  LabelTime3 := TLabel.Create(WizardForm);

//  with LabelTime3 do begin

//    Parent   := WizardForm;

//    AutoSize := False;

//    Width    := 300;

//    Left     := 180;

//    Top      := 200;

//  end;

  MyCancelButton:=TButton.Create(WizardForm);

  with MyCancelButton do begin

    Parent:=WizardForm;

    Width:=ScaleX(150);

    Caption:='Cancel';

    Left:=ScaleX(347);

    Height:=ScaleX(30);

    Left:=(480);

    Top:=WizardForm.cancelbutton.top;

    OnClick:=@CancelButtonOnClick;

  end;

end;





function CheckError:boolean;

begin

  result:= not ISDoneError;

end;



// Importing LoadSkin API from ISSkin.DLL

procedure LoadSkin(lpszPath: PAnsiChar; lpszIniFileName: PAnsiChar);

external 'LoadSkin@{tmp}\isskin.dll stdcall delayload';



// Importing UnloadSkin API from ISSkin.DLL

procedure UnloadSkin;

external 'UnloadSkin@{tmp}\isskin.dll stdcall delayload';



// Importing ShowWindow Windows API from User32.DLL

function ShowWindow(hWnd: Integer; uType: Integer): Integer;

external '[email protected] stdcall';



var

  WelcomeLbl,DirLbl,GroupLbl,TasksLbl,FreeSpaceLabel,NeedSpaceLabel,GameSpaceLabel,PartitionSpaceLabel,Status: TLabel;

  DirBevel,GroupBevel,TasksBevel,TasksSeparateBevel,Bevel1,Bevel11,Bevel2,Bevel3,Bevel4,Bevel5,Bevel6,Bevel7,Bevel8,Bevel9,Bevel20,Bevel21,Bevel22,Bevel23: TBevel;

  FreeMB,TotalMB: cardinal;



function InitializeSetup1(): Boolean;

begin

  ExtractTemporaryFile('isskin.dll');

        ExtractTemporaryFile('skin.cjstyles');

        LoadSkin(ExpandConstant('{tmp}\skin.cjstyles'), '');

        Result := True;

end;



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(Byte: Extended): String;

begin

if Byte < 1024 then Result:= NumToStr(Byte) + ' MB' else

  if Byte/1024 < 1024 then Result:= NumToStr(round(Byte/1024*100)/100) + ' GB' else

     Result:= NumToStr(round((Byte/(1024*1024))*100)/100) + ' TB'

end;



procedure GetFreeSpaceCaption(Sender: TObject);

var Path: String;

begin

  Path := ExtractFileDrive(WizardForm.DirEdit.Text);

  GetSpaceOnDisk(Path, True, FreeMB, TotalMB);

  PartitionSpaceLabel.Caption:= ExpandConstant('Partition Space : ') + MbOrTb(TotalMB);

  FreeSpaceLabel.Caption := ExpandConstant('Free Space : ') + MbOrTb(FreeMB) + ' (' + IntToStr((FreeMB * 100) div TotalMB) + '%)';

  GameSpaceLabel.Caption := ExpandConstant('Game Space : ') + MbOrTb({#AppSize});

  NeedSpaceLabel.Caption := ExpandConstant('Total Needed Space : ') + MbOrTb({#AppSize});

  if (FreeMB<{#AppSize}) then

    FreeSpaceLabel.Font.Color:=clRed

  else

    PartitionSpaceLabel.Font.Color:=NeedSpaceLabel.Font.Color;

    WizardForm.NextButton.Enabled:=FreeMB>{#AppSize};

end;



var

  DirectXCB,VisualCCB,NvidiaPhysx,Framework,IconCB: TNewCheckBox;

//---COMPONENTS POSITION CONTROL---\\

procedure Tasks;

begin

  TasksBevel := TBevel.Create(WizardForm);

  with TasksBevel do

  begin

    Parent := WizardForm;

    Left := ScaleX(90);

    Top := ScaleY(150);

    Width := ScaleX(470);

    Height := ScaleY(73);

  end;

//------------------------\\



//---Top---\\

  Bevel20 := TBevel.Create(WizardForm);

  with Bevel20 do

  begin

    Parent := WizardForm;

    Left := ScaleX(92);

    Top := ScaleY(150);

    Width := ScaleX(470);

    Height := ScaleY(2);

  end;

//---Bottom---\\

    Bevel21 := TBevel.Create(WizardForm);

  with Bevel21 do

  begin

    Parent := WizardForm;

    Left := ScaleX(92);

    Top := ScaleY(308);

    Width := ScaleX(470);

    Height := ScaleY(2);

  end;

//---Left---\\

  Bevel22 := TBevel.Create(WizardForm);

  with Bevel22 do

  begin

    Parent := WizardForm;

    Left := ScaleX(92);

    Top := ScaleY(152);

    Width := ScaleX(2);

    Height := ScaleY(158);

  end;

//---Right---\\

  Bevel23 := TBevel.Create(WizardForm);

  with Bevel23 do

  begin

    Parent := WizardForm;

    Left := ScaleX(560);

    Top := ScaleY(152);

    Width := ScaleX(2);

    Height := ScaleY(156);

  end;

//------------------------\\

  

  DirectXCB := TNewCheckBox.Create(WizardForm);

  with DirectXCB do

  begin

    Parent := WizardForm;

    Left :=(112);

    Top :=(170);

    Width := ScaleX(265);

    Height := ScaleY(17);

    Caption:='Install DirectX';

  end;

  

  VisualCCB := TNewCheckBox.Create(WizardForm);

  with VisualCCB do

  begin

    Parent := WizardForm;

    Left :=(112);

    Top :=(190);

    Width := ScaleX(265);

    Height := ScaleY(17);

    Caption := 'Install Visual C ++';

  end;

  

  NvidiaPhysx := TNewCheckBox.Create(WizardForm);

  with NvidiaPhysx do

  begin

    Parent := WizardForm;

    Left :=(112);

    Top :=(210);

    Width := ScaleX(265);

    Height := ScaleY(17);

    Caption:='Install Nvidia Physx';

  end;

  

  Framework := TNewCheckBox.Create(WizardForm);

  with Framework do

  begin

    Parent := WizardForm;

    Left :=(112);

    Top :=(230);

    Width := ScaleX(265);

    Height := ScaleY(17);

    Caption:='Install Framework';

  end;

  

  TasksSeparateBevel := TBevel.Create(WizardForm);

  with TasksSeparateBevel do

  begin

    Parent := WizardForm;

    Left :=(10);

    Top :=(260);

    Width := TasksBevel.Width - 0;

    Height := ScaleY(2);

    Width := ScaleX(440);

    Left := ScaleX(107);

  end;

  

  IconCB := TNewCheckBox.Create(WizardForm);

  with IconCB do

  begin

    Parent := WizardForm;

    Left := (112);

    Top :=(275);

    Width := ScaleX(255);

    Height := ScaleY(17);

    Caption := 'Create Desktop Shortcut';

  end;

end;



//-----------------------------------\\



procedure LogoLabelOnClick(Sender: TObject);

var

  ErrorCode: Integer;

  begin

  ShellExec('open', '{#AppURL}', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)

end;



procedure InitializeWizard1();

begin

  WizardForm.WizardBitmapImage2.Cursor:=crHand;

  WizardForm.WizardBitmapImage2.OnClick:=@LogoLabelOnClick;

  WizardForm.ClientWidth:=654;

  WizardForm.ClientHeight:=402;

  WizardForm.InnerNotebook.Hide;

  WizardForm.OuterNotebook.Hide;

  WizardForm.WizardBitmapImage.Stretch:=True;

  WizardForm.WizardBitmapImage.Parent:=WizardForm;

  ExtractTemporaryFile ('logo.bmp');

  WizardForm.WizardBitmapImage2.Width := ScaleX(230);

  WizardForm.WizardBitmapImage2.Height := ScaleX(55);

  WizardForm.WizardBitmapImage2.Top:=340;

  WizardForm.WizardBitmapImage2.Left:=5;

  WizardForm.WizardBitmapImage2.Bitmap.LoadFromFile(ExpandConstant('{tmp}\logo.bmp'));

  WizardForm.WizardBitmapImage2.Parent:=WizardForm;

  WizardForm.WizardSmallBitmapImage.Stretch:=True;

  WizardForm.WizardSmallBitmapImage.Parent:=WizardForm;

  WizardForm.WizardSmallBitmapImage.SetBounds(0,0,WizardForm.ClientWidth,90);

  WizardForm.Bevel1.Parent:=WizardForm;

  WizardForm.Bevel1.Top:=90;

  WizardForm.Bevel1.Width:=WizardForm.ClientWidth;

  WizardForm.Bevel.Parent:=WizardForm;

  WizardForm.Bevel.Top:=330;

  WizardForm.Bevel.Width:=WizardForm.ClientWidth;

  WizardForm.SelectDirBitmapImage.Parent:=WizardForm;

  WizardForm.SelectDirBitmapImage.Top:=125;

  WizardForm.SelectDirBitmapImage.Left:=40;

  WizardForm.DirEdit.Parent:=WizardForm;

  WizardForm.DirEdit.Top:=130;

  WizardForm.DirEdit.Left:=75;

  WizardForm.DirEdit.Width:=430;

  WizardForm.DirEdit.OnChange:=@GetFreeSpaceCaption;

  WizardForm.DirBrowseButton.Parent:=WizardForm;

  WizardForm.DirBrowseButton.Top:=125;

  WizardForm.DirBrowseButton.Left:=515;

  WizardForm.DirBrowseButton.Width:=90;

  WizardForm.DirBrowseButton.Height:=30;

  WizardForm.GroupEdit.Parent:=WizardForm;

  WizardForm.GroupEdit.Top:=255;

  WizardForm.GroupEdit.Left:=75;

  WizardForm.GroupEdit.Width:=430;

  WizardForm.GroupBrowseButton.Parent:=WizardForm;

  WizardForm.GroupBrowseButton.Top:=250;

  WizardForm.GroupBrowseButton.Left:=515;

  WizardForm.GroupBrowseButton.Width:=90;

  WizardForm.GroupBrowseButton.Height:=30;

  WizardForm.NoIconsCheck.Parent:=WizardForm;

  WizardForm.NoIconsCheck.Left:=75;

  WizardForm.NoIconsCheck.Top:=285;

  WizardForm.SelectGroupBitmapImage.Parent:=WizardForm;

  WizardForm.SelectGroupBitmapImage.Top:=250;

  WizardForm.SelectGroupBitmapImage.Left:=40;

  WizardForm.WizardBitmapImage.SetBounds(0,0,WizardForm.ClientWidth,330);

  WizardForm.NextButton.SetBounds(525,347,100,30);

  WizardForm.CancelButton.SetBounds(420,347,100,30);

  WizardForm.BackButton.SetBounds(315,347,100,30);

  

  WelcomeLbl:=TLabel.Create(WizardForm);

  With WelcomeLbl do begin

    Transparent:=true;

    Parent:=WizardForm;

    Alignment:=taCenter;

    Caption:='Welcome to The "{#AppName}" Setup Wizard' + #13#10#13#10 + 'Its recomended that you close all other applications before continuing.' + #13#10#13#10 + 'Click "Next" to continue';

    Font.Color:=clWhite;

    Font.Size:=9;

    SetBounds(126,205,400,90);

  end;

//

  Tasks;

  DirBevel := TBevel.Create(WizardForm);

  with DirBevel do

  begin

    Parent := WizardForm;

    Left := ScaleX(28);

    Top := ScaleY(110);

    Width := ScaleX(594);

    Height := ScaleY(110);

  end;



//-----Bevel Line Page 2 Bottom-----\\



//---Top---\\

  Bevel3 := TBevel.Create(WizardForm);

  with Bevel3 do

  begin

    Parent := WizardForm;

    Left := ScaleX(27);

    Top := ScaleY(235);

    Width := ScaleX(594);

    Height := ScaleY(2);

  end;

//---Bottom---\\

    Bevel4 := TBevel.Create(WizardForm);

  with Bevel4 do

  begin

    Parent := WizardForm;

    Left := ScaleX(27);

    Top := ScaleY(313);

    Width := ScaleX(595);

    Height := ScaleY(2);

  end;

//---Left---\\

  Bevel5 := TBevel.Create(WizardForm);

  with Bevel5 do

  begin

    Parent := WizardForm;

    Left := ScaleX(27);

    Top := ScaleY(236);

    Width := ScaleX(2);

    Height := ScaleY(78);

  end;

//---Right---\\

  Bevel6 := TBevel.Create(WizardForm);

  with Bevel6 do

  begin

    Parent := WizardForm;

    Left := ScaleX(620);

    Top := ScaleY(235);

    Width := ScaleX(2);

    Height := ScaleY(79);

  end;

//------------------------\\



//-----Bevel Line Page 2 Top-----\\



//---Top---\\

    Bevel7 := TBevel.Create(WizardForm);

  with Bevel7 do

  begin

    Parent := WizardForm;

    Left := ScaleX(27);

    Top := ScaleY(110);

    Width := ScaleX(595);

    Height := ScaleY(2);

  end;

//---Bottom---\\

    Bevel8 := TBevel.Create(WizardForm);

  with Bevel8 do

  begin

    Parent := WizardForm;

    Left := ScaleX(27);

    Top := ScaleY(250);

    Width := ScaleX(595);

    Height := ScaleY(2);

  end;

//---Right---\\

    Bevel9 := TBevel.Create(WizardForm);

  with Bevel9 do

  begin

    Parent := WizardForm;

    Left := ScaleX(620);

    Top := ScaleY(110);

    Width := ScaleX(2);

    Height := ScaleY(108);

  end;

//---Left---\\

    Bevel11 := TBevel.Create(WizardForm);

  with Bevel11 do

  begin

    Parent := WizardForm;

    Left := ScaleX(27);

    Top := ScaleY(111);

    Width := ScaleX(2);

    Height := ScaleY(109);

  end;



//------------------------\\

  Status:=TLabel.Create(WizardForm);

  With Status do begin

    //Transparent:=true;

    Parent:=WizardForm;

    Alignment:=taCenter;

    //Font.Color:=clWhite;

    Font.Height:=-15;

    SetBounds(0,218,650,30);

  end;



  DirLbl:=TLabel.Create(WizardForm);

  With DirLbl do begin

    //Transparent:=true;

    Parent:=WizardForm;

    //Alignment:=taCenter;

    Caption:=' Setup will install The game into the following folder ';

    Font.Color:=clWhite;

    SetBounds(52,105,251,15);

  end;

  GroupLbl:=TLabel.Create(WizardForm);

  With GroupLbl do begin

    //Transparent:=true;

    Parent:=WizardForm;

    //Alignment:=taCenter;

    Caption:=' Setup will create shortcuts in the following Start ';

    Font.Color:=clWhite;

    SetBounds(52,230,235,15);

  end;

  TasksLbl:=TLabel.Create(WizardForm);

  With TasksLbl do begin

    //Transparent:=true;

    Parent:=WizardForm;

    //Alignment:=taCenter;

    Caption:='Select the components you want to install; clear the components you do not want to' + #13#10 + 'install. Click Next when you are ready to continue.';

    //Font.Color:=clWhite;

    SetBounds(125,105,407,30);

  end;

//---PARTITION SPACE---\\

  PartitionSpaceLabel:=TLabel.Create(WizardForm);

  With PartitionSpaceLabel do begin

    //Transparent:=true;

    Parent:=WizardForm;

    //Alignment:=taCenter;

    //Font.Color:=clWhite;

    Font.Height:=-13;

    SetBounds(75,160,200,30);

  end;

//---FREE SPACE---\\

  FreeSpaceLabel:=TLabel.Create(WizardForm);

  With FreeSpaceLabel do begin

    //Transparent:=true;

    Parent:=WizardForm;

    //Alignment:=taCenter;

    //Font.Color:=clWhite;

    Font.Height:=-13;

    SetBounds(335,160,200,30);

  end;

//---GAME SPACE---\\

  GameSpaceLabel:=TLabel.Create(WizardForm);

  With GameSpaceLabel do begin

    //Transparent:=true;

    Parent:=WizardForm;

    //Alignment:=taCenter;

    //Font.Color:=clWhite;

    Font.Height:=-13;

    SetBounds(75,190,200,30);

  end;

//---Total Needed Space---\\

  NeedSpaceLabel:=TLabel.Create(WizardForm);

  With NeedSpaceLabel do begin

    //Transparent:=true;

    Parent:=WizardForm;

    //Alignment:=taCenter;

    //Font.Color:=clWhite;

    Font.Height:=-13;

    SetBounds(335,190,200,30);

  end;

end;



Procedure HideComponents();

begin

    WizardForm.WizardSmallBitmapImage.Hide;

    WizardForm.Bevel1.Hide;

    DirBevel.Hide;

    Bevel3.Hide;

    Bevel4.Hide;

    Bevel5.Hide;

    Bevel6.Hide;

    Bevel7.Hide;

    Bevel8.Hide;

    Bevel9.Hide;

    Bevel11.Hide;

    Bevel20.Hide;

    Bevel21.Hide;

    Bevel22.Hide;

    Bevel23.Hide;

    TasksBevel.Hide;

    DirLbl.Hide;

    GroupLbl.Hide;

    TasksLbl.Hide;

    DirectXCB.Hide;

    VisualCCB.Hide;

    NvidiaPhysx.Hide;

    Framework.Hide;

    IconCB.Hide;

    WizardForm.SelectDirBitmapImage.Hide;

    WizardForm.SelectGroupBitmapImage.Hide;

    WizardForm.DirEdit.Hide;

    WizardForm.GroupEdit.Hide;

    WizardForm.DirBrowseButton.Hide;

    WizardForm.GroupBrowseButton.Hide;

    WizardForm.NoIconsCheck.Hide;

    WizardForm.WizardBitmapImage.Hide;

    WelcomeLbl.Hide;

//    WizardForm.ComponentsList.Hide;

//    WizardForm.TasksList.Hide;

    TasksSeparateBevel.Hide;

    PartitionSpaceLabel.Hide;

    FreeSpaceLabel.Hide;

    GameSpaceLabel.Hide;

    NeedSpaceLabel.Hide;

    Status.Hide;

end;





procedure CurStepChanged1(CurStep: TSetupStep);

var Comps1,Comps2,Comps3, TmpValue:cardinal;

    FindHandle1,ColFiles1,CurIndex1,tmp:integer;

    ExecError:boolean;

    InFilePath,OutFilePath,OutFileName:PAnsiChar;

     ErrCode: integer;

   begin



    if(CurStep = ssDone) then begin

    ShellExec('open', '{#AppURL}', '', '', SW_SHOW, ewNoWait, ErrCode);



  end;

   

begin

  if CurStep = ssInstall then begin  //If necessary, you can change to ssPostInstall

    WizardForm.ProgressGauge.Hide;

    WizardForm.CancelButton.Hide;

    CreateControls;

    WizardForm.StatusLabel.Caption:='Extracting Files...';

    ISDoneCancel:=0;



#ifdef PrecompVer

#if PrecompVer == "0.38"

ExtractTemporaryFile('precomp038.exe');

#endif

#if PrecompVer == "0.40"

ExtractTemporaryFile('precomp040.exe');

#endif

#if PrecompVer == "0.41"

ExtractTemporaryFile('precomp041.exe');

#endif

#if PrecompVer == "0.42"

ExtractTemporaryFile('precomp042.exe');

#endif

#if PrecompVer == "0.43"

ExtractTemporaryFile('precomp043.exe');

#endif

#if PrecompVer == "Inside"

ExtractTemporaryFile('CLS-precomp.dll');

ExtractTemporaryFile('CLS-MSC.dll');

ExtractTemporaryFile('CLS-srep.dll');

ExtractTemporaryFile('precomp.exe');

#endif

#endif

ExtractTemporaryFile('arc.ini');

ExtractTemporaryFile('facompress.dll');

ExtractTemporaryFile('facompress_mt.dll');

ExtractTemporaryFile('XDelta3.dll');

ExtractTemporaryFile('7z.dll');

ExtractTemporaryFile('PackZIP.exe');

ExtractTemporaryFile('english.ini');

ExtractTemporaryFile('FreeArc-LZMA-x64.exe');

ExtractTemporaryFile('srep.exe');

ExtractTemporaryFile('srep64.exe');

ExtractTemporaryFile('unarc.dll');

ExtractTemporaryFile('packjpg_dll.dll');

ExtractTemporaryFile('packjpg_dll1.dll');

ExtractTemporaryFile('zlib1.dll');



    Comps1:=0; Comps2:=0; Comps3:=0;

#ifdef Components

    TmpValue:=1;

    if IsComponentSelected('text\rus') then Comps1:=Comps1+TmpValue;     //component 1

    TmpValue:=TmpValue*2;

    if IsComponentSelected('text\eng') then Comps1:=Comps1+TmpValue;     //component 2

    TmpValue:=TmpValue*2;

    if IsComponentSelected('voice\rus') then Comps1:=Comps1+TmpValue;    //component 3

    TmpValue:=TmpValue*2;

    if IsComponentSelected('voice\eng') then Comps1:=Comps1+TmpValue;    //component 4

#endif



#ifdef precomp

  PCFVer:={#precomp};

#else

  PCFVer:=0;

#endif

    ISDoneError:=true;

    if ISDoneInit(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, MainForm.Handle, 512, @ProgressCallback) then begin

      repeat

        ChangeLanguage('english');

        if not SrepInit('',512,0) then break;

        if not PrecompInit('',128,PCFVer) then break;

        if not FileSearchInit(true) then break;

        #include 'Archives.ini'

        ISDoneError:=false;

      until true;

      ISDoneStop;

    end;

    HideControls;

    WizardForm.CancelButton.Visible:=true;

    WizardForm.CancelButton.Enabled:=false;

    Status.Show;

  end;

  if CurStep=ssPostInstall then begin

    if DirectXCB.Checked then begin

      Status.Caption:='Installing DirectX...';

      Status.Left := 200;

      Status.Top := 200;

      Status.Width := 223;

      Status.Height := 20;

      Exec2(ExpandConstant('{src}\Redist\DirectX\DXSETUP.exe'),'/Silent',false);

    end;

    if NvidiaPhysx.Checked then begin

      Status.Caption:='Installing Nvidia Physx...';

      Status.Left := 200;

      Status.Top := 200;

      Status.Width := 227;

      Status.Height := 20;

      Exec2(ExpandConstant('{src}\Redist\PhysX.exe'),'/q',false);

    end;

    if VisualCCB.Checked then begin

      Status.Caption:='Installing Visual C++...';

      Status.Left := 200;

      Status.Top := 200;

      Status.Width := 227;

      Status.Height := 20;

      Exec2(ExpandConstant('{src}\Redist\vcredist_x86.exe'),'/q',false);

    end;

    if Framework.Checked then begin

      Status.Caption:='Installing Framework...';

      Status.Left := 200;

      Status.Top := 200;

      Status.Width := 227;

      Status.Height := 20;

      Exec2(ExpandConstant('{src}\Redist\dotnetfx.exe'),'/q',false);

    end;

  end;

  if (CurStep=ssInstall) and ISDoneError then begin

    Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', false);

  end;

  end;

  end;



//-------- First Page --------\\

procedure CurPageChanged1(CurPageID: integer);

begin

  if CurPageID=wpWelcome then begin

    HideComponents;    

    WizardForm.Position:=poScreenCenter;

    Bevel3.Hide;

    Bevel4.Hide;

    Bevel5.Hide;

    Bevel6.Hide;

    WizardForm.WizardBitmapImage.Show;

    WelcomeLbl.Show;

    WizardForm.CancelButton.show;

  end;

//-------- Second Page --------\\

  if CurPageID=wpSelectDir then begin

    HideComponents;

    WizardForm.Position:=poScreenCenter;

    WizardForm.WizardSmallBitmapImage.Show;

    WizardForm.Bevel1.Show;

    DirBevel.Show;

    Bevel3.show;

    Bevel4.Show;

    Bevel5.Show;

    Bevel6.Show;

    Bevel7.Show;

    Bevel8.hide;

    Bevel9.Show;

    Bevel11.Show;

    WizardForm.Caption:= 'Select Dir «{#AppName}»';

    WizardForm.SelectDirBitmapImage.Show;

    WizardForm.SelectGroupBitmapImage.Show;

    WizardForm.DirEdit.Show;

    WizardForm.GroupEdit.Show;

    WizardForm.DirBrowseButton.Show;

    WizardForm.GroupBrowseButton.Show;

    WizardForm.NoIconsCheck.Show;

    DirLbl.Show;

    GroupLbl.Show;

    PartitionSpaceLabel.Show;

    FreeSpaceLabel.Show;

    GameSpaceLabel.Show;

    NeedSpaceLabel.Show;

    GetFreeSpaceCaption(nil);

  end;

//--------  Third page  --------\\

  if CurPageID=wpSelectTasks then begin

    HideComponents;

    WizardForm.Position:=poScreenCenter;

    WizardForm.Caption:= 'Select Tasks «{#AppName}»';

    WizardForm.WizardSmallBitmapImage.Show;

    WizardForm.Bevel1.Show;

    Bevel3.Hide;

    Bevel4.Hide;

    Bevel5.Hide;

    Bevel6.Hide;

    Bevel20.Show;

    Bevel21.Show;

    Bevel22.Show;

    Bevel23.Show;

    WizardForm.ComponentsList.Show;

    WizardForm.TasksList.Show;

    DirectXCB.Show;

    DirectXCB.Checked:= True;

    VisualCCB.Show;

    VisualCCB.Checked:= True;

    NvidiaPhysx.Checked:= False;

    NvidiaPhysx.Enabled:= False;

    NvidiaPhysx.Show;

    Framework.Show;

    Framework.Enabled:= False;

    Framework.Checked:= False;

    IconCB.Show;

    IconCB.Checked:= True;

    TasksBevel.Hide;

    TasksLbl.Show;

    WizardForm.NextButton.Caption:='Install';

    TasksSeparateBevel.Show;

  end;

//--------Installation Page--------\\

  if CurPageID=wpInstalling then begin

    TasksSeparateBevel.Hide;

    HideComponents;

    WizardForm.Position:=poScreenCenter;

    WizardForm.WizardSmallBitmapImage.Show;

    WizardForm.Caption:= 'Installing «{#AppName}»';

    WizardForm.Bevel1.Show;

    WizardForm.TasksList.CheckItem(0,IconCB.Checked);

  end;

//--------Game was successfully installed PAGE--------\\

  if CurPageID=wpFinished then begin

    HideComponents;

    WizardForm.Position:=poScreenCenter;

    WizardForm.WizardBitmapImage.Show;

    WelcomeLbl.Show;

    WelcomeLbl.Left:=145;

    WizardForm.Caption:= 'Finish «{#AppName}» Setup Wizard';

    WelcomeLbl.Caption:='«{#AppName}» was successfully installed on your computer.' + #13#10#13#10 + 'Run the game from shortcut in "start" menu or Desktop shortcut.' + #13#10#13#10 + 'Click "Finish" to exit the installation program.';

  end;

//--------Game Fail To Install PAGE--------\\

  if (CurPageID = wpFinished) and ISDoneError then

  begin

    //LabelTime3.Hide;

    WizardForm.Caption:= 'Error! «{#AppName}»';

    WelcomeLbl.Font.Color:= clRed;

    WelcomeLbl.Caption:= 'Setup encountered an error while installing «{#AppName}»' + #13#10#13#10 + 'Changes were not saved , please re-run the setup again.';

    WelcomeLbl.Left:=163;

  end;

end;



function ShouldSkipPage1(PageID: Integer): Boolean;

begin

  if (PageID=wpSelectProgramGroup) or (PageID=wpReady) or (PageID=wpSelectComponents) then Result:=true;

end;



procedure DeinitializeSetup1();

begin

        ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);

        UnloadSkin();

end;



procedure ShowSplashScreen(p1:HWND;p2:AnsiString;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10 :integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';

procedure InitializeWizard2();

begin

  ExtractTemporaryFile('Splash.png');

  ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}\Splash.png'),1000,3000,1000,0,255,True,$FFFFFF,10);

end;



function InitializeSetup(): Boolean;

begin

  Result := InitializeSetup1(); if not Result then exit;

end;



procedure InitializeWizard();

begin

  ExtractTemporaryFile('music.mp3');

  if BASS_Init(-1, 44100, 0, 0, 0) then

  begin

    SoundStream := BASS_StreamCreateFile(False,

    ExpandConstant('{tmp}\music.mp3'), 0, 0, 0, 0,

    EncodingFlag or BASS_SAMPLE_LOOP);

    BASS_SetConfig(BASS_CONFIG_GVOL_STREAM, 2500);

    BASS_ChannelPlay(SoundStream, False);



    SoundCtrlButton := TNewButton.Create(WizardForm);

    SoundCtrlButton.Parent := WizardForm;

    SoundCtrlButton.SetBounds(210,347,100,30);

    SoundCtrlButton.Caption :=

    ExpandConstant('{cm:SoundCtrlButtonCaptionSoundOff}');

    SoundCtrlButton.OnClick := @SoundCtrlButtonClick;

  RedesignWizardForm;

  InitializeWizard1();

  InitializeWizard2();

end;

end;



procedure CurStepChanged(CurStep: TSetupStep);

begin

  CurStepChanged1(CurStep);



end;



procedure CurPageChanged(CurPageID: Integer);

begin

  CurPageChanged1(CurPageID);

end;



function ShouldSkipPage(PageID: Integer): Boolean;

begin

  Result := ShouldSkipPage1(PageID); if not Result then exit;

end;



procedure DeinitializeSetup();

begin



  BASS_Free();

  DeinitializeSetup1();

end;