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 |
|