Serega
31-08-2008, 17:22
...архивы неуместились на один диск DVD (4.7)...Ни разу не делал, но как записано в руководстве от Kindly:[Setup]
;Разбиение на диски
DiskSpanning=yes
;Размер тома в байтах (здесь 695 мегабайт)
DiskSliceSize=730000000т.е. если высчитать пропорцией на 4,7Гига, то получиться (4936690647), думаю надо округлить DiskSliceSize=4940000000...- запрос будет, что бы вставить другой диск ??? ...да...как сменить картинку в окне инсталятора, и поставить задним планом (на весь размер экрана) любую свою картинку..смена картинки[Setup]
WizardImageFile=путь до большой картинки\1.bmp
WizardSmallImageFile=путь до маленькой картинки\2.bmpвставка фонового изображения
[Setup]
WindowVisible=yes
;и по желанию
WindowResizable=no
[Files]
Source: "C:\My_Image.bmp"; DestDir: "{tmp}"; Flags: dontcopy
[Code]
procedure InitializeWizard();
var
BackgroundBitmapImage: TBitmapImage;
s:string;
begin
ExtractTemporaryFile('My_Image.bmp'); //My_Image.bmp - указываемое изображение в секции [Files]
s:=ExpandConstant('{tmp}')+'\My_Image.bmp';
BackgroundBitmapImage := TBitmapImage.Create(MainForm);
BackgroundBitmapImage.Bitmap.LoadFromFile(s);
BackgroundBitmapImage.Align := alClient;
BackgroundBitmapImage.Parent := MainForm;
BackgroundBitmapImage.Stretch:=True;
end;WindowVisible - позади окна мастера будет отображаться фоновое окно;
WindowResizable - при значении no пользователю не придется менять размеры фонового окна инсталлятора когда оно развернуто.
;Разбиение на диски
DiskSpanning=yes
;Размер тома в байтах (здесь 695 мегабайт)
DiskSliceSize=730000000т.е. если высчитать пропорцией на 4,7Гига, то получиться (4936690647), думаю надо округлить DiskSliceSize=4940000000...- запрос будет, что бы вставить другой диск ??? ...да...как сменить картинку в окне инсталятора, и поставить задним планом (на весь размер экрана) любую свою картинку..смена картинки[Setup]
WizardImageFile=путь до большой картинки\1.bmp
WizardSmallImageFile=путь до маленькой картинки\2.bmpвставка фонового изображения
[Setup]
WindowVisible=yes
;и по желанию
WindowResizable=no
[Files]
Source: "C:\My_Image.bmp"; DestDir: "{tmp}"; Flags: dontcopy
[Code]
procedure InitializeWizard();
var
BackgroundBitmapImage: TBitmapImage;
s:string;
begin
ExtractTemporaryFile('My_Image.bmp'); //My_Image.bmp - указываемое изображение в секции [Files]
s:=ExpandConstant('{tmp}')+'\My_Image.bmp';
BackgroundBitmapImage := TBitmapImage.Create(MainForm);
BackgroundBitmapImage.Bitmap.LoadFromFile(s);
BackgroundBitmapImage.Align := alClient;
BackgroundBitmapImage.Parent := MainForm;
BackgroundBitmapImage.Stretch:=True;
end;WindowVisible - позади окна мастера будет отображаться фоновое окно;
WindowResizable - при значении no пользователю не придется менять размеры фонового окна инсталлятора когда оно развернуто.