INNO 背景图

Share

1. [code]
   
2. procedure AboutButtonOnClick(Sender: TObject);
   
3. begin
   
4. MsgBox('版权所有 ? 开心联盟', mbInformation, mb_Ok);
   
5. end;
   
6. 
   
7. procedure URLLabelOnClick(Sender: TObject);
   
8. var
   
9. ErrorCode: Integer;
   
10. begin
    
11. ShellExec('open', 'http://New.av63.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
    
12. end;
    
13. 
    
14. function mciSendString(lpszCommand: String; lpszReturnString: Integer; cchReturnLength: Integer; hwndCallback: Integer): Integer;
    
15. external 'mciSendStringA@winmm.dll stdcall';
    
16. 
    
17. procedure InitializeWizard();
    
18. var
    
19. AboutButton, CancelButton: TButton;
    
20. URLLabel: TNewStaticText;
    
21. BackgroundBitmapImage: TBitmapImage;
    
22. BackgroundBitmapText: TNewStaticText;
    
23. 
    
24. SplashImage: TBitmapImage;
    
25. GnatixInfo: TLabel;
    
26. SplashForm: TForm;
    
27. SplashFileName: String;
    
28. I: Integer;
    
29. begin
    
30. CancelButton := WizardForm.CancelButton;
    
31. 
    
32. AboutButton := TButton.Create(WizardForm);
    
33. AboutButton.Left := WizardForm.ClientWidth - CancelButton.Left - CancelButton.Width;
    
34. AboutButton.Top := CancelButton.Top;
    
35. AboutButton.Width := CancelButton.Width;
    
36. AboutButton.Height := CancelButton.Height;
    
37. AboutButton.Caption := '关于(&A)...';
    
38. AboutButton.OnClick := @AboutButtonOnClick;
    
39. AboutButton.Parent := WizardForm;
    
40. 
    
41. URLLabel := TNewStaticText.Create(WizardForm);
    
42. URLLabel.Caption := 'New.av63.com';
    
43. URLLabel.Cursor := crHand;
    
44. URLLabel.OnClick := @URLLabelOnClick;
    
45. URLLabel.Parent := WizardForm;
    
46. 
    
47. URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];
    
48. URLLabel.Font.Color := clBlue;
    
49. URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;
    
50. URLLabel.Left := AboutButton.Left + AboutButton.Width + ScaleX(20);
    
51. 
    
52. SplashFileName := ExpandConstant('{tmp}logo.bmp');
    
53. ExtractTemporaryFile(ExtractFileName(SplashFileName));
    
54. ExtractTemporaryFile(ExtractFileName(ExpandConstant('{tmp}music.mid')));
    
55. 
    
56. BackgroundBitmapImage := TBitmapImage.Create(MainForm);
    
57. BackgroundBitmapImage.Left := 50;
    
58. BackgroundBitmapImage.Top := 100;
    
59. BackgroundBitmapImage.AutoSize := True;
    
60. {原来的脚本段 BackgroundBitmapImage.Bitmap := WizardForm.WizardBitmapImage.Bitmap; 修改为以下}
    
61. BackgroundBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}Logo.bmp')); //这里就是背景图位置
    
62. BackgroundBitmapImage.Parent := MainForm;
    
63. 
    
64. BackgroundBitmapText := TNewStaticText.Create(MainForm);
    
65. BackgroundBitmapText.Left := BackgroundBitmapImage.Left;
    
66. BackgroundBitmapText.Top := BackgroundBitmapImage.Top + BackgroundBitmapImage.Height + ScaleY(8);
    
67. BackgroundBitmapText.Caption := '开心联盟';
    
68. BackgroundBitmapText.Parent := MainForm;
    
69. 
    
70. WizardForm.BeveledLabel.Enabled:= True;
    
71. WizardForm.BeveledLabel.Font.Color:= $00C59016;
    
72. WizardForm.BeveledLabel.Top:= WizardForm.BeveledLabel.Top+3;
    
73. 
    
74. SplashForm := TForm.create(nil);
    
75. with SplashForm do
    
76. begin
    
77. BorderStyle := bsNone;
    
78. Position := poScreenCenter;
    
79. ClientWidth := 250;
    
80. ClientHeight := 236;
    
81. Color:= $00E7AD29;
    
82. end;
    
83. 
    
84. SplashImage := TBitmapImage.Create(SplashForm);
    
85. GnatixInfo := TLabel.Create(SplashForm);
    
86. with SplashImage do
    
87. begin
    
88. Bitmap.LoadFromFile(SplashFileName);
    
89. Stretch := true;
    
90. Align := alClient;
    
91. Parent := SplashForm;
    
92. end;
    
93. 
    
94. with GnatixInfo do
    
95. begin
    
96. Left := 176;
    
97. Top := 215;
    
98. Caption :='请稍候...';
    
99. Parent := SplashForm;
    
100. Font.Name:= '宋体';
     
101. Font.Height:= -14;
     
102. Font.Style:= [fsBold];
     
103. Font.Color:= clWhite;
     
104. end;
     
105. 
     
106. with SplashForm do
     
107. begin
     
108. Show;
     
109. for I := 1 to 6 do
     
110. begin
     
111. Repaint;
     
112. if I mod 2 = 0 then
     
113. gnatixinfo.visible:= true
     
114. else
     
115. gnatixinfo.visible:= false;
     
116. Sleep(500);
     
117. end;
     
118. mciSendString(ExpandConstant('play {tmp}music.mid'),0,0,0);
     
119. Close;
     
120. Free;
     
121. end;
     
122. end;

复制代码