riperoc1
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
#define MyAppName "Dead Rising 2"
#define AppName "Dead Rising 2"
[Setup]
AppId={{DDA55E82-39A4-4692-999D-4B2A363241CE}
AppName={#AppName}
AppVerName={#MyAppName}
DefaultDirName={pf}\Dead Rising 2
DefaultGroupName=Dead Rising 2
DirExistsWarning=no
OutputBaseFilename=setup
;InternalCompressLevel=ultra64
;Compression=lzma/ultra64
;SolidCompression=true
DisableReadyPage=True
DiskSpanning=true
DiskSliceSize=1063004405
SlicesPerDisk=3
WizardImageFile=Files\1.bmp
WizardImageStretch=False
WizardSmallImageFile=Files\logo.bmp
[Files]
Source: Files\button.bmp; DestDir: {tmp}; Flags: dontcopy
Source: Files\1.bmp; DestDir: {tmp}; Flags: dontcopy
;Source: Files\isgsg.dll; DestDir: {tmp}; Flags: dontcopy
Code
const
ButtonWidth = 80; //????????? ?????? ??????
ButtonHeight = 23;
bidBack = 0;
bidNext = 1;
bidCancel = 2;
bidDirBrowse = 3;
bidGroupBrowse = 4;
//***********************Ïåðåìåííûå***********************\\
var
PageNameLabel,PageDescriptionLabel:TLabel;
WelcomeLabel1, WelcomeLabel2: TLabel;
BmpFile: TBitmapImage;
//***********************Êîíåö-Ïåðåìåííûå***********************\\
procedure InitializeWizard();
begin
with WizardForm do begin
with MainPanel do
Height := Height - 1;
with WizardSmallBitmapImage do begin
Left := 0;
Top := 0;
Height := 60; //Ðàçìåð ðèñóíêà
Width := 500; //
end;
with PageNameLabel do begin
Width := Width - 497; //Ïîñòàâüòå çäåñü çíà÷åíèÿ íà 0, åñëè õîòèòå âåðíóòü òåêñò
Left := Left + 497; //
end;
with PageDescriptionLabel do begin
Width := Width - 497; //Ïîñòàâüòå çäåñü çíà÷åíèÿ íà 0, åñëè õîòèòå âåðíóòü òåêñò
Left := Left + 497; //
end;
end;
end;
//***********************Èçîáðàæåíèå èíñòàëà***********************\\
procedure InitializeWizard();
begin
ExtractTemporaryFile('1.bmp');
BmpFile:= TBitmapImage.Create(WizardForm);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\1.bmp'));
BmpFile.SetBounds(0, 0, 497, 313); // ðàçìåð êàðòèíêè
BmpFile.Stretch:= true
BmpFile.Parent:= WizardForm.WelcomePage;
with WizardForm do
begin
WelcomeLabel1.Hide;
WelcomeLabel2.hide;
end;
WelcomeLabel1:= TLabel.Create(WizardForm);
with WelcomeLabel1 do
begin
Left:= ScaleX(176);
Top:= ScaleY(66);
Width:= ScaleX(301);
Height:= ScaleY(71);
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
Parent:= WizardForm.WelcomePage;
Caption:= WizardForm.WelcomeLabel1.Caption;
end;
WelcomeLabel2:=TLabel.Create(WizardForm);
with WelcomeLabel2 do
begin
Top:= ScaleY(136);
Left:= ScaleX(176);
Width:= ScaleX(301);
Height:= ScaleY(300);
AutoSize:= false;
WordWrap:= true;
Transparent:= true;
Parent:= WizardForm.WelcomePage;
Caption:= WizardForm.WelcomeLabel2.Caption;
end;
end;
//***********************Êîíåö-Èçîáðàæåíèå èíñòàëà***********************\\
procedure CancelButtonClick(CurPage: Integer; var Cancel, Confirm: Boolean);
begin
Cancel:=False;
Confirm:=False;
if MsgBox('Âû äåéñòâèòåëüíî õîòèòå îòìåíèòü óñòàíîâêó {#MyAppName}? ', mbError, MB_YESNO) = idYes
then
Cancel:=true;
end;
|
