Go Back   FileForums > Game Backup > PC Games > PC Games - CD/DVD Conversions > Conversion Tutorials

Reply
 
Thread Tools Display Modes
  #1  
Old 13-12-2015, 09:28
NBB NBB is offline
Registered User
 
Join Date: Dec 2013
Location: muscovite
Posts: 12
Thanks: 0
Thanked 23 Times in 9 Posts
NBB is on a distinguished road
Post Please test the acceleration unpack

Interested performance. If there are errors or suggestions are always happy to read and consider.

https://yadi.sk/d/m_KOVtImmCJsR
Reply With Quote
The Following 7 Users Say Thank You to NBB For This Useful Post:
ChronoCross (16-12-2015), kenzo34 (13-12-2015), nasir ahmad (20-04-2016), punchao (17-12-2015), Razor12911 (16-12-2015), Simorq (13-12-2015), Stor31 (16-12-2015)
Sponsored Links
  #2  
Old 15-12-2015, 06:11
ChronoCross's Avatar
ChronoCross ChronoCross is offline
Registered User
 
Join Date: Sep 2014
Location: Acacia Dragons
Posts: 254
Thanks: 145
Thanked 199 Times in 115 Posts
ChronoCross is on a distinguished road
Can you add some description about this?
Reply With Quote
  #3  
Old 15-12-2015, 06:45
rinaldo's Avatar
rinaldo rinaldo is offline
Registered User
 
Join Date: Sep 2015
Location: Rome
Posts: 433
Thanks: 101
Thanked 684 Times in 189 Posts
rinaldo is on a distinguished road
Reply With Quote
  #4  
Old 15-12-2015, 20:45
NBB NBB is offline
Registered User
 
Join Date: Dec 2013
Location: muscovite
Posts: 12
Thanks: 0
Thanked 23 Times in 9 Posts
NBB is on a distinguished road
Reply With Quote
The Following User Says Thank You to NBB For This Useful Post:
ChronoCross (16-12-2015)
  #5  
Old 16-12-2015, 01:10
rinaldo's Avatar
rinaldo rinaldo is offline
Registered User
 
Join Date: Sep 2015
Location: Rome
Posts: 433
Thanks: 101
Thanked 684 Times in 189 Posts
rinaldo is on a distinguished road
please language installer Russian (no good)
Forum is English
Reply With Quote
  #6  
Old 16-12-2015, 03:33
Razor12911's Avatar
Razor12911 Razor12911 is offline
Programmer
 
Join Date: Jul 2012
Location: South Africa
Posts: 3,636
Thanks: 2,013
Thanked 10,339 Times in 2,202 Posts
Razor12911 is on a distinguished road
Quote:
Originally Posted by rinaldo View Post
please language installer Russian (no good)
Forum is English
lol, haven't seen a rule in this forum that says installers must be in english.

Last edited by Razor12911; 16-12-2015 at 03:56.
Reply With Quote
The Following 3 Users Say Thank You to Razor12911 For This Useful Post:
oltjon (16-12-2015), rinaldo (16-12-2015), romulus_ut3 (17-12-2015)
  #7  
Old 16-12-2015, 04:57
Stor31 Stor31 is offline
Registered User
 
Join Date: Aug 2013
Location: Wahranne
Posts: 323
Thanks: 1,022
Thanked 85 Times in 67 Posts
Stor31 is on a distinguished road
Good works ...
But English plz !!!!!!
Reply With Quote
  #8  
Old 16-12-2015, 05:56
punchao's Avatar
punchao punchao is offline
Registered User
 
Join Date: Apr 2014
Location: Barcelona
Posts: 156
Thanks: 112
Thanked 44 Times in 36 Posts
punchao is on a distinguished road
How to solve this:

;#define Splash
//
#define Music

http://snap.ashampoo.com/uploads/201...6/7zfmE8xE.png

and Splash image It does not work for me

Last edited by punchao; 16-12-2015 at 05:59.
Reply With Quote
  #9  
Old 16-12-2015, 06:08
rinaldo's Avatar
rinaldo rinaldo is offline
Registered User
 
Join Date: Sep 2015
Location: Rome
Posts: 433
Thanks: 101
Thanked 684 Times in 189 Posts
rinaldo is on a distinguished road
Quote:
Originally Posted by punchao View Post
How to solve this:

;#define Splash
//
#define Music

http://snap.ashampoo.com/uploads/201...6/7zfmE8xE.png

and Splash image It does not work for me
splash code is ansi

Correct Music and Splash for unicode
Attached Files
File Type: 7z MainScript==.7z (8.6 KB, 31 views)
File Type: 7z BASS.7z (1.8 KB, 21 views)

Last edited by rinaldo; 16-12-2015 at 06:27.
Reply With Quote
The Following User Says Thank You to rinaldo For This Useful Post:
kenzo34 (16-12-2015)
  #10  
Old 16-12-2015, 07:27
punchao's Avatar
punchao punchao is offline
Registered User
 
Join Date: Apr 2014
Location: Barcelona
Posts: 156
Thanks: 112
Thanked 44 Times in 36 Posts
punchao is on a distinguished road
Thanks bro.+10
Reply With Quote
  #11  
Old 16-12-2015, 08:55
NBB NBB is offline
Registered User
 
Join Date: Dec 2013
Location: muscovite
Posts: 12
Thanks: 0
Thanked 23 Times in 9 Posts
NBB is on a distinguished road
installer English


https://yadi.sk/d/aR-NqMP6mGtpa
Reply With Quote
The Following 2 Users Say Thank You to NBB For This Useful Post:
punchao (17-12-2015), Simorq (16-12-2015)
  #12  
Old 18-12-2015, 22:12
ramazan19833 ramazan19833 is offline
Banned
 
Join Date: Apr 2012
Location: abc
Posts: 248
Thanks: 16
Thanked 10 Times in 8 Posts
ramazan19833 is on a distinguished road
Doesn't Splash
Reply With Quote
  #13  
Old 19-12-2015, 01:30
Amsal Amsal is offline
Registered User
 
Join Date: May 2015
Location: New Delhi
Posts: 237
Thanks: 242
Thanked 42 Times in 28 Posts
Amsal is on a distinguished road
Bro, can you please give the script also, please!!
Reply With Quote
  #14  
Old 19-12-2015, 01:47
ramazan19833 ramazan19833 is offline
Banned
 
Join Date: Apr 2012
Location: abc
Posts: 248
Thanks: 16
Thanked 10 Times in 8 Posts
ramazan19833 is on a distinguished road
//************************** ğ Namiq666***************************\\

// Name of the game
#define GameName "Dark Blue"
// name EXE
#define GameExe "Data.exe"
//name EXE 2
#define GameExe2 "Data2.exe"
// version Games
#define GameVersion "1.0"
//version installs
#define InstallVersion "1.3"
// name Groups
#define RGName "R.G.Unknow"
//Name Repakera
#define RePackerName "namiq666"
//Required sv.mesto for Games
#define NeedSize "3592"
//Sv.mesto required for installation
#define NeedInstallSize "2210"
//Required RAM for installation
// Component_s
;#define Components
// Information about the author
#define AuthorButton

////////////Possible to select only one of the three options////////////////////
////////////(Var1) Option 1 - only a selection of tablets
////////////(Var2) Option 2 - only a choice of additional components
////////////(Var3) Option 3 - Selecting and additional components and tablets
;#define Var1
;#define Var2
;#define Var3

//Tasks
#define Tasks
// splash
#define Splash
// Music
#define Music

