nik1967
Advanced 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;
TemperForm.Refresh;
#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; |
|
Всего записей: 1076 | Зарегистр. 11-10-2006 | Отправлено: 16:32 06-11-2013 | Исправлено: nik1967, 16:56 06-11-2013 |
|
