sjwrec
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору // [TEMPER v1.0] [Files] Source: Graphics\Images\1.ico; Flags: dontcopy [Code] var TemperForm: TSetupForm; TemperLabel: TLabel; TemperIcon: TNewIconImage; function RunTemper(): Boolean; // Копирование файлов во временную папку. begin ExtractTemporaryFile('1.ico'); TemperForm:= CreateCustomForm; with TemperForm do begin Width:= 340; Height:= 90; BorderIcons:= []; BorderStyle:=bsNone; Position:= poScreenCenter; Color:= clSilver; Visible:= True; end; TemperIcon:= TNewIconImage.Create(TemperForm); with TemperIcon do begin Parent := TemperForm; SetBounds(ScaleX(5),ScaleY(20),ScaleX(48),ScaleY(48)); Icon.LoadFromFile(ExpandConstant('{tmp}\1.ico')); Visible:= True; end; TemperLabel:= TLabel.Create(TemperForm); with TemperLabel do begin Parent:= TemperForm; Top:= 30; Left:= 60; Height:= 20; AutoSize:= True; Transparent:=True; Caption:= 'Инициализация SJW Install Wizard...' Font.Color := clBlack; Font.Size:= 12; Visible:= True; 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 #else if not FileExists(ExpandConstant('{tmp}\background.jpg')) then ExtractTemporaryFile('background.jpg'); #endif MsgBox('пауза', mbInformation, MB_OK); // этот MsgBox мне нужен только для остановки процесса, во время тестирования TemperForm.Free; end; end; | Всего записей: 473 | Зарегистр. 01-10-2010 | Отправлено: 19:39 05-11-2013 | Исправлено: sjwrec, 19:41 05-11-2013 |
|