nik1967
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: #Define Video
[setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[Files]
Source: 1.ico; Flags: dontcopy
Source: Video.avi; Flags: dontcopy
[_Code]
function RunTemper(): Boolean; // Копирование файлов во временную папку.
var
TemperForm: TSetupForm;
TemperLabel: TLabel;
TemperIcon: TNewIconImage;
begin
ExtractTemporaryFile('1.ico');
TemperForm:= CreateCustomForm;
with TemperForm do begin
ClientWidth:= ScaleX(340);
ClientHeight:= ScaleY(90);
BorderStyle:=bsNone;
Color:= clSilver;
Center;
TemperIcon:= TNewIconImage.Create(TemperForm);
with TemperIcon do begin
SetBounds(ScaleX(5),ScaleY(20),ScaleX(48),ScaleY(48));
Icon.LoadFromFile(ExpandConstant('{tmp}\1.ico'));
Parent:= TemperForm;
end;
TemperLabel:= TLabel.Create(TemperForm);
with TemperLabel do begin
Top:= ScaleY(30);
Left:= ScaleX(60);
Height:= ScaleY(20);
Width:=ScaleX(260);
Transparent:= True;
Caption:= 'Инициализация SJW Install Wizard...'
Font.Color:= clBlack;
Font.Size:= 12;
Parent:= TemperForm;
end;
TemperForm.Show;
TemperForm.Refresh;
end;
#ifdef Video
if not FileExists(ExpandConstant('{tmp}\Video.avi')) then ExtractTemporaryFile('Video.avi');
#endif
#ifdef AutorunModul
if not FileExists(ExpandConstant('{tmp}\autorun.jpg')) then ExtractTemporaryFile('autorun.jpg');
#endif
#ifdef SlideShowModul
if not FileExists(ExpandConstant('{tmp}\background.jpg')) then ExtractTemporaryFile('background.jpg');
#endif
TemperForm.Free;
end;
function InitializeSetup(): Boolean;
begin
RunTemper();
Result:= true;
end; |
|
Всего записей: 1076 | Зарегистр. 11-10-2006 | Отправлено: 16:32 06-11-2013 | Исправлено: nik1967, 16:56 06-11-2013 |
|
