Salut mon frère

voila le code complet


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
[Setup]
WindowVisible=yes
BackSolid=yes
BackColor=clBlack
 
[Files]
Source: "{tmp}\backround.bmp"; DestDir: "{tmp}"; Flags: deleteafterinstall dontcopy
 
code]
procedure InitializeWizard();
 
var
  BackgroundBitmapImage: TBitmapImage;
 
begin
    ExtractTemporaryFile(ExpandConstant('backround.bmp'));
 
    BackgroundBitmapImage := TBitmapImage.Create(MainForm)
    BackgroundBitmapImage.Left := 50
    BackgroundBitmapImage.Top := 50
    BackgroundBitmapImage.Width:=640
    BackgroundBitmapImage.Height:=461
    BackgroundBitmapImage.BackColor := clCaptionText
    BackgroundBitmapImage.Align := alClient
    BackgroundBitmapImage.AutoSize := True
    BackgroundBitmapImage.Visible := True
    BackgroundBitmapImage.Center := True
    BackgroundBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\backround.bmp'))
    BackgroundBitmapImage.Parent := MainForm
end;