Здравствуйте!
Помогите установить скрипт, что бы в углу инсталятора было кликабельное лого (
http://forum.ru-board.com/topic.cgi?forum=5&topic=35146&start=1299&limit=1&m=3#1 )
Мой скрипт:
[more]
Код: #define MyAppName "Mini Ninjas"
#define NeedSize 4078
#define AfterSize 5096
#define NeedMem 512
;#define records
;#define PrecompInside
#define SrepInside
;#define facompress
;#define precomp "0.4"
#define unrar
;#define XDelta
#define PackZIP
#define icon "Files/icon.ico"
#define FontT "Comic Sans MS"
//Èçìåíåíèå öâåòà òåêñòà//
#define Color "$b2b2b2"
#define Music
[Setup]
AppName=Mini Ninjas
AppVersion=1.0
AppPublisher=Toshiro
DefaultDirName={pf}/Mini Ninjas
DefaultGroupName=R.G. M.T.R/Mini Ninjas
OutputBaseFilename=setup
Compression=lzma/ultra64
SolidCompression=true
SetupIconFile={#icon}
DisableReadyPage=yes
InternalCompressLevel=ultra64
[Files]
////////////////////////////Áèáèîòåêè (íóæíû äëÿ ðàáîòû èíñòàëëÿòîðà)!//////////////////////////////////////////:
Source: dll\botva2.dll; DestDir: {tmp}; Flags: dontcopy
Source: dll\b2p.dll; DestDir: {tmp}; Flags: dontcopy
Source: dll\CallbackCtrl.dll; DestDir: {tmp}; Flags: dontcopy
Source: dll\Tools.dll; DestDir: {tmp}; Flags: dontcopy
////////////////////////////Ôàéëû èçîáðàæåíèé/////////////////////////////////////////:
Source: Files\fon.jpg; DestDir: {tmp}; Flags: dontcopy
Source: Files\next.png; DestDir: {tmp}; Flags: dontcopy
Source: Files\back.png; DestDir: {tmp}; Flags: dontcopy
Source: Files\browse.png; DestDir: {tmp}; Flags: dontcopy
#ifdef Music
Source: Music\*; DestDir: {tmp}; Flags: dontcopy
#endif
Source: Files\Edit.png; DestDir: {tmp}; Flags: dontcopy
Source: Files\work.png; DestDir: {tmp}; Flags: dontcopy
Source: Files\CheckBox.png; DestDir: {tmp}; Flags: dontcopy
Source: Files\pb.png; DestDir: {tmp}; Flags: dontcopy
Source: Files\pbback.png; DestDir: {tmp}; Flags: dontcopy
Source: Files\icon.ico; DestDir: {app}
[Icons]
Name: "{group}\Èãðàòü"; Filename: "{app}\ninja.exe"; IconFilename: "{app}\icon.ico"; Check: CheckError
Name: "{userdesktop}\Mini Ninjas"; Filename: "{app}\ninja.exe"; WorkingDir: "{app}\"; Comment: "RePack by Òîøèðî" ; Check: CheckError
[Tasks]
Name: DPO; Description: Äîïîëíèòåëüíîå ïðîãðàìíîå îáåñïå÷åíèå:
Name: DPO/VC; Description: Óñòàíîâèòü Microsoft Visual C++ 2005 Redist
[Run]
Filename: {src}\Redist\DirectX\DXSETUP.exe; WorkingDir: {src}; Flags: waituntilterminated; Check: DirectX and CheckError
Filename: {src}\Redist\al.exe; WorkingDir: {src}; Flags: waituntilterminated;
Filename: {src}\Redist\vcredist_x86.exe; WorkingDir: {src}; Parameters: /Q; Flags: waituntilterminated; Check: VC and not IsWin64 and CheckError
;Filename: {src}\Redist\vcredist_x64.exe; WorkingDir: {src}\Redist\; Parameters: /Q; Flags: waituntilterminated; Check: VC and IsWin64 and CheckError
;Filename: {src}\Resource\voices.bin; WorkingDir: {app}; Parameters: -x -y -s2 -d.; StatusMsg: Èäåò ðàñïàêîâêà äàííûõ, æäåì...; Flags: runasoriginaluser
[UninstallDelete]
Name: {app}\*.*; Type: filesandordirs
[Code]
const
A1='À';
Z1='ß';
A2='à';
Z2='ÿ';
X1='¸';
X2='¨';
type
TPBProc = function (h:hWnd;Msg,wParam,lParam:Longint):Longint;
TProc=procedure(HandleW, msg, idEvent, TimeSys: LongWord);
var
IsCustomFontInstalled: boolean;
FontName: string;
fon: Longint;
bwork, dir, group, work, work1, work2, work3, work4, work5, work6: Longint;
WerInctall1, WerInstall2, DesktopLabel,DesktopLabel1, DesktopLabel2, DPOLabel, DirectXLabel, VCLabel, SelectTasks, MainLabel, ReadyLabel1, ReadyLabel2, ReadyLabel3, WelcomeLabel1, WelcomeLabel2, SelectDirPage1, SelectDirPage2, SelectProgramGroupPage1, SelectProgramGroupPage2, NoIconsLabel: TLabel;
DPOCheck, DesktopCheck, DirectXCheck, VCCheck, NoIconsCheck, CancelBtn, MinBtn, CancelBtn, MusicButton, hCancelBtn, hNextBtn, hBackBtn, hDirBrowseBtn, hGroupBrowseBtn, hCancelUninstBtn: HWND;
WFButtonFont: TFont;
NeedSpaceLabel, AfterSpaceLabel,FreeSpaceLabel,DirEditLabel, GroupEditLabel: TLabel;
FreeMB, TotalMB: Cardinal;
SizeStr: AnsiString;
SizeInt, AfterInt, Edit, Space, Ready: Longint;
SymbolNumber: Longint;
TimerID: LongWord;
CurrentPicture:integer;
PicList: TStringlist;
//****************//Ïîäêëþ÷åíèå ìîäóëåé//*********************//
#include "Modules\botva2.iss"
#include "Modules\progressbar.iss"
#include "Modules\CustomMessages.iss"
#include "Modules\ISDone.iss"
#ifdef Music
#include "Modules\BASS_Module.iss"
#endif
//****************//Ïîäêëþ÷åíèå ìîäóëåé//*********************//
function InitializeSetup:boolean;
begin
if not FileExists(ExpandConstant('{tmp}\b2p.dll')) then ExtractTemporaryFile('b2p.dll');
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
Result:=True;
end;
function ReleaseCapture(): Longint; external 'ReleaseCapture@user32.dll stdcall';
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
function SetLayeredWindowAttributes(hwnd: hWnd; crKey: TColor; bAlpha: byte; dwFlags: DWORD): Boolean; external 'SetLayeredWindowAttributes@user32.dll stdcall';
function GetWindowLong(Wnd: HWnd; Index: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall';
function CreateNewFont(Height, Width: Integer; thickness: DWORD; FontName: PChar): HWND; external 'CreateNewFont@files:Tools.dll stdcall';
function AddFontResource(FileName: PAnsiChar): Integer; external 'AddFontResourceA@gdi32.dll stdcall';
function RemoveFontResource(FileName: PAnsiChar): BOOL; external 'RemoveFontResourceA@gdi32.dll stdcall';
procedure LabelOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(WizardForm.Handle,$0112,$F012,0)
end;
//************************************************[Íà÷àëî - Çàãðóçêà èçîáðàæåíèé]*************************************************************//
procedure CreateWizardImage;
begin
with WizardForm do begin
ClientWidth:=ScaleX(667);
ClientHeight:=ScaleY(437);
InnerNotebook.Hide;
OuterNotebook.Hide;
Bevel.Hide;
Center;
end;
fon:=ImgLoad(WizardForm.Handle, ExpandConstant('fon.jpg'), ScaleX(0), ScaleY(0), WizardForm.ClientWidth, WizardForm.ClientHeight,True,True);
work:= ImgLoad(WizardForm.Handle,ExpandConstant('work.png'),ScaleX(0), ScaleY(0),WizardForm.ClientWidth,WizardForm.ClientHeight,True,True);
Edit:=ImgLoad(WizardForm.Handle,ExpandConstant('Edit.png'),ScaleX(133), ScaleY(350),ScaleX(328),ScaleY(24),True,True);
ImgApplyChanges(WizardForm.Handle);
end;
//************************************************[Êîíåö - Çàãðóçêà èçîáðàæåíèé]*************************************************************//
//************************************************ [Íà÷àëî - Òåêñòóðû êíîïîê] ***************************************************//
procedure MinimizeBtnClick(h:HWND);
begin
GetMinimizeAnimation;
SetMinimizeAnimation(true);
SendMessage(WizardForm.Handle,$112,61472,0);
end;
procedure CancelBtnClick(h:HWND);
begin
WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
end;
procedure SetStateNewButtons;
begin
with WizardForm.BackButton do begin
BtnSetVisibility(hBackBtn,Visible);
BtnSetEnabled(hBackBtn,Enabled);
end;
with WizardForm.NextButton do begin
BtnSetVisibility(hNextBtn,Visible);
BtnSetEnabled(hNextBtn,Enabled);
end;
with WizardForm.CancelButton do begin
BtnSetVisibility(hCancelBtn,Visible);
BtnSetEnabled(hCancelBtn,Enabled);
end;
BtnSetText(hDirBrowseBtn,PAnsiChar(WizardForm.DirBrowseButton.Caption));
BtnSetText(hGroupBrowseBtn,PAnsiChar(WizardForm.GroupBrowseButton.Caption));
end;
procedure WizardFormBtnClick(hBtn:HWND);
var
Btn:TButton;
begin
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;
function NoIcons: Boolean;
begin
Result:= BtnGetEnabled(hGroupBrowseBtn);
end;
function Redist: Boolean;
begin
Result:= BtnGetChecked(DPOCheck);
end;
function DirectX: Boolean;
begin
Result:= BtnGetChecked(DirectXCheck);
end;
function VC: Boolean;
begin
Result:= BtnGetChecked(VCCheck);
end;
procedure NoIconsClick(hBtn:HWND);
var
Check:boolean;
begin
Check:=BtnGetChecked(hBtn);
BtnSetEnabled(hGroupBrowseBtn, Check);
WizardForm.GroupEdit.Enabled:=Check;
end;
procedure NoIconsLabelClick(Sender:TObject);
begin
BtnSetChecked(NoIconsCheck, not BtnGetChecked(NoIconsCheck));
NoIconsClick(NoIconsCheck);
end;
procedure DesktopClick(hBtn:HWND);
begin
end;
procedure DirChange(Sender: TObject);
var
CurrentDisk: String;
begin
CurrentDisk:=ExtractFileDrive(WizardForm.DirEdit.Text);
DirEditLabel.Caption:=MinimizePathName(WizardForm.DirEdit.Text, DirEditLabel.Font, DirEditLabel.Width);
end;
procedure DesktopLabelClick(Sender:TObject);
begin
BtnSetChecked(DesktopCheck, not BtnGetChecked(DesktopCheck));
DesktopClick(DesktopCheck);
end;
procedure DirectXClick(hBtn:HWND);
var
Check:boolean;
begin
Check:=BtnGetChecked(hBtn);
if (BtnGetChecked(VCCheck)=false) and (Check = false) then begin BtnSetChecked(DPOCheck, false); end;
if (BtnGetChecked(VCCheck)=true) and (Check = true) then begin BtnSetChecked(DPOCheck, true); end;
if (BtnGetChecked(VCCheck)=true) and (Check = false) then begin BtnSetChecked(DPOCheck, true); end;
if (BtnGetChecked(VCCheck)=false) and (Check = true) then begin BtnSetChecked(DPOCheck, true); end;
end;
procedure VCClick(hBtn:HWND);
var
Check:boolean;
begin
Check:=BtnGetChecked(hBtn);
if (BtnGetChecked(DirectXCheck)=false) and (Check = false) then begin BtnSetChecked(DPOCheck, false); end;
if (BtnGetChecked(DirectXCheck)=true) and (Check = true) then begin BtnSetChecked(DPOCheck, true); end;
if (BtnGetChecked(DirectXCheck)=true) and (Check = false) then begin BtnSetChecked(DPOCheck, true); end;
if (BtnGetChecked(DirectXCheck)=false) and (Check = true) then begin BtnSetChecked(DPOCheck, true); end;
end;
procedure DPOClick(hBtn:HWND);
var
Check:boolean;
begin
Check:=BtnGetChecked(hBtn);
if BtnGetChecked(VCCheck) = false and BtnGetChecked(DirectXCheck) = false then BtnSetChecked(DPOCheck, false);
if BtnGetChecked(DPOCheck) then BtnSetChecked(DirectXCheck, True) else BtnSetChecked(DirectXCheck, False);
if BtnGetChecked(DPOCheck) then BtnSetChecked(VCCheck, True) else BtnSetChecked(VCCheck, False);
end;
procedure ButtonsTextures;
begin
WFButtonFont:=TFont.Create;
WFButtonFont.Name:='Georgia';
WFButtonFont.Size:=10;
WFButtonFont.Style:= [fsBold];
with WizardForm.NextButton do begin
hNextBtn:=BtnCreate(WizardForm.Handle,ScaleX(590), ScaleY(355), ScaleX(64), ScaleY(36),ExpandConstant('{tmp}\next.png'),0,False);
BtnSetEvent(hNextBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
Width:=0;
Height:=0;
end;
with WizardForm.BackButton do begin
hBackBtn:=BtnCreate(WizardForm.Handle,ScaleX(13), ScaleY(355), ScaleX(64), ScaleY(36),ExpandConstant('{tmp}\back.png'),0,False);
BtnSetEvent(hBackBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
BtnSetFontColor(hBackBtn,clblack,clblack,clblack,clblack);
Width:=0;
Height:=0;
end;
with WizardForm.CancelButton do begin
hCancelBtn:=BtnCreate(WizardForm.Handle,Left+166,Top+116,Width+31,Height+16,ExpandConstant('{tmp}\back.png'),18,False);
BtnSetEvent(hCancelBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
BtnSetFontColor(hCancelBtn,clblack,clblack,clblack,clblack);
Width:=0;
Height:=0;
end;
with WizardForm.DirBrowseButton do begin
hDirBrowseBtn:=BtnCreate(WizardForm.Handle,ScaleX(465), ScaleY(343),ScaleX(79), ScaleY(39),ExpandConstant('{tmp}\browse.png'),0,False);
BtnSetEvent(hDirBrowseBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
BtnSetFont(hDirBrowseBtn,WFButtonFont.Handle);
BtnSetFontColor(hDirBrowseBtn,{#Color},{#Color},{#Color},{#Color});
Width:=0;
Height:=0;
end;
with WizardForm.GroupBrowseButton do begin
hGroupBrowseBtn:=BtnCreate(WizardForm.Handle,ScaleX(465), ScaleY(343),ScaleX(79), ScaleY(39),ExpandConstant('{tmp}\browse.png'),0,False);
BtnSetEvent(hGroupBrowseBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
BtnSetFont(hGroupBrowseBtn,WFButtonFont.Handle);
BtnSetFontColor(hGroupBrowseBtn,{#Color},{#Color},{#Color},{#Color});
Width:=0;
Height:=0;
end;
NoIconsCheck:=BtnCreate(WizardForm.Handle,ScaleX(128),ScaleY(380),ScaleX(25),ScaleY(25), ExpandConstant('CheckBox.png'),8,True);
BtnSetEvent(NoIconsCheck,BtnClickEventID,WrapBtnCallback(@NoIconsClick,1));
BtnSetChecked(NoIconsCheck, true);
DPOCheck:=BtnCreate(WizardForm.Handle, ScaleX(128), ScaleY(350), ScaleX(25), ScaleY(25), ExpandConstant('CheckBox.png'),8, True);
BtnSetChecked(DPOCheck, true);
BtnSetEvent(DPOCheck, BtnClickEventID, WrapBtnCallback(@DPOClick, 1));
DirectXCheck:=BtnCreate(WizardForm.Handle, ScaleX(160), ScaleY(225), ScaleX(20), ScaleY(20), ExpandConstant('CheckBox.png'), 8, True);
BtnSetChecked(DirectXCheck, true);
BtnSetEvent(DirectXCheck,BtnClickEventID,WrapBtnCallback(@DirectXClick,1));
VCCheck:=BtnCreate(WizardForm.Handle, ScaleX(160), ScaleY(245), ScaleX(20), ScaleY(20), ExpandConstant('CheckBox.png'), 8, True);
BtnSetChecked(VCCheck, true);
BtnSetEvent(VCCheck,BtnClickEventID,WrapBtnCallback(@VCClick,1));
DesktopCheck:=BtnCreate(WizardForm.Handle, ScaleX(128), ScaleY(380), ScaleX(25), ScaleY(25), ExpandConstant('CheckBox.png'), 8, True);
BtnSetChecked(DesktopCheck, true);
BtnSetEvent(DesktopCheck,BtnClickEventID,WrapBtnCallback(@DesktopClick,1));
end;
//************************************************ [Êîíåö - Òåêñòóðû êíîïîê] ***************************************************//
//************************************************[Íà÷àëî - Ïðîâåðêà ìåñòà íà äèñêå]*************************************************************//
procedure GroupChange (Sender: TObject);
begin
GroupEditLabel.Caption := MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width);
WizardForm.DirEdit.Text:= WizardForm.DirEdit.Text + #0;
end;
//************************************************[Êîíåö - Ïðîâåðêà ìåñòà íà äèñêå]*************************************************************//
//************************************************[Íà÷àëî - Êîìïîíåíòû ñòðàííèö]*************************************************************//
procedure LogoOnClick(Sender: TObject);
var ResCode: Integer;
begin
ShellExec('', 'http://www.forum.ru-board.com', '' , '', SW_SHOW, ewNoWait, ResCode)
end;
procedure InitializerWizard();
var
BtnPanel: TPanel;
BtnImage: TBitmapImage;
begin
ExtractTemporaryFile('Button.bmp')
BtnPanel:=TPanel.Create(WizardForm)
with BtnPanel do begin
Left:=20
Top:=325
Width:=132
Height:=27
Cursor:=crHand
OnClick:=@logoOnClick
Parent:=WizardForm
end
BtnImage:=TBitmapImage.Create(WizardForm)
with BtnImage do begin
AutoSize:=True;
Enabled:=False;
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp')
Parent:=BtnPanel
end
end;
procedure CreateWizard;
begin
///////////////////////WelcomePage////////////////////////
WelcomeLabel1:= TLabel.Create(WizardForm);
with WelcomeLabel1 do
begin
Left:= ScaleX(250);
Top:= ScaleY(17);
Width:= ScaleX(350);
Height:= ScaleY(65);
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
Font.Name:='Comic Sans MS';
Font.Size:= 10;
Font.Color:={#Color};
Font.Style := [fsBold];
Alignment := taCenter;
Parent:= WizardForm;
Caption:= ExpandConstant('{cm:Welcome1}')
end;
WelcomeLabel2:=TLabel.Create(WizardForm);
with WelcomeLabel2 do
begin
Left:= ScaleX(110);
Top:= ScaleY(310);;
Width:= ScaleX(450);
Height:= ScaleY(200);
AutoSize:= false;
WordWrap:= true;
Font.Name:= 'Comic Sans MS';
Font.Size:= 11
Alignment := taCenter;
Font.Style := [fsBold];
Transparent:= true;
Font.Color:={#Color};
Parent:= WizardForm;
Caption:= ExpandConstant(' {cm:Welcome2} {cm:Welcome3}');
end;
///////////////////////SelectDirPage////////////////////////
SelectDirPage1:=TLabel.Create(WizardForm);
with SelectDirPage1 do
begin
Left:= ScaleX(250);
Top:= ScaleY(17);
Width:= ScaleX(350);
Height:= ScaleY(65);
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
Font.Name:='Comic Sans MS';
Font.Size:= 10;
Font.Color:={#Color};
Font.Style := [fsBold];
Alignment := taCenter;
Parent:= WizardForm;
Caption:= ExpandConstant('{cm:SelectDir1}');
end;
SelectDirPage2:=TLabel.Create(WizardForm);
with SelectDirPage2 do
begin
Left:= ScaleX(110);
Top:= ScaleY(310);;
Width:= ScaleX(450);
Height:= ScaleY(200);
AutoSize:= false;
WordWrap:= true;
Font.Name:= 'Comic Sans MS';
Font.Size:= 10
Alignment := taCenter;
Font.Style := [fsBold];
Transparent:= true;
Font.Color:={#Color};
Parent:= WizardForm;
end;
DirEditLabel := TLabel.Create(WizardForm);
with DirEditLabel do begin
AutoSize:=False;
SetBounds(ScaleX(135), ScaleY(353), ScaleX(446), ScaleY(30));
WordWrap:= True;
ShowAccelChar := False;
Transparent:=True;
Font.Name:= 'Comic Sans MS'
Font.Size:= 10;
Font.Color:={#Color};
Font.Style:=[fsBold];
Caption := 'Âûáåðèòå ïàïêó äëÿ óñòàíîâêè, íàæàâ «Îáçîð»';
Parent := WizardForm;
end;
///////////////////////SelectProgrammGroupPage////////////////////////
SelectProgramGroupPage1:=TLabel.Create(WizardForm);
with SelectProgramGroupPage1 do
begin
Left:= ScaleX(250);
Top:= ScaleY(17);
Width:= ScaleX(350);
Height:= ScaleY(65);
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
Font.Name:='Comic Sans MS';
Font.Size:= 10;
Font.Color:={#Color};
Font.Style := [fsBold];
Alignment := taCenter;
Parent:= WizardForm;
Caption:= ExpandConstant('{cm:SelectGroup1}');
end;
NoIconsLabel:=TLabel.Create(WizardForm);
with NoIconsLabel do
begin
Top:= ScaleY(384);
Left:= ScaleX(155);
Width:= ScaleX(300);
Height:= ScaleY(30);
AutoSize:= false;
WordWrap:= true;
Font.Name:= 'Comic Sans MS';
Font.Size:= 10
Font.Style := [fsBold];
Font.Color:={#Color};
Transparent:= true;
Parent:= WizardForm;
OnClick:=@NoIconsLabelClick;
Caption:= ExpandConstant('{cm:IconsCheck}');
end;
GroupEditLabel := TLabel.Create(WizardForm);
with GroupEditLabel do begin
AutoSize:=False;
SetBounds(ScaleX(135), ScaleY(353), ScaleX(446), ScaleY(30));
WordWrap:= True;
ShowAccelChar := False;
Transparent:=True;
Font.Name:= 'Comic Sans MS'
Font.Size:= 10;
Font.Color:={#Color};
Font.Style:=[fsBold];
Caption := 'Âûáåðèòå ïàïêó â ìåíþ ïóñê, íàæàâ «Îáçîð»';
Parent := WizardForm;
end;
WizardForm.DirEdit.Text:= WizardForm.DirEdit.Text;
WizardForm.GroupEdit.OnChange := @GroupChange;
/////////////////////////////SelectTasksPage/////////////////////////////
DPOLabel:=TLabel.Create(WizardForm);
with DPOLabel do
begin
Top:= ScaleY(353);
Left:= ScaleX(155);
Width:= ScaleX(300);
Height:= ScaleY(30);
AutoSize:= false;
WordWrap:= true;
Font.Name:= 'Comic Sans MS';
Font.Size:= 10
Font.Style := [fsBold];
Font.Color:={#Color};
Transparent:= true;
Parent:= WizardForm;
Caption:= ExpandConstant('{cm:DPO}');
end;
SelectTasks:=TLabel.Create(WizardForm);
with SelectTasks do
begin
Left:= ScaleX(60);
Top:= ScaleY(310);;
Width:= ScaleX(550);
Height:= ScaleY(200);
AutoSize:= false;
WordWrap:= true;
Font.Name:= 'Comic Sans MS';
Font.Size:= 10
Alignment := taCenter;
Font.Style := [fsBold];
Transparent:= true;
Font.Color:={#Color};
Parent:= WizardForm;
Caption:= ExpandConstant('{cm:SelectTasks}');
end;
DesktopLabel:=TLabel.Create(WizardForm);
with DesktopLabel do
begin
Top:= ScaleY(383);
Left:= ScaleX(155);
Width:= ScaleX(300);
Height:= ScaleY(30);
AutoSize:= false;
WordWrap:= true;
Font.Name:= 'Comic Sans MS';
Font.Size:= 10
Font.Style := [fsBold];
Font.Color:={#Color};
Transparent:= true;
Parent:= WizardForm;
Caption:= ExpandConstant('Ñîçäàòü çíà÷îê íà ðàáî÷åì ñòîëå');
end;
LabelStatus := TLabel.Create(WizardForm);
with LabelStatus do begin
Left:= ScaleX(250);
Top:= ScaleY(17);
Width:= ScaleX(350);
Height:= ScaleY(65);
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
Font.Name:='Comic Sans mS';
Font.Size:= 10;
Font.Color:={#Color};
Font.Style := [fsBold];
Alignment := taCenter;
Parent:= WizardForm;
Caption:= 'Ïîæàëóéñòà, ïîäîæäèòå, ïîêà «{#MyAppName}» óñòàíîâèòñÿ íà Âàø êîìïüþòåð.';
Hide;
end;
WerInstall2:=TLabel.Create(WizardForm);
with WerInstall2 do
begin
Left:= ScaleX(250);
Top:= ScaleY(17);
Width:= ScaleX(350);
Height:= ScaleY(65);
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
Font.Name:='Comic Sans MS';
Font.Size:= 10;
Font.Color:={#Color};
Font.Style := [fsBold];
Alignment := taCenter;
Parent:= WizardForm;
Caption:= ExpandConstant('Êàêèå äîïîëíèòåëüíûå çàäà÷è íåîáõîäèìî âûïîëíèòü?');
end;
end;
//************************************************[Êîíåö - Êîìïîíåíòû ñòðàííèö]*************************************************************//
//************************************************[Íà÷àëî ðóññîôîáèÿ]*************************************************************//
function NextButtonClick(CurPageID: Integer): Boolean;
var
i: Longint;
c: Char;
begin
Result := True;
if CurPageID = wpSelectDir then begin
for i:=1 to length(WizardForm.DirEdit.text) do begin
c:=WizardForm.DirEdit.text[i];
if (c>=A1)and(c<=Z1) or (c>=A2)and(c<=Z2) or (c=X1) or (c=X2) then begin
MsgBox( 'Â ïóòè óñòàíîâêè ïðèñóòñòâóþò ðóññêèå áóêâû, ÷òî íåäîïóñòèìî'#13#13'Ïîæàëóéñòà, ïîâòîðèòå ââîä.', mbError, mb_Ok);
Result := False;
break;
exit;
end;
end;
end;
end;
//************************************************[Êîíåö ðóññîôîáèÿ]*************************************************************//
procedure InitializeWizard;
begin
CreateWizardImage;
CreateWizard;
ButtonsTextures;
#ifdef Music
begin
ExtractTemporaryFile('BASS.dll');
ExtractTemporaryFile('MusicButton.png');
ExtractTemporaryFile('Music.mp3');
BASS_Init(ExpandConstant('{tmp}\Music.mp3')) //Çàïóñêàåì ìóçûêó
BASS_CreateOnOffButton(ExpandConstant('{tmp}\MusicButton.png'), 645, 50, 20, 20, 4) //Ñîçäàåì êíîïêó âêë/âûêë
end;
#endif
end;
procedure Hide;
begin
ImgSetVisibility(Edit,False);
ImgSetVisibility(Space,False);
ImgSetVisibility(Ready,False);
WerInstall2.Hide;
WelcomeLabel1.Hide;
WelcomeLabel2.Hide;
WizardForm.DirEdit.Hide;
WizardForm.GroupEdit.Hide;
DirEditLabel.Hide;
GroupEditLabel.Hide;
BtnSetVisibility(hDirBrowseBtn, false);
BtnSetVisibility(hGroupBrowseBtn, false);
ImgSetVisibility(dir, false);
ImgSetVisibility(group, false);
SelectDirPage1.Hide;
SelectDirPage2.Hide;
SelectProgramGroupPage1.Hide;
BtnSetVisibility(NoIconsCheck, false);
NoIconsLabel.Hide;
DPOLabel.Hide;
SelectTasks.Hide;
DesktopLabel.Hide;
BtnSetVisibility(DPOCheck, false);
WizardForm.ReadyMemo.Hide;
BtnSetVisibility(DesktopCheck, false);
BtnSetVisibility(DirectXCheck, false);
BtnSetVisibility(VCCheck, false);
end;
procedure CurPageChanged(CurPageID: Integer);
begin
SetStateNewButtons;
Hide;
case CurPageID of
wpWelcome:
begin
WerInstall2.Hide;
ImgSetVisibility(bwork, false);
WelcomeLabel1.Show;
WelcomeLabel2.Show;
ImgSetVisibility(work,True);
end;
wpSelectDir:
begin
ImgSetVisibility(work1,True)
ImgSetVisibility(bwork, true);
SelectDirPage2.Show;
SelectDirPage1.Show;
ImgSetVisibility(dir, true);
BtnSetVisibility(hDirBrowseBtn, true);
WizardForm.DirEdit.Show;
DirEditLabel.Show;
ImgSetVisibility(Edit,True);
ImgSetVisibility(Space,True);
end;
wpSelectProgramGroup:
begin
ImgSetVisibility(Edit,True);
NoIconsLabel.Show;
BtnSetVisibility(NoIconsCheck, True);
GroupEditLabel.Show;
SelectDirPage2.Show;
SelectProgramGroupPage1.Show;
ImgSetVisibility(group, true);
WizardForm.GroupEdit.Show;
BtnSetVisibility(hGroupBrowseBtn, true);
ImgSetVisibility(work2,True);
end;
wpSelectTasks:
begin
WerInstall2.Show;
BtnSetVisibility(DesktopCheck, true);
if BtnGetChecked(VCCheck)=false then BtnSetChecked(DPOCheck, false);
if BtnGetChecked(VCCheck)=true then BtnSetChecked(DPOCheck, true);
if BtnGetChecked(DirectXCheck)=true then BtnSetChecked(DPOCheck, true);
if BtnGetChecked(DirectXCheck)=false then BtnSetChecked(DPOCheck, false);
SelectTasks.Show;
DesktopLabel.Show;
BtnSetVisibility(DPOCheck, true);
DPOLabel.Show;
ImgSetVisibility(work3,True);
end;
wpInstalling:
begin
LabelStatus.Show;
ImgSetVisibility(work5,True);
end;
wpFinished:
begin
LabelStatus.Hide;
WerInstall2.Hide;
ImgSetVisibility(bwork, false);
WelcomeLabel1.Caption:=ExpandConstant('{cm:Finished1}');
WelcomeLabel2.Caption:=ExpandConstant('{cm:Finished2}');
WelcomeLabel1.Show;
WelcomeLabel2.Show;
if not ISDoneError then ImgSetVisibility(work6,True);
end;
end;
if (CurPageID = wpFinished) and ISDoneError then
begin
WelcomeLabel1.show
WelcomeLabel2.show
WelcomeLabel1.Caption:=ExpandConstant('Óñòàíîâêà èãðû «Jagged Alliance: Back in Action» íå çàâåðøåíà.');
WelcomeLabel2.Caption:='Âî âðåìÿ óñòàíîâêè ïðîèçîøëà îøèáêà, ïîæàëóéñòà îòêëþ÷èòå ñòîðîííèå ïðîãðàììû è ïîâòîðèòå ïîïûòêó óñòàíîâêè. Íàæìèòå «Çàâåðøèòü», ÷òîáû âûéòè èç ïðîãðàììû óñòàíîâêè.'
end;
WizardForm.ProgressGauge.Hide;
ImgApplyChanges(WizardForm.Handle);
end;
procedure AllCancel;
begin
SetWindowLong(WizardForm.ProgressGauge.Handle,-4,PBOldProc);
ImgPBDelete(NewPB);
ImgPBDelete(NewPB2);
ImgApplyChanges(WizardForm.Handle);
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
ISDoneExtract(CurStep);
case CurStep of
ssInstall: begin
ImgApplyChanges(WizardForm.Handle);
PBOldProc:=SetWindowLong(WizardForm.ProgressGauge.Handle,-4,CallBackProc(@PBProc,4));
end;
ssPostInstall: AllCancel;
end;
end;
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
if CurPageID=wpInstalling then begin
Confirm:=False;
Cancel:=ExitSetupMsgBox;
if Cancel then AllCancel;
end;
end;
procedure DeinitializeSetup;
begin
gdipShutDown;
#ifdef Music
begin
BASS_DeInit; //Îñâîáîæäàåì ïðîöåññ
gdipShutdown
end;
#endif
end;
