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;
Partager