[code]
#include "botva2.iss"
#define AppName "Ashampoo Photo Commander 14"
#define AppVersion "14.0.4"
#define AppPublisher "Ashampoo"
#define AppURL "http://dilan.at.ua/"
#define AppExeName "apc.exe"
[Setup]
AppName=Ashampoo Photo Commander 14
AppVersion=14.0.4
AppPublisher={#AppPublisher}
AppPublisherURL={#AppURL}
AppSupportURL={#AppURL}
AppUpdatesURL={#AppURL}
DefaultDirName={pf}\Ashampoo Photo Commander 14
OutputDir=.
PrivilegesRequired=admin
Compression=lzma/ultra64
SolidCompression=true
InternalCompressLevel=ultra64
[Files]
DestName: "WizardForm.BitmapImage1.bmp"; Source: "stac.bmp"; Flags: dontcopy solidbreak
DestName: "WizardForm.BitmapImage2.bmp"; Source: "port neaktiv.bmp"; Flags: dontcopy solidbreak
Source: "C:\Users\WW-W\Desktop\Ashampoo Photo Commander 14 14_0_4\app\*"; DestDir: "{app}"; Flags: ignoreversion createallsubdirs recursesubdirs
Source: "C:\Users\WW-W\Desktop\Ashampoo Photo Commander 14 14_0_4\app\*"; DestDir: "{app}"; Flags: ignoreversion createallsubdirs recursesubdirs
Source: port neaktiv.bmp; DestDir: {tmp}; Flags: dontcopy nocompression
Source: 1.bmp; DestDir: {tmp}; Flags: dontcopy nocompression
Source: 2.bmp; DestDir: {tmp}; Flags: dontcopy nocompression
Source: stac.bmp; DestDir: {tmp}; Flags: dontcopy nocompression
Source: eng.png; DestDir: {tmp}; Flags: dontcopy nocompression
Source: Portable.png; DestDir: {tmp}; Flags: dontcopy nocompression
Source: rus.png; DestDir: {tmp}; Flags: dontcopy nocompression
Source: Installer net.png; DestDir: {tmp}; Flags: dontcopy nocompression
Source: b2p.dll; DestDir: {tmp}; Flags: dontcopy nocompression
Source: botva2.dll; Flags: dontcopy
[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
[Icons]
Name: {commondesktop}\Skype; Filename: {app}\apc.exe; Tasks: desktopicon
Код:
var
PortablePanel,InstallerPanel,RusFlag,EngFlag, PortableFlagPanel, InstallerFlagPanel: TPanel;
sLang, Slang2: string;
Portable,Installer, RusLang, EngLang: TNewRadioButton;
NewBox,NewGroupBox3: TNewGroupBox;
Bevel3: TBevel;
BitmapImage1,BitmapImage2: TBitmapImage;
function InitializeSetup(): Boolean;
begin
if not FileExists(ExpandConstant('{tmp}\rus.png')) then ExtractTemporaryFile('rus.png');
if not FileExists(ExpandConstant('{tmp}\eng.png')) then ExtractTemporaryFile('eng.png');
if not FileExists(ExpandConstant('{tmp}\b2p.dll')) then ExtractTemporaryFile('b2p.dll');
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
if not FileExists(ExpandConstant('{tmp}\Installer net.png')) then ExtractTemporaryFile('Installer net.png');
if not FileExists(ExpandConstant('{tmp}\Portable.png')) then ExtractTemporaryFile('Portable.png');
if not FileExists(ExpandConstant('{tmp}\port neaktiv.bmp')) then ExtractTemporaryFile('port neaktiv.bmp');
if not FileExists(ExpandConstant('{tmp}\stac.bmp')) then ExtractTemporaryFile('stac.bmp');
Result := True;
end;
procedure CopmpClick(Sender: TObject);
begin
case TNewRadioButton(Sender) of
RusLang:
begin
sLang := 'rus';
sLang2 := 'eng';
if Portable.Checked then
Portable.OnClick(Portable);
if Installer.Checked then
Installer.OnClick(Installer);
end;
EngLang:
begin
sLang := 'eng';
sLang2 := 'rus';
if Portable.Checked then
Portable.OnClick(Portable);
if Installer.Checked then
Installer.OnClick(Installer);
end;
Portable:
begin
PortablePanel.Show;
PortableFlagPanel.Show;
InstallerPanel.Show;
ImgLoad(PortableFlagPanel.Handle, ExpandConstant('{tmp}\' + sLang + '.png'), ScaleX(0), ScaleY(0),
ScaleX(40), ScaleY(20), True, True);
ImgApplyChanges(PortableFlagPanel.Handle);
InstallerFlagPanel.Hide;
end;
Installer:
begin
InstallerPanel.Hide;
PortablePanel.Hide;
InstallerFlagPanel.Show;
ImgLoad(InstallerFlagPanel.Handle, ExpandConstant('{tmp}\' + sLang + '.png'), ScaleX(0), ScaleY(0),
ScaleX(40), ScaleY(20), True, True);
ImgApplyChanges(InstallerFlagPanel.Handle);
PortableFlagPanel.Hide;
end;
end;
end;
procedure InitializeWizard();
begin
WizardForm.DiskSpaceLabel.Hide;
WizardForm.SelectDirBitmapImage.Hide;
sLang := 'rus';
sLang2 := 'eng';
NewGroupBox3 := TNewGroupBox.Create(WizardForm);
with NewGroupBox3 do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(0);
Top := ScaleY(0);
Width := ScaleX(417);
Height := ScaleY(183);
Caption := 'Пожалуйста, выберите версию:';
end;
Bevel3 := TBevel.Create(WizardForm);
with Bevel3 do
begin
Parent := NewGroupBox3;
Left := ScaleX(208);
Top := ScaleY(22);
Width := ScaleX(2);
Height := ScaleY(148);
end;
PortablePanel := TPanel.Create(WizardForm);
with PortablePanel do
begin
Parent := NewGroupBox3;
Left := ScaleX(248);
Top := ScaleY(56);
Width := ScaleX(122);
Height := ScaleY(112);
BevelOuter := bvNone;
ParentBackground := True;
end;
InstallerPanel := TPanel.Create(WizardForm);
with InstallerPanel do
begin
Parent := NewGroupBox3;
Left := ScaleX(32);
Top := ScaleY(56);
Width := ScaleX(122);
Height := ScaleY(112);
BevelOuter := bvNone;
ParentBackground := True;
end;
InstallerFlagPanel := TPanel.Create(WizardForm);
with InstallerFlagPanel do
begin
Parent := NewGroupBox3;
Left := ScaleX(106);
Top := ScaleY(145);
Width := ScaleX(40);
Height := ScaleY(20);
BevelOuter := bvNone;
ParentBackground := True;
end;
PortableFlagPanel := TPanel.Create(WizardForm);
with PortableFlagPanel do
begin
Parent := NewGroupBox3;
Left := ScaleX(326);
Top := ScaleY(145);
Width := ScaleX(40);
Height := ScaleY(20);
BevelOuter := bvNone;
ParentBackground := True;
end;
BitmapImage1 := TBitmapImage.Create(WizardForm);
with BitmapImage1 do
begin
Parent := NewGroupBox3;
Left := ScaleX(32);
Top := ScaleY(56);
Width := ScaleX(122);
Height := ScaleY(112);
ExtractTemporaryFile('WizardForm.BitmapImage1.bmp');
Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp'));
end;
BitmapImage2 := TBitmapImage.Create(WizardForm);
with BitmapImage2 do
begin
Parent := NewGroupBox3;
Left := ScaleX(248);
Top := ScaleY(56);
Width := ScaleX(122);
Height := ScaleY(112);
ExtractTemporaryFile('WizardForm.BitmapImage2.bmp');
Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage2.bmp'));
end;
Portable := TNewRadioButton.Create(WizardForm);
with Portable do
begin
Parent := NewGroupBox3;
Left := ScaleX(264);
Top := ScaleY(16);
Width := ScaleX(200);
Height := ScaleY(17);
Caption := 'Портативная';
OnClick:=@CopmpClick;
Checked := True;
end;
Installer := TNewRadioButton.Create(WizardForm);
with Installer do
begin
Parent := NewGroupBox3;
Left := ScaleX(32);
Top := ScaleY(16);
Width := ScaleX(200);
Height := ScaleY(17);
Caption := 'Стационарная';
OnClick:=@CopmpClick;
Checked := True;
end;
NewBox := TNewGroupBox.Create(WizardForm);
with NewBox do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(210);
Top := ScaleY(185);
Width := ScaleX(207);
Height := ScaleY(50);
Caption := 'Язык интерфейса:';
end;
EngLang := TNewRadioButton.Create(WizardForm);
with EngLang do
begin
Parent := NewBox;
Left := ScaleX(100);
Top := ScaleY(23);
Width := ScaleX(80);
Height := ScaleY(17);
Caption := 'Английский';
Checked := True;
OnClick:=@CopmpClick;
end;
RusLang := TNewRadioButton.Create(WizardForm);
with RusLang do
begin
Parent := NewBox;
Left := ScaleX(25);
Top := ScaleY(23);
Width := ScaleX(60);
Height := ScaleY(17);
Caption := 'Русский';
OnClick:=@CopmpClick;
Checked :=True;
end;
ImgLoad(PortablePanel.Handle,ExpandConstant('{tmp}\Portable.png'),ScaleX(0),ScaleY(0),ScaleX(122),ScaleY(112),True,True);
ImgApplyChanges(PortablePanel.Handle);
ImgLoad(InstallerPanel.Handle,ExpandConstant('{tmp}\Installer net.png'),ScaleX(0),ScaleY(0),ScaleX(122),ScaleY(112),True,True);
ImgApplyChanges(InstallerPanel.Handle);
ImgLoad(InstallerFlagPanel.Handle,ExpandConstant('{tmp}\rus.png'),ScaleX(0),ScaleY(0),ScaleX(40),ScaleY(20),True,True);
ImgApplyChanges(InstallerFlagPanel.Handle);
ImgLoad(PortableFlagPanel.Handle,ExpandConstant('{tmp}\eng.png'),ScaleX(0),ScaleY(0),ScaleX(40),ScaleY(20),True,True);
ImgApplyChanges(PortableFlagPanel.Handle);
end;
procedure DeinitializeSetup();
begin
gdipShutdown;
end;