////ISDone/////////////////
;#define records
;#define PrecompInside
#define SrepInside
;#define Reflate
#define facompress
#define OGGRecoding
;#define precomp "0.38"
;#define unrar
;#define XDelta
;#define PackZIP


[Setup]
AppName={#GameName}
DefaultDirName={pf}\{#RGName}\{#GameName}
DefaultGroupName={#RGName}\{#GameName}
AppVerName={#GameName}{#GameVersion}
VersionInfoDescription={#GameName}by{#RePackerName }
VersionInfoTextVersion={#InstallVersion}
AppCopyright={#RGName}
InternalCompressLevel=ultra64
SolidCompression=true
Compression=lzma/ultra64
SetupIconFile="InstallFiles/icon.ico"
UninstallDisplayIcon={app}\Del.ico
ShowTasksTreeLines=Yes
#define VCLStylesSkinPath "{localappdata}\VCLStylesSkin"
[Files]
//////Graphics files and installer///////////
Source: InstallFiles\*; DestDir: {app}\Temp; Attribs: hidden system;
Source: InstallFiles\VclStylesinno.dll; DestDir: {#VCLStylesSkinPath}; Flags: uninsneveruninstall
Source: InstallFiles\Amethyst Kamri.vsf; DestDir: {#VCLStylesSkinPath}; Flags: uninsneveruninstall
/////// files music///////////////////////
#ifdef Music
Source: Music\*; DestDir: {tmp}; Flags: dontcopy
#endif
//////////////the files of the splash/////////////
#ifdef Splash
Source: Splash\*; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
#endif
///////////////////////////Files ISDone\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\
Source: Include\english.ini; DestDir: {tmp}; Flags: dontcopy
Source: Include\unarc.dll; DestDir: {tmp}; Flags: dontcopy
Source: Include\ISDone.dll; DestDir: {tmp}; Flags: dontcopy
Source: Include\lz77.exe; DestDir: {tmp}; Flags: dontcopy
Source: Include\unarc.exe; DestDir: {tmp}; Flags: dontcopy
Source: Include\arc.ini; DestDir: {tmp}; Flags: dontcopy
#ifdef records
Source: records.inf; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef Reflate
Source: include\Reflate\*; 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\zlib1.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef SrepInside
Source: Include\CLS-srep.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef OGGRecoding
Source: Include\aac_dec.exe; DestDir: {tmp}; Flags: dontcopy
Source: Include\rebuild_d.exe; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef facompress
Source: Include\facompress.dll; DestDir: {tmp}; Flags: dontcopy
Source: Include\facompress_mt.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
#if precomp == "0.43"
Source: Include\precomp043.exe; DestDir: {tmp}; Flags: dontcopy
#else
#endif
#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
[Languages]
Name: "eng"; MessagesFile: "compilerefault.isl"

[Messages]
ButtonBack=< Back
ButtonNext=Next >
ButtonCancel=Exit
ButtonInstall=Install
ButtonFinish=Finish
ButtonWizardBrowse=Browse...

[CustomMessages]
Uninstall=Remove {#GameName}
Run=Start {#GameName}

WelcomeLabel1=Welcome to Setup Game %n {#GameName}
WelcomeLabel2=The program will set {#GameName} %non your computer.%n%nIt is recommended to close the anti-virus packages%nand all other applications before continuing.%n%nclick Next, to continue with the installation,%nor Exit, to exit the installation program.
SelectDirLabel=The program will install the game in the following folder.
TotalSpaceLabel=Total disk space:
FreeSpaceLabel=Available disk space:
InstallSpacelabel=Required space for installation:
NeedSpaceLabel=Required disk space:
SelectDirBrowseLabel=click Next, to continue. If you want to %nchoose a different folder, click Browse.
SelectComponentsLabel=Select the components you want to install and remove %nflags with the components you do not want to install. %nclick Next, when you are ready to continue

////////////////////choice of tablet ///////////
Crack=The choice of crack
Crack1=Crack from THETA
Crack2=Crack from 3DM
Crack3=Crack from SKiDROW
/////////////////////////////////////
Text=Interface language:
Voice=Language voice:
Russian=Russian.
English=English.
SelectStartMenuFolderLabel=The program creates shortcuts in the following folder menu Start.
SelectStartMenuFolderBrowseLabel=click Next, to continue. If you want to select another folder, press Browse.
NoIconsCheck=Do not create a folder in the Start
SelectTasksLabel=Select the additional tasks that must be met %nat installation {#GameName}, after that click Next.
Icons=Additional shortcuts:
CreateDesktopIcon=Create a shortcut on the desktop.
CreateDesktopIcon2=Create a shortcut on the desktop (Settings Live)
CreateQuickLaunchIcon=Create a shortcut to the Quick Launch toolbar.
Soft=Additional Soft:
Physx=update | Install Physx.
DirectX=update | Install DirectX.
ReadyLabel=click Next, to begin installation, or Back, %nIf you want to view or change setup options.
InstallingLabel=Please wait while the game is installed on your computer.
ExtractedFile=Extract files:
Extracted=Unpacking the archives ...
ElapsedTime=Posted:
RemainingTime=Remaining Time:
EstimatedTime=Elapsed Time:
AllElapsedTime=time installation:
Error=Error unpacking!
StatusRollback=Rolling back changes ...
FinishedHeadingLabel=Installing the game"{#GameName}" %nsuccessfully completed
FinishedLabel=game "{#GameName}" It was %nsuccessfully installed on your computer. %n%nTo run the program, select the appropriate shortcut menu "Start" %nor on the desktop. %n%nclick "Finish", to exit the installation program.
ErrorFinishedHeadingLabel=Installing the game "{#GameName}" %n not completed
ErrorFinishedLabel=The installation was not completed.%n%nPlease correct the problem and run the installation again.
UninstDescript=Please wait while the game will be deleted %nfrom your computer.
StatusUninst=Removing games {#GameName}...
fold=
#ifdef Tasks
[Icons]
Name: {commondesktop}\{#GameName}; Filename: {app}\{#GameExe}; WorkingDir: {app}\; Tasks: Icons\DesktopIcon; Check: CheckError;
#ifdef GameExe2
//Name: {commondesktop}\{#GameName}.(Settings Live); Filename: {app}\{#GameExe2}; WorkingDir: {app}\; IconFilename: {app}\{#GameExe2}; Tasks: Icons\DesktopIcon2; Check: CheckError
#endif
Name: {group}\{#GameName}; Filename: {app}\{#GameExe}; WorkingDir: {app}\; Check: CheckError;
Name: {group}\{cm:UninstallProgram,{#GameName}}; Filename: {uninstallexe}; Check: CheckError;
#endif

#ifdef Components
[Types]
Name: full; Description: Full installation; Flags: iscustom

[Components]
#ifdef Var1
Name: Crack; Description: {cm:Crack}; Flags: fixed; Types: Full;
Name: crack\theta; Description: {cm:Crack2}; Flags: exclusive;
Name: crack\3dm; Description: {cm:Crack1}; Flags: exclusive;
#endif

#ifdef Var2
Name: Text; Description: {cm:Text}; Flags: fixed; Types: Full;
Name: Text\Eng; Description: {cm:English}; Flags: exclusive; ExtraDiskSpaceRequired: 50000000;
Name: Text\Rus; Description: {cm:Russian}; Flags: exclusive; ExtraDiskSpaceRequired: 60000000;
Name: Voice; Description: {cm:Voice}; Flags: fixed; Types: Full;
Name: Voice\Eng; Description: {cm:English}; Flags: exclusive; ExtraDiskSpaceRequired: 500000000;
Name: Voice\Rus; Description: {cm:Russian}; Flags: exclusive; ExtraDiskSpaceRequired: 600000000;
#endif

#ifdef Var3
Name: Text; Description: {cm:Text}; Flags: fixed; Types: Full;
Name: Text\Eng; Description: {cm:English}; Flags: exclusive; ExtraDiskSpaceRequired: 50000000;
Name: Text\Rus; Description: {cm:Russian}; Flags: exclusive; ExtraDiskSpaceRequired: 60000000;
Name: Voice; Description: {cm:Voice}; Flags: fixed; Types: Full;
Name: Voice\Eng; Description: {cm:English}; Flags: exclusive; ExtraDiskSpaceRequired: 500000000;
Name: Voice\Rus; Description: {cm:Russian}; Flags: exclusive; ExtraDiskSpaceRequired: 600000000;
Name: Crack; Description: {cm:Crack}; Flags: fixed; Types: Full;
Name: crack\theta; Description: {cm:Crack2}; Flags: exclusive;
Name: crack\3dm; Description: {cm:Crack1}; Flags: exclusive;
#endif
#endif

#ifdef Tasks
[Tasks]
Name: Icons; Description: {cm:Icons}; Flags: unchecked;
Name: Icons\DesktopIcon; Description: {cm:CreateDesktopIcon}; Flags: unchecked
#ifdef GameExe2
//Name: Icons\DesktopIcon2; Description: {cm:CreateDesktopIcon2}; Flags: unchecked
#endif
//Name: Icons\QuickLaunchIcon; Description: {cm:CreateQuickLaunchIcon}; Flags: unchecked;

Name: DPO; Description: {cm:Soft};
Name: DPO\VCCheck; Description: Install Visual C++2008 Redist 32- bit; Flags: unchecked
Name: DPO\VCCheck1; Description: Install Visual C++2008 Redist 64- bit; Flags: unchecked
Name: DPO\DirectX; Description: update DirectX ( Install); Flags: unchecked; Components: ; Languages: ;
//Name: DPO\Net; Description: Microsoft NET Framework 4.0 ; Flags: unchecked
//Name: DPO\PhysXCheck; Description: Install Nvidia PhysX
//Name: DPO\UbisoftLuncher; Description: Install Ubisoft Lunccher; Flags: unchecked
//Name: DPO\WinLive; Description: Install Windows Live; Flags: unchecked
#endif

[Run]

#ifdef Tasks
Filename: {src}\Soft\Redist\vcredist_x86.exe; StatusMsg: installable Visual C++ 2008 Redist...; Flags: skipifdoesntexist; Tasks: DPO\VCCheck; Components: ; Check: CheckError
Filename: {src}\Soft\Redist\vcredist_x64.exe; StatusMsg: installable Visual C++ 2005 Redist...; Flags: skipifdoesntexist; Tasks: DPO\VCCheck1; Components: ; Check: CheckError
Filename: {src}\Soft\DirectX\dxwebsetup.exe; WorkingDir: {src}\Soft\DirectX\; Flags: waituntilterminated; Tasks: DPO\DirectX; StatusMsg: update DirectX...; Check: CheckError
//Filename: {src}\Soft\MicrosoftNET Framework\dotNetFx40_Full_x86_x64.exe; WorkingDir: {src}\Soft\MicrosoftNET Framework\; StatusMsg: update NET Framework...; Flags: waituntilterminated; Tasks: DPO\Net
//Filename: {src}\Soft\PhysX\PhysX.exe; Parameters: /qn; StatusMsg: installable Nvidia PhysX...; Flags: skipifdoesntexist; Tasks: DPO\PhysXCheck; Check: CheckError
//Filename: {src}\Soft\Ubisoft\UbisoftGameLauncherInstaller.ex e; WorkingDir: {src}\Soft\Ubisoft\; StatusMsg: installable Ubisoft Luncher...; Flags: waituntilterminated; Tasks: DPO\UbisoftLuncher
//Filename: {src}\Soft\WinLive\gfwlivesetup.exe; WorkingDir: {src}\Soft\WinLive\; StatusMsg: installable Windows Live...; Flags: waituntilterminated; Tasks: DPO\WinLive
#endif
[UninstallDelete]
Type: filesandordirs; Name: {app}

[Code]
#ifdef Splash
procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7: integer;p8:boolean;p9:Cardinal;p10:integer); external '[email protected]:isgsg.dll stdcall delayload';
#endif
#include "ModulesEng\Botva2.iss"
#include "ModulesEng\PB.iss"
#include "ModulesEng\Header.iss"
#include "ModulesEng\WinTB.iss"


///////////module music////////////////
#ifdef Music
#include "ModulesEng\BASS.iss"
#endif

////////////////////////////////////////////////////////////Texture buttons\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
procedure SetStateNewButtons;
begin
with WizardForm.BackButton do begin
BtnSetText(hBackBtn,PAnsiChar(Caption));
BtnSetVisibility(hBackBtn,Visible);
BtnSetEnabled(hBackBtn,Enabled);
end;
with WizardForm.NextButton do begin
BtnSetText(hNextBtn,PAnsiChar(Caption));
BtnSetVisibility(hNextBtn,Visible);
BtnSetEnabled(hNextBtn,Enabled);
end;
with WizardForm.CancelButton do begin
BtnSetText(hCancelBtn,PAnsiChar(Caption));
BtnSetVisibility(hCancelBtn,Visible);
BtnSetEnabled(hCancelBtn,Enabled);
end;
BtnSetText(hDirBrowseBtn,PAnsiChar(WizardForm.DirB rowseButton.Caption));
BtnSetText(hGroupBrowseBtn,PAnsiChar(WizardForm.Gr oupBrowseButton.Caption));
end;





procedure WizardFormBtnClick(hBtn:HWND);
var
Btn:TButton;
begin
sndPlaySound(ExpandConstant('{tmp}\Click.wav'),$00 01);
case hBtn of
hCancelBtn: Btn:=WizardForm.CancelButton;
hNextBtn: Btn:=WizardForm.NextButton;
hBackBtn: Btn:=WizardForm.BackButton;
hDirBrowseBtn: Btn:=WizardForm.DirBrowseButton;
hGroupBrowseBtn: Btn:=WizardForm.GroupBrowseButton;
end;
Btn.OnClick(Btn);
SetStateNewButtons;
BtnRefresh(hBtn);
end;

procedure WFBtnEnter(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\WFEnter.wav'),$ 0001);
end;

procedure ButtonsTextures;
begin
with WizardForm.BackButton do begin
hBackBtn:=BtnCreate(WizardForm.Handle,205,320,88,3 0,ExpandConstant('BackBtn.png'),0,False);
BtnSetEvent(hBackBtn,BtnMouseEnterEventID,WrapBtnC allback(@WFBtnEnter,1));
BtnSetEvent(hBackBtn,BtnClickEventID,WrapBtnCallba ck(@WizardFormBtnClick,1));
BtnSetFont(hBackBtn,WFButtonFont.Handle);
BtnSetFontColor(hBackBtn,$FFFFFF,$E16941,$000000,$ B6B6B6);
Width:=0;
Height:=0;
end;

with WizardForm.NextButton do begin
hNextBtn:=BtnCreate(WizardForm.Handle,409,320,88,3 0,ExpandConstant('NextBtn.png'),1,False);
BtnSetEvent(hNextBtn,BtnMouseEnterEventID,WrapBtnC allback(@WFBtnEnter,1));
BtnSetEvent(hNextBtn,BtnClickEventID,WrapBtnCallba ck(@WizardFormBtnClick,1));
BtnSetFont(hNextBtn,WFButtonFont.Handle);
BtnSetFontColor(hNextBtn,$FFFFFF,$E16941,$000000,$ B6B6B6);
Width:=0;
Height:=0;
end;

with WizardForm.CancelButton do begin
hCancelBtn:=BtnCreate(WizardForm.Handle,295,320,11 2,30,ExpandConstant('CancelBtn.png'),1,False);
BtnSetEvent(hCancelBtn,BtnMouseEnterEventID,WrapBt nCallback(@WFBtnEnter,1));
BtnSetEvent(hCancelBtn,BtnClickEventID,WrapBtnCall back(@WizardFormBtnClick,1));
BtnSetFont(hCancelBtn,WFButtonFont.Handle);
BtnSetFontColor(hCancelBtn,$FFFFFF,$E16941,$000000 ,$B6B6B6);
Width:=0;
Height:=0;
end;

with WizardForm.DirBrowseButton do begin
hDirBrowseBtn:=BtnCreate(WizardForm.Handle,520,173 ,88,30,ExpandConstant('browse.png'),1,False);
BtnSetEvent(hDirBrowseBtn,BtnMouseEnterEventID,Wra pBtnCallback(@WFBtnEnter,1));
BtnSetEvent(hDirBrowseBtn,BtnClickEventID,WrapBtnC allback(@WizardFormBtnClick,1));
BtnSetFont(hDirBrowseBtn,WFButtonFont.Handle);
BtnSetFontColor(hDirBrowseBtn,$FFFFFF,$E16941,$000 000,$B6B6B6);
Width:=0;
Height:=0;
end;

with WizardForm.GroupBrowseButton do begin
hGroupBrowseBtn:=BtnCreate(WizardForm.Handle,520,1 73,88,30,ExpandConstant('browse.png'),1,False);
BtnSetEvent(hGroupBrowseBtn,BtnMouseEnterEventID,W rapBtnCallback(@WFBtnEnter,1));
BtnSetEvent(hGroupBrowseBtn,BtnClickEventID,WrapBt nCallback(@WizardFormBtnClick,1));
BtnSetFont(hGroupBrowseBtn,WFButtonFont.Handle);
BtnSetFontColor(hGroupBrowseBtn,$FFFFFF,$E16941,$0 00000,$B6B6B6);
Width:=0;
Height:=0;
end;


end;
#ifdef AuthorButton
procedure AuthorBtnClick(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\Click.wav'),$00 01);
LoadStringFromFile(ExpandConstant('{tmp}')+'\ReadM eRus.rtf', Readme)
InfoForm := CreateCustomForm();
with InfoForm do
begin
ClientWidth:=ScaleX(325);
ClientHeight:=ScaleY(225);
Caption := 'Information'
CenterInsideControl(WizardForm, False);
RichEditViewer := TRichEditViewer.Create(InfoForm);
with RichEditViewer do
begin
SetBounds(ScaleX(12),ScaleY(12),ScaleX(301),ScaleY (165));
Parent := InfoForm;
Font.Size := 8;
RTFText:= Readme;
ScrollBars:= ssVertical;
ReadOnly := True;
end;
NewButton := TNewButton.Create(InfoForm);
with NewButton do
begin
SetBounds(ScaleX(240),ScaleY(189),ScaleX(75),Scale Y(23));
Parent := InfoForm;
Caption := 'OK';
ModalResult := mrOk;
BtnSetEnabled(NoIconsCheck, not BtnGetEnabled(NoIconsCheck));
NoIconsLabel.Enabled := not (NoIconsLabel.Enabled);
BtnSetEnabled(hBackBtn, not BtnGetEnabled(hBackBtn));
BtnSetEnabled(hNextBtn, not BtnGetEnabled(hNextBtn));
BtnSetEnabled(hCancelBtn, not BtnGetEnabled(hCancelBtn));
BtnSetEnabled(hDirBrowseBtn, not BtnGetEnabled(hDirBrowseBtn));
BtnSetEnabled(hGroupBrowseBtn, not BtnGetEnabled(hGroupBrowseBtn));
end;
ShowModal;
Free;
end;

//BtnSetEnabled(Bass_OnOffBtn, not BtnGetEnabled(Bass_OnOffBtn));

BtnSetEnabled(NoIconsCheck, not BtnGetEnabled(NoIconsCheck));
NoIconsLabel.Enabled := not (NoIconsLabel.Enabled);
BtnSetEnabled(hBackBtn, not BtnGetEnabled(hBackBtn));
BtnSetEnabled(hNextBtn, not BtnGetEnabled(hNextBtn));
BtnSetEnabled(hCancelBtn, not BtnGetEnabled(hCancelBtn));
BtnSetEnabled(hDirBrowseBtn, not BtnGetEnabled(hDirBrowseBtn));
BtnSetEnabled(hGroupBrowseBtn, not BtnGetEnabled(hGroupBrowseBtn));

begin
#ifdef Components
WizardForm.ComponentsList.Width := ScaleX(350);
#endif
#ifdef Tasks
WizardForm.TasksList.Width := ScaleX(350);
#endif
ReadyPanel.Width := ScaleX(350);
end;

ImgApplyChanges(WizardForm.Handle);
end;

#endif
#ifdef AuthorButton
procedure CreateAuthorBtn;
begin
AuthorBtn := BtnCreate(WizardForm.Handle,ScaleX(576), ScaleY(317), ScaleX(34), ScaleY(41), ExpandConstant('about.png'),1,True);
BtnSetEvent(AuthorBtn, BtnMouseEnterEventID, WrapBtnCallback(@WFBtnEnter,1));
BtnSetEvent(AuthorBtn, BtnClickEventID, WrapBtnCallback(@AuthorBtnClick,1));
end;
#endif
/////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\
//////////////////////////////////////////////// ğ\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\



procedure TBChangePos(pos:integer);
var
t:integer;
begin
t:=pos*1800 div 100;
PerformanceChanger:=(t);
L1.Caption:='RAM for acceleration unarc = '+IntToStr(t)+'MB';
end;


procedure TB2ChangePos(pos:integer);
var
t:integer;
begin
t:=pos*1600 div 100;
PerformanceChangerSREP:=(t);
L2.Caption:='RAM for acceleration srep = '+IntToStr(t)+'MB';
end;


#ifdef PrecompInside
procedure TB3ChangePos(pos:integer);
var
t:integer;
begin
t:=pos*900 div 100;
PerformanceChangerPCF:=(t);
L3.Caption:='RAM for acceleration precomp = '+IntToStr(t)+'MB';
end;
#endif


#include "ModulesEng\IsDone.iss"





procedure CreateWizardForm;
var
i:integer;
n: Integer;
begin
with WizardForm do begin

InnerNotebook.Hide;
OuterNotebook.Hide;
Bevel.Hide;
ClientWidth:=ScaleX(700);
ClientHeight:=ScaleY(400);
DirEdit.OnChange:[email protected];
GroupEdit.OnChange:= @ObjectFunc
OnMouseDown:[email protected];
Center;
end;
WizardFormFree:= True;
WFButtonFont:=TFont.Create;
with WFButtonFont do begin
Style:=[fsBold];
Size:=10;
Name:='Tahoma';
end;

BGImageStream := TMemoryStream.Create;
ExtractTemporaryFileToStream('BMPImage.bmp', BGImageStream);
BGImageStream.Position := 0;

BTNImageStream := TMemoryStream.Create;
ExtractTemporaryFileToStream('btnimage.bmp', BTNImageStream);
BTNImageStream.Position := 0;

BGImage := TBitmapImage.Create(WizardForm);
BGImage.Bitmap.LoadFromStream(BGImageStream);

BTNImage := TBitmapImage.Create(WizardForm);
BTNImage.Bitmap.LoadFromStream(BTNImageStream);

ImgLoad(WizardForm.Handle,ExpandConstant('MainImag e.png'),0,0,0,0,False,True);
//////////////////////////////////////////!!!\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\

/////////////////////////////////////////////////// Main St\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\
WelcomeLabel1:= CreateLabel(WizardForm, ScaleX(90), ScaleY(95), ScaleX(522), ScaleY(80), ExpandConstant('{cm:WelcomeLabel1}'), False);
LabelSetFont(WelcomeLabel1, 12, 'Tahoma', $FFFFFF, [fsBold]);
WelcomeLabel1.Alignment := taCenter;

WelcomeLabel2:= CreateLabel(WizardForm, ScaleX(90), ScaleY(160), ScaleX(522), ScaleY(150), ExpandConstant('{cm:WelcomeLabel2}'), False);
LabelSetFont(WelcomeLabel2, 10, 'Tahoma', $FFFFFF, [fsBold]);
WelcomeLabel2.Alignment := taCenter;
//////////////////////////////////////////////////article the Choice of Directorii\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\
DirFolder:=ImgLoad(WizardForm.Handle,ExpandConstan t('DirFolder.png'),ScaleX(120),ScaleY(75),ScaleX(4 5),ScaleY(45),True,True);
DirEditImg:=ImgLoad(WizardForm.Handle,ExpandConsta nt('DirEditImg.png'),ScaleX(105),ScaleY(178),Scale X(420),ScaleY(22),True,True);
HDD:=ImgLoad(WizardForm.Handle,ExpandConstant('HDD .png'),ScaleX(130),ScaleY(235),ScaleX(62),ScaleY(6 0),True,True);
HDD2:=ImgLoad(WizardForm.Handle,ExpandConstant('Ha rdDrivePanel.png'),ScaleX(129),ScaleY(231),ScaleX( 350),ScaleY(63),True,True);

ImgLoad(WizardForm.Handle,ExpandConstant('Workspac e.png'),ScaleX(65),ScaleY(63),ScaleX(569),ScaleY(2 74),True,True);

SelectDirLabel:= CreateLabel(WizardForm, ScaleX(186), ScaleY(80), ScaleX(0), ScaleY(0), ExpandConstant('{cm:SelectDirLabel}'), true);
LabelSetFont(SelectDirLabel, 10, 'Tahoma', $FFFFFF, [fsBold]);

SelectDirBrowseLabel:= CreateLabel(WizardForm, ScaleX(165), ScaleY(115), ScaleX(0), ScaleY(0), ExpandConstant('{cm:SelectDirBrowseLabel}'), true);
LabelSetFont(SelectDirBrowseLabel, 10, 'Tahoma', $FFFFFF, [fsBold]);
SelectDirBrowseLabel.Alignment := taCenter;

DirEditLabel:= CreateLabel(WizardForm, ScaleX(110), ScaleY(180), ScaleX(450), ScaleY(20), '', false);
LabelSetFont(DirEditLabel, 10, 'Tahoma', $FFFFFF, [fsBold]);
DirEditLabel.Caption := MinimizePathName(WizardForm.DirEdit.Text, DirEditLabel.Font, DirEditLabel.Width);

TotalSpaceLabel:= CreateLabel(WizardForm, ScaleX(196), ScaleY(230), ScaleX(0), ScaleY(0), ExpandConstant('{cm:TotalSpaceLabel}'), true);
LabelSetFont(TotalSpaceLabel, 8, 'Tahoma', $FFFFFF, [fsBold]);

FreeSpaceLabel:= CreateLabel(WizardForm, ScaleX(196), ScaleY(245), ScaleX(0), ScaleY(0), ExpandConstant('{cm:FreeSpaceLabel}'), true);
LabelSetFont(FreeSpaceLabel, 8, 'Tahoma', $FFFFFF, [fsBold]);

InstallSpacelabel:= CreateLabel(WizardForm, ScaleX(196), ScaleY(260), ScaleX(0), ScaleY(0), ExpandConstant('{cm:InstallSpacelabel}'), true);
LabelSetFont(InstallSpacelabel, 8, 'Tahoma', $FFFFFF, [fsBold]);

NeedSpaceLabel:= CreateLabel(WizardForm, ScaleX(196), ScaleY(275), ScaleX(0), ScaleY(0), ExpandConstant('{cm:NeedSpaceLabel}'), true);
LabelSetFont(NeedSpaceLabel, 8, 'Tahoma', $FFFFFF, [fsBold]);

TotalSpaceLabel2:= CreateLabel(WizardForm, ScaleX(470), ScaleY(230), ScaleX(0), ScaleY(0), '', true);
LabelSetFont(TotalSpaceLabel2, 8, 'Tahoma', $FFFFFF, [fsBold]);
TotalSpaceLabel2.Alignment := taRightJustify;

FreeSpaceLabel2:= CreateLabel(WizardForm, ScaleX(470), ScaleY(245), ScaleX(0), ScaleY(0), '', true);
LabelSetFont(FreeSpaceLabel2, 8, 'Tahoma', $FFFFFF, [fsBold]);
FreeSpaceLabel2.Alignment := taRightJustify;

InstallSpacelabel2:= CreateLabel(WizardForm, ScaleX(470), ScaleY(260), ScaleX(0), ScaleY(0), '', true);
LabelSetFont(InstallSpacelabel2, 8, 'Tahoma', $FFFFFF, [fsBold]);
InstallSpacelabel2.Alignment := taRightJustify;

NeedSpaceLabel2:= CreateLabel(WizardForm, ScaleX(470), ScaleY(275), ScaleX(0), ScaleY(0), '', true);
LabelSetFont(NeedSpaceLabel2, 8, 'Tahoma', $FFFFFF, [fsBold]);
NeedSpaceLabel2.Alignment := taRightJustify;

#ifdef Components
//////////////////////////////////////////Components\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\
SelectComponentsLabel:= CreateLabel(WizardForm, ScaleX(145), ScaleY(80), ScaleX(0), ScaleY(0), ExpandConstant('{cm:SelectComponentsLabel}'), true);
LabelSetFont(SelectComponentsLabel, 9, 'Tahoma', $FFFFFF, [fsBold]);
SelectComponentsLabel.Alignment := taCenter;
with WizardForm.ComponentsList do begin
Parent:= WizardForm;
SetBounds(ScaleX(175), ScaleY(150), ScaleX(350), ScaleY(110));
Color:=$000000;
Font.Name:='Tahoma';
Font.Size:= 8;
Font.Color:=$FFFFFF;
for n:=0 to ItemCount-1 do begin
ItemFontStyle[n]:= [fsBold];
SubItemFontStyle[n]:= [fsBold];
end;
BorderWidth := (WizardForm.ComponentsList.Width-WizardForm.ComponentsList.ClientWidth) div 2;
LoadBGBmpFromBitmap(BGImage.Bitmap, WizardForm.ComponentsList.Left+BorderWidth, WizardForm.ComponentsList.Top+BorderWidth);
// LoadBtnBmpFromBitmap(btnimage.Bitmap);
end;
#endif

/////////////////////////////////////////////////The Select Group\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\
GroupFolder:=ImgLoad(WizardForm.Handle,ExpandConst ant('GroupFolder.png'),ScaleX(90),ScaleY(75),Scale X(45),ScaleY(45),True,True);

SelectStartMenuFolderLabel:= CreateLabel(WizardForm, ScaleX(140), ScaleY(80), ScaleX(0), ScaleY(0), ExpandConstant('{cm:SelectStartMenuFolderLabel}'), true);
LabelSetFont(SelectStartMenuFolderLabel, 10, 'Tahoma', $FFFFFF, [fsBold]);
SelectStartMenuFolderLabel.Alignment := taCenter;

SelectStartMenuFolderBrowseLabel:= CreateLabel(WizardForm, ScaleX(170), ScaleY(115), ScaleX(0), ScaleY(0), ExpandConstant('{cm:SelectDirBrowseLabel}'), true);
LabelSetFont(SelectStartMenuFolderBrowseLabel, 10, 'Tahoma', $FFFFFF, [fsBold]);
SelectStartMenuFolderBrowseLabel.Alignment := taCenter;

GroupEditLabel:= CreateLabel(WizardForm, ScaleX(110), ScaleY(180), ScaleX(450), ScaleY(20), WizardForm.GroupEdit.Text, false);
LabelSetFont(GroupEditLabel, 10, 'Tahoma', $FFFFFF, [fsBold]);

NoIconsCheck:=BtnCreate(WizardForm.Handle,ScaleX(2 34),ScaleY(251),ScaleX(13),ScaleY(13),ExpandConsta nt('CheckBox.png'),1,True);
BtnSetEvent(NoIconsCheck,BtnClickEventID,WrapBtnCa llback(@NoIconsClick,1));
BtnSetCursor(NoIconsCheck,GetSysCursorHandle(32649 ));

NoIconsLabel:= CreateLabel(WizardForm, ScaleX(250), ScaleY(250), ScaleX(0), ScaleY(0), ExpandConstant('{cm:NoIconsCheck}'), true);
LabelSetFont(NoIconsLabel, 8, 'Tahoma', $FFFFFF, [fsBold]);
with NoIconsLabel do begin
Cursor := crHand;
OnClick:= @ObjectFunc;
end;
/////////////////////////////////////////////Tasks\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\
SelectTasksLabel:= CreateLabel(WizardForm, ScaleX(190), ScaleY(70), ScaleX(0), ScaleY(0), ExpandConstant('{cm:SelectTasksLabel}'), true);
LabelSetFont(SelectTasksLabel, 9, 'Tahoma', $FFFFFF, [fsBold]);
SelectTasksLabel.Alignment := taCenter;


L1:=TLabel.Create(WizardForm);
with L1 do begin
SetBounds(80,120,150,21);
AutoSize:=True;
Font.Color:=clWhite;
Font.Style:=[fsBold];
Caption:='RAM for acceleration unarc = 0'+'MB';
Parent:=WizardForm;
Transparent:=True;
end;




L2:=TLabel.Create(WizardForm);
with L2 do begin
SetBounds(80,190,150,21);
AutoSize:=True;
Font.Color:=clWhite;
Font.Style:=[fsBold];
Caption:='RAM for acceleration srep = 0'+'MB';
Parent:=WizardForm;
Transparent:=True;
end;

#ifdef PrecompInside
L3:=TLabel.Create(WizardForm);
with L3 do begin
SetBounds(80,260,150,21);
AutoSize:=True;
Font.Color:=clWhite;
Font.Style:=[fsBold];
Caption:='RAM for acceleration precomp = 0'+'MB';
Parent:=WizardForm;
Transparent:=True;
end;
#endif

TasksBevel1 := TBevel.Create(WizardForm);
with TasksBevel1 do
begin
Parent := WizardForm;
#ifdef PrecompInside
SetBounds(ScaleX(75), ScaleY(109), ScaleX(210), ScaleY(205));
#else
SetBounds(ScaleX(75), ScaleY(109), ScaleX(210), ScaleY(136));
#endif
Style := bsRaised;
end;


#ifdef Tasks
with WizardForm.TasksList do begin
Parent:= WizardForm;
SetBounds(ScaleX(300), ScaleY(117), ScaleX(320), ScaleY(180));
Color:=$000000;
Font.Name:='Tahoma';
Font.Size:= 8;
Font.Color:=$FFFFFF;
BorderStyle := bsSingle;
//TreeViewStyle := True;
BorderWidth := (WizardForm.TasksList.Width-WizardForm.TasksList.ClientWidth) div 2;
LoadBGBmpFromBitmap(BGImage.Bitmap, WizardForm.TasksList.Left+BorderWidth, WizardForm.TasksList.Top+BorderWidth);
//LoadBtnBmpFromBitmap(btnimage.Bitmap);
end;

#endif

/////////////////////////////////////////////////Total\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\
BGImageStream.position:=0;

ReadyLabel:= CreateLabel(WizardForm, ScaleX(160), ScaleY(80), ScaleX(0), ScaleY(0), ExpandConstant('{cm:ReadyLabel}'), true);
LabelSetFont(ReadyLabel, 9, 'Tahoma', $FFFFFF, [fsBold]);
ReadyLabel.Alignment := taCenter;

ReadyPanel := TPanel.Create(WizardForm);
with ReadyPanel do begin
Parent := WizardForm;
SetBounds(ScaleX(180), ScaleY(150), ScaleX(350), ScaleY(140));
BorderStyle := bsSingle;
end;

ReadyBitmap := TBitmapImage.Create(WizardForm);
with ReadyBitmap do begin
Parent := ReadyPanel;
SetBounds(ScaleX(-182), ScaleY(-152), ScaleX(700), ScaleY(400));
Bitmap.LoadFromStream(BGImageStream);
end;

ReadyScrollBar := TScrollBar.Create(WizardForm);
with ReadyScrollBar do begin
Parent := ReadyPanel;
SetBounds(ScaleX(330), ScaleY(0), ScaleX(136), ScaleY(15));
Kind := sbVertical;
OnScroll:[email protected];
end;

ReadyPanelLabel := TLabel.Create(WizardForm);
with ReadyPanelLabel do begin
Parent := ReadyPanel;
WordWrap := true;
Transparent:=true;
Font.Name:='Tahoma';
Font.Size:= 8;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold];
SetBounds(ScaleX(5), ScaleY(5), ScaleX(325), ScaleY(130));
Caption := WizardForm.ReadyMemo.Lines.Text;
end;
////////////////////////////////////////////Installation\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\

IsDoneAddComponents

InstallingLabel:= CreateLabel(WizardForm, ScaleX(120), ScaleY(80), ScaleX(0), ScaleY(0), ExpandConstant('{cm:InstallingLabel}'), true);
LabelSetFont(InstallingLabel, 10, 'Tahoma', $FFFFFF, [fsBold]);

StatusLabel:= CreateLabel(WizardForm, ScaleX(105), ScaleY(130), ScaleX(0), ScaleY(0), ExpandConstant('{cm:Extracted}'), true);
LabelSetFont(StatusLabel, 10, 'Tahoma', $FFFFFF, [fsBold]);

/////////////////////////////////////////////The end\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\

FinishedHeadingLabel:= CreateLabel(WizardForm, ScaleX(90), ScaleY(95), ScaleX(522), ScaleY(80), ExpandConstant('{cm:FinishedHeadingLabel}'), false);
LabelSetFont(FinishedHeadingLabel, 12, 'Tahoma', $FFFFFF, [fsBold]);
FinishedHeadingLabel.Alignment := taCenter;

FinishedLabel:= CreateLabel(WizardForm, ScaleX(90), ScaleY(160), ScaleX(522), ScaleY(150), ExpandConstant('{cm:FinishedLabel}'), false);
LabelSetFont(FinishedLabel, 10, 'Tahoma', $FFFFFF, [fsBold]);
FinishedLabel.Alignment := taCenter;
end;






procedure HideComponents;
begin
WelcomeLabel1.Hide;
WelcomeLabel2.Hide;
SelectDirLabel.Hide;
SelectDirBrowseLabel.Hide;
#ifdef Components
SelectComponentsLabel.Hide;
WizardForm.ComponentsList.Hide;
#endif
SelectTasksLabel.Hide;
#ifdef Tasks
WizardForm.TasksList.Hide;
#endif
SelectStartMenuFolderLabel.Hide;
SelectStartMenuFolderBrowseLabel.Hide;
L1.Hide;
L2.Hide;
#ifdef PrecompInside
L3.Hide;
#endif
DirEditLabel.Hide;
TotalSpaceLabel.Hide;
FreeSpaceLabel.Hide;
InstallSpacelabel.Hide;
NeedSpaceLabel.Hide;
TotalSpaceLabel2.Hide;
FreeSpaceLabel2.Hide;
InstallSpacelabel2.Hide;
NeedSpaceLabel2.Hide;
GroupEditLabel.Hide;
NoIconsLabel.Hide;
InstallingLabel.Hide;
StatusLabel.Hide;
FinishedHeadingLabel.Hide;
FinishedLabel.Hide;
IMGSetVisibility(DirFolder,False);
IMGSetVisibility(DirEditImg,False);
IMGSetVisibility(HDD,False);
IMGSetVisibility(HDD2,False);
IMGSetVisibility(GroupFolder,False);
BtnSetVisibility(hDirBrowseBtn,False);
BtnSetVisibility(hGroupBrowseBtn,False);
BtnSetVisibility(NoIconsCheck,False);
BtnSetVisibility(AuthorBtn,False);
ReadyPanel.Hide;
ReadyBitmap.Hide;
ReadyScrollBar.Hide;
ReadyPanelLabel.Hide;
ReadyLabel.Hide;
IsDoneHide;
TasksBevel1.Hide;
#ifdef PrecompInside
ImgTBDelete(TB3);
#endif
ImgTBDelete(TB2);
ImgTBDelete(TB);
end;

procedure ShowComponents(CurPageID: Integer);
begin
HideComponents;
if CurPageID = wpWelcome then
begin
WelcomeLabel1.Show;
WelcomeLabel2.Show;
BtnSetVisibility(AuthorBtn,True);

end;

if CurPageID = wpSelectDir then
begin
SelectDirLabel.Show;
SelectDirBrowseLabel.Show;
DirEditLabel.Show;
TotalSpaceLabel.Show;
FreeSpaceLabel.Show;
InstallSpacelabel.Show;
NeedSpaceLabel.Show
TotalSpaceLabel2.Show;
FreeSpaceLabel2.Show;
InstallSpacelabel2.Show;
NeedSpaceLabel2.Show;
IMGSetVisibility(DirFolder,True);
IMGSetVisibility(DirEditImg,True);
IMGSetVisibility(HDD,True);
IMGSetVisibility(HDD2,True);
BtnSetVisibility(hDirBrowseBtn,True);
end;

#ifdef Components
if CurPageID = wpSelectComponents then
begin
SelectComponentsLabel.Show;
WizardForm.ComponentsList.Show;
end;
#endif

if CurPageID = wpSelectProgramGroup then
begin
SelectStartMenuFolderLabel.Show;
SelectStartMenuFolderBrowseLabel.Show;
GroupEditLabel.Show;
NoIconsLabel.Show;
ImgTBDelete(TB2);
IMGSetVisibility(DirEditImg,True);
IMGSetVisibility(GroupFolder,True);
BtnSetVisibility(NoIconsCheck,True);
BtnSetVisibility(hGroupBrowseBtn,True);
end;


if CurPageID = wpSelectTasks then
begin
TB:=ImgTBCreate(WizardForm.Handle,'trackbar_bkg.pn g','trackbar_btn.png',80,140,190,10,87,268,132,18, 33,1)
ImgTBSetChangePosEvent(TB,@TBChangePos);
L1.Show;
TB2:=ImgTBCreate(WizardForm.Handle,'trackbar_bkg.p ng','trackbar_btn.png',80,210,190,10,87,268,202,18 ,33,1)
ImgTBSetChangePosEvent(TB2,@TB2ChangePos);
L2.Show;
#ifdef PrecompInside
TB3:=ImgTBCreate(WizardForm.Handle,'trackbar_bkg.p ng','trackbar_btn.png',80,290,190,10,87,268,282,18 ,33,1)
ImgTBSetChangePosEvent(TB3,@TB3ChangePos);
L3.Show;
#endif
TasksBevel1.Show;
SelectTasksLabel.Show;
#ifdef Tasks
WizardForm.TasksList.Show;
#endif
end;

if CurPageID = wpReady then
begin
ReadyBitmap.Show;
ReadyScrollBar.Show;
ReadyPanelLabel.Show;
ReadyPanel.Show;
ReadyLabel.Show;
ReadyPanelLabel.Caption := WizardForm.ReadyMemo.Lines.Text;
end;

if CurPageID = wpInstalling then
begin
InstallingLabel.Show;
StatusLabel.Show;
IsDoneShow();
end;

if CurPageID = wpFinished then
begin
FinishedHeadingLabel.Show;
FinishedLabel.Show;
LabelTime3.Show;
end;
if (CurPageID = wpFinished) and ISDoneError then
begin
LabelTime3.Hide;
end;
end;



function UninstPBProc(h:hWnd;Msg,wParam,lParam:Longint):Lon gint;
var
pr,i1,i2:Extended;
p:string;
begin
if Msg=$2 then SetWindowLong(h,-4,UninstPBOldProc);
Result:=CallWindowProc(UninstPBOldProc,h,Msg,wPara m,lParam);
if (Msg=$402) and (UninstallProgressForm.ProgressBar.Position>Uninst allProgressForm.ProgressBar.Min) then begin
i1:=UninstallProgressForm.ProgressBar.Position-UninstallProgressForm.ProgressBar.Min;
i2:=UninstallProgressForm.ProgressBar.Max-UninstallProgressForm.ProgressBar.Min;
pr:=(i1*100)/i2;
p:=+Format('%f',[pr])+'%';
UnLabelPct.Caption:=p;
StringChange(p,',','.');
ImgPBSetPositionUn(UninstPB,pr);
ImgApplyChangesBotvaU(UninstallProgressForm.Handle );
end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
IsDoneUnpack(CurStep);
end;


procedure CurPageChanged(CurPageID: Integer);
begin

WizardForm.NextButton.Enabled:= True;
if CurPageID = wpSelectDir then
ObjectFunc(WizardForm.DirEdit);
if (CurPageID = wpFinished) and ISDoneError then begin
LabelTime3.Hide;
WizardForm.Caption:= ExpandConstant('{cm:Error}');
FinishedLabel.Font.Color:= $0000FF;
FinishedHeadingLabel.Caption:= ExpandConstant('{cm:ErrorFinishedHeadingLabel}');
FinishedLabel.Caption:= ExpandConstant('{cm:ErrorFinishedLabel}');
DelTree(ExpandConstant('{app}'), True, True, True);
end;
SetStateNewButtons;
ShowComponents(CurPageID);
ImgApplyChanges(WizardForm.Handle);
end;


procedure InitializeWizard;
begin


/////////////////commands for splash/////////////
#ifdef Splash
ExtractTemporaryFile('splash.png');
ExtractTemporaryFile('isgsg.dll');

ShowSplashScreen(WizardForm.Handle,ExpandConstant( '{tmp}')+'\splash.png',1000,3000,1000,0,255,False, $FFFFFF,10);
#endif
/////////////////////commands for music///////////////////
#ifdef Music
ExtractTemporaryFile('BASS.dll');
ExtractTemporaryFile('MusicButton.png');
ExtractTemporaryFile('Music.mp3');
BASS_Init(ExpandConstant('{tmp}\Music.mp3'))
BASS_CreateOnOffButton(ExpandConstant('{tmp}\Music Button.png'), 90, 320, 34, 34, 4)
BtnSetEvent(Bass_OnOffBtn,BtnMouseEnterEventID,Wra pBtnCallback(@WFBtnEnter,1));

#endif

////////////////////////the end of the command for music////////////

CreateWizardForm;
ButtonsTextures;
#ifdef AuthorButton
CreateAuthorBtn;
#endif

TaskBarV10(MainForm.Handle, WizardForm.Handle, false, false, 0, 0, _m_);
end;



function InitializeSetup: Boolean;
begin
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
if not FileExists(ExpandConstant('{tmp}\b2p.dll')) then ExtractTemporaryFile('b2p.dll');
if not FileExists(ExpandConstant('{tmp}\CallbackCtrl.dll' )) then ExtractTemporaryFile('CallbackCtrl.dll');
ExtractTemporaryFile('Click.wav');
ExtractTemporaryFile('WFEnter.wav');
ExtractTemporaryFile('Check.wav');
if not FileExists(ExpandConstant('{tmp}\WinTB.dll')) then ExtractTemporaryFile('WinTB.dll');
if not FileExists(ExpandConstant('{tmp}\Amethyst Kamri.vsf')) then
begin
if not FileExists(ExpandConstant('{tmp}\VclStylesinno.dll ')) then ExtractTemporaryFile('VclStylesinno.dll');
if not FileExists(ExpandConstant('{tmp}\Amethyst Kamri.vsf')) then ExtractTemporaryFile('Amethyst Kamri.vsf');
LoadVCLStyle(ExpandConstant('{tmp}\Amethyst Kamri.vsf'));
if not FileExists(ExpandConstant('{tmp}\ReadMeRus.rtf')) then ExtractTemporaryFile('ReadMeRus.rtf');
Result:=True;
end;
end;








function InitializeUninstall(): Boolean;
begin
FileCopy(ExpandConstant('{app}\Temp\botva2.dll'), ExpandConstant('{tmp}\botva2.dll'), False);
FileCopy(ExpandConstant('{app}\Temp\CallbackCtrl.d ll'), ExpandConstant('{tmp}\CallbackCtrl.dll'), False);
FileCopy(ExpandConstant('{app}\Temp\CancelBtn.png' ), ExpandConstant('{tmp}\CancelBtn.png'), False);
FileCopy(ExpandConstant('{app}\Temp\MainImage.png' ), ExpandConstant('{tmp}\MainImage.png'), False);
FileCopy(ExpandConstant('{app}\Temp\pbbkg.png'), ExpandConstant('{tmp}\pbbkg.png'), False);
FileCopy(ExpandConstant('{app}\Temp\pb.png'), ExpandConstant('{tmp}\pb.png'), False);
Result:=True;
LoadVCLStyle_UnInstall(ExpandConstant('{#VCLStyles SkinPath}\Amethyst Kamri.vsf'));
end;

procedure InitializeUninstallProgressForm();
begin
with UninstallProgressForm do begin
Bevel.Hide;
InnerNotebook.Hide;
OuterNotebook.Hide;
ClientWidth:= ScaleX(700);
ClientHeight:= ScaleY(400);
end;

UnInstallingLabel:= CreateLabel(UninstallProgressForm, ScaleX(180), ScaleY(80), ScaleX(0), ScaleY(0), ExpandConstant('{cm:UninstDescript}'), true);
LabelSetFont(UnInstallingLabel, 10, 'Tahoma', $FFFFFF, [fsBold]);
UnInstallingLabel.Alignment := taCenter;

UnStatusLabel:= CreateLabel(UninstallProgressForm, ScaleX(220), ScaleY(130), ScaleX(0), ScaleY(0), ExpandConstant('{cm:StatusUninst}'), true);
LabelSetFont(UnStatusLabel, 10, 'Tahoma', $FFFFFF, [fsBold]);
UnStatusLabel.Alignment := taCenter;

UnLabelPct:= CreateLabel(UninstallProgressForm, ScaleX(328), ScaleY(250), ScaleX(0), ScaleY(0), '', true);
LabelSetFont(UnLabelPct, 20, 'Monotype Corsiva', $FFFFFF, [fsBold]);
UnLabelPct.Alignment := taCenter;

UninstallProgressForm.CancelButton.Visible:=False;
with UninstallProgressForm.CancelButton do begin
hCancelUninstBtn:=BtnCreateBotvaU(UninstallProgres sForm.Handle,295,320,112,34,ExpandConstant('{tmp}\ CancelBtn.png'),1,False);
BtnSetTextBotvaU(hCancelUninstBtn, UninstallProgressForm.CancelButton.Caption);
BtnSetFontColorBotvaU(hCancelUninstBtn,$FFFFFF,$E1 6941,$000000,$B6B6B6);
BtnSetEnabledBotvaU(hCancelUninstBtn,False);
end;

ImgLoadBotvaU(UninstallProgressForm.Handle,ExpandC onstant('{tmp}\MainImage.png'),0,0,0,0,False,True) ;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep=usUninstall then begin
UninstPB:=ImgPBCreateUn(UninstallProgressForm.Hand le, ExpandConstant('{tmp}\pbbkg.png'),ExpandConstant(' {tmp}\pb.png'),ScaleX(105), ScaleY(178), ScaleX(495), ScaleY(22));
UninstPBOldProc:=SetWindowLong(UninstallProgressFo rm.ProgressBar.Handle,-4,CallBackProc(@UninstPBProc,4));
ImgApplyChangesBotvaU(UninstallProgressForm.Handle );
end;
end;

procedure DeinitializeUninstall;
begin
gdipShutdownBotvaU;
UnLoadVCLStyles_UnInstall;
end;


procedure DeinitializeSetup;
begin
#ifdef Music
BASS_DeInit; //Release process for music
#endif
gdipShutdown;
UnLoadVCLStyles;
BGImageStream.Free;
BTNImageStream.Free;
WFButtonFont.Free;
TaskBarV10Kill;
WizardForm.Free;
end;
Reply With Quote
  #15  
Old 19-12-2015, 03:09
vint56 vint56 is offline
Registered User
 
Join Date: May 2011
Location: almaty
Posts: 52
Thanks: 118
Thanked 55 Times in 31 Posts
vint56 is on a distinguished road
ramazan19833
#ifdef Splash
procedure ShowSplashScreen(p1:HWND;p2:Ansistring;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10 :integer); external '[email protected]:isgsg.dll stdcall delayload';
#endif
Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Reflate test Razor12911 Conversion Tutorials 8 09-09-2015 00:35
Test Drive Unlimited 2 Beta Dopefish PC Games - Protection List 5 06-02-2011 04:46
n00b question, how to unpack? bloodriot DC Games 1 01-07-2003 08:32
Messiah 2 v1.30 TEST REVIEW PS2 v8 charlie_ps2 PS2 Games 0 04-03-2003 09:13



All times are GMT -7. The time now is 07:07.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2022, vBulletin Solutions Inc.
Copyright 2000-2020, FileForums @ https://fileforums.com