[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
DisableFinishedPage=yes
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes
[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl
[CustomMessages]
rus.Text=Язык интерфейса:
rus.Voice=Язык озвучки:
rus.Russian=Русский
rus.English=Английский
[Types]
Name: full; Description: Полная установка; Flags: iscustom
[Components]
Name: Text; Description: {cm:Text}; Flags: fixed; Types: Full;
Name: Text\Eng; Description: {cm:English}; Flags: exclusive; ExtraDiskSpaceRequired: 50000000;
Name: Text\Rus; Description: {cm:Russian}; Flags: exclusive; ExtraDiskSpaceRequired: 60000000;
Name: Voice; Description: {cm:Voice}; Flags: fixed; Types: Full;
Name: Voice\Eng; Description: {cm:English}; Flags: exclusive; ExtraDiskSpaceRequired: 500000000;
Name: Voice\Rus; Description: {cm:Russian}; Flags: exclusive; ExtraDiskSpaceRequired: 600000000;
[Files]
Source: Files\1.bmp; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system;
Source: Files\BtnImage.bmp; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system;
[code\]
var
BGBitmapImage,BTNImage: TBitmapImage;
BorderWidth: Integer;
BGImageStream,BTNImageStream: TMemoryStream;
procedure InitializeWizard();
begin
BGImageStream := TMemoryStream.Create;
ExtractTemporaryFileToStream('1.bmp', BGImageStream);
BGImageStream.Position := 0;
BTNImageStream := TMemoryStream.Create;
ExtractTemporaryFileToStream('BtnImage.bmp', BTNImageStream);
BTNImageStream.Position := 0;
BGBitmapImage := TBitmapImage.Create(WizardForm);
BGBitmapImage.Bitmap.LoadFromStream(BGImageStream);
BTNImage := TBitmapImage.Create(WizardForm);
BTNImage.Bitmap.LoadFromStream(BTNImageStream);
with WizardForm.ComponentsList do begin
Font.Color:= $FFF8F8;
Font.Name:='Tahoma';
Font.Size:= 8;
BorderWidth := (WizardForm.ComponentsList.Width-WizardForm.ComponentsList.ClientWidth) div 2;
LoadBGBmpFromBitmap(BGBitmapImage.Bitmap, WizardForm.ComponentsList.Left+BorderWidth, WizardForm.ComponentsList.Top+BorderWidth);
LoadBtnBmpFromBitmap(BTNImage.Bitmap);
end;
end;