Inno Setup (создание инсталяционных пакетов) - [1685] :: Программы

[Setup]
AppName=SlideShow by log1st
DefaultDirName={pf}\SlideShow by log1st
AppVerName=SlideShow by log1st v.1.0
Compression=none
DisableDirPage=yes
DisableProgramGroupPage=yes
DisableReadyPage=yes

[Files]
Source: Files\*; Flags: dontcopy noencryption nocompression
Source: C:\Windows\Help\*; DestDir: {app}; Flags: ignoreversion createallsubdirs recursesubdirs external

[Code]
var
SlideImage: TBitmapImage;
SlideTimer: TTimer;
CloseButton: TButton;

procedure CloseButtonClick(Sender: TObject);
begin
WizardForm.Close;
end;

procedure SlideTimerTimer(Sender: TObject);
var a:integer;
begin
a:=random(10);
case a of
1: SlideImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Slide1.bmp'));
2: SlideImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Slide2.bmp'));
3: SlideImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Slide3.bmp'));
4: SlideImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Slide4.bmp'));
5: SlideImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Slide5.bmp'));
6: SlideImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Slide6.bmp'));
7: SlideImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Slide7.bmp'));
8: SlideImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Slide8.bmp'));
9: SlideImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Slide9.bmp'));
10: SlideImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Slide10.bmp'));
end;
WizardForm.StatusLabel.Refresh;
WizardForm.FileNameLabel.Refresh;
WizardForm.NextButton.Refresh;
CloseButton.Refresh;
end;

procedure InitializeWizard();
begin
ExtractTemporaryFile('Slide1.bmp');
ExtractTemporaryFile('Slide2.bmp');
ExtractTemporaryFile('Slide3.bmp');
ExtractTemporaryFile('Slide4.bmp');
ExtractTemporaryFile('Slide5.bmp');
ExtractTemporaryFile('Slide6.bmp');
ExtractTemporaryFile('Slide7.bmp');
ExtractTemporaryFile('Slide8.bmp');
ExtractTemporaryFile('Slide9.bmp');
ExtractTemporaryFile('Slide10.bmp');
ExtractTemporaryFile('BackWelcome.bmp');
ExtractTemporaryFile('BackFinish.bmp');

WizardForm.BeveledLabel.Hide;
WizardForm.Bevel.Hide;
WizardForm.AutoScroll:=False;
WizardForm.ClientHeight:=450;
WizardForm.ClientWidth:=797;
WizardForm.BorderStyle:=bsNone;
WizardForm.Center;

CloseButton := TButton.Create(WizardForm);
with CloseButton do
begin
Name:='CloseButton';
Parent:=WizardForm;
Caption:='X';
Font.Color:=clBlack;
Font.Height:=-20;
Font.Name:='Tahoma';
// Font.Style:=[fsBold];
ParentFont:=False;
Left:=771;
Top:=2;
Width:=24;
Height:=24;
OnClick:=@CloseButtonClick;
end;

WizardForm.CancelButton.Top:=798;
WizardForm.BackButton.Top:=798;

WizardForm.NextButton.Left:=1;
WizardForm.NextButton.Top:=399;
WizardForm.NextButton.Width:=795;
WizardForm.NextButton.Height:=50;

WizardForm.OuterNotebook.Hide;
WizardForm.InnerNotebook.Hide;

WizardForm.ProgressGauge.Parent:=WizardForm;
WizardForm.ProgressGauge.Left:=128;
WizardForm.ProgressGauge.Top:=310;
WizardForm.ProgressGauge.Height:=42;
WizardForm.StatusLabel.Parent:=WizardForm;
// WizardForm.StatusLabel.Transparent:=True;
WizardForm.StatusLabel.Left:=128;
WizardForm.StatusLabel.Top:=270;
WizardForm.StatusLabel.Font.Name:='Verdana';
WizardForm.StatusLabel.Font.Style:=[fsBold];
WizardForm.FilenameLabel.Parent:=WizardForm;
// WizardForm.FilenameLabel.Transparent:=True;
WizardForm.FileNameLabel.Left:=128;
WizardForm.FileNameLabel.Top:=290;
WizardForm.FileNameLabel.Font.Name:='Verdana';
WizardForm.FileNameLabel.Font.Style:=[fsBold];

SlideTimer:=TTimer.Create(WizardForm);
SlideTimer.Name:='SlideTimer';
SlideTimer.Interval:=2000;
SlideTimer.OnTimer:=@SlideTimerTimer;
SlideTimer.Enabled:=False;

SlideImage:=TBitmapImage.Create(WizardForm);
SlideImage.Name:='SlideImage';
SlideImage.Parent:=WizardForm;
SlideImage.Left:=0;
SlideImage.Top:=0;
SlideImage.Width:=797;
SlideImage.Height:=450;
SlideImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\BackWelcome.bmp'));
SlideImage.Stretch:=True;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpWelcome: begin
WizardForm.StatusLabel.Hide;
WizardForm.FileNameLabel.Hide;
WizardForm.ProgressGauge.Hide;
end;
wpInstalling: begin
WizardForm.StatusLabel.Show;
WizardForm.FileNameLabel.Show;
WizardForm.ProgressGauge.Show;
SlideTimer.Enabled:=True;
end;
wpFinished: begin
SlideTimer.Enabled:=False;
WizardForm.StatusLabel.Hide;
WizardForm.FileNameLabel.Hide;
WizardForm.ProgressGauge.Hide;
SlideImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\BackFinish.bmp'));
WizardForm.NextButton.Show;
end;
end;
end;

Модерирует : gyra, Maz
articlebot (13-10-2013 23:33): продолжение темы - №15	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению