[vint56]

volga163@vk

читать дальше »

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Files]
Source: Fon.bmp; DestDir: {tmp}

[code]
var
BackgroundForm: TForm;
BackgroundImage: TBitmapImage;
LoGoTip: TLabel;

Procedure BackgroundOnActivate(Sender: TObject); Begin if WizardForm.Visible then WizardForm.Show End;
function ShowWindow(hWnd, nCmdShow: LongWord): LongWord; external 'ShowWindow@user32.dll stdcall';

procedure InitializeWizard();
begin
BackgroundForm:= TForm.Create(nil);
BackgroundForm.BorderStyle:= bsNone;
BackgroundForm.OnActivate:= @BackgroundOnActivate;
ShowWindow(BackgroundForm.Handle, sw_ShowMaximized);
BackgroundImage:= TBitmapImage.Create(BackgroundForm);
BackgroundImage.Align:= alClient;
BackgroundImage.Stretch:= True;
ExtractTemporaryFile('fon.bmp');
BackgroundImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\fon.bmp'));
BackgroundImage.Parent:= BackgroundForm;
LoGoTip := TLabel.Create(WizardForm);
with LoGoTip do
begin
Parent := BackgroundForm;
Font.Height := -100;
Caption := 'Мой Логотип';
Left := ScaleX(50);
Top := ScaleY(50);
Width := ScaleX(1000);
Height := ScaleY(100);
Font.Name := 'Verdana';
Font.Style := [fsBold];
end;
end;

Procedure DeinitializeSetup;
Begin
BackgroundForm.Free
End;