Inno Setuo 自定义图片背景图脚本

admin

1. [Setup]
   
2. AppName=My Program
   
3. AppVersion=1.5
   
4. DefaultDirName={pf}My Program
   
5. DefaultGroupName=My Program
   
6. 
   
7. [Files]
   
8. Source: "开始位图.bmp"; Flags: dontcopy
   
9. Source: "结束位图.bmp"; Flags: dontcopy
   
10. Source: "waterctrl.dll"; Flags: dontcopy
    
11. Source: "MyProg.exe"; DestDir: "{app}"
    
12. 
    
13. [Run]
    
14. Filename: "{app}MyProg.exe"; Description: "运行我的程序"; Flags: postinstall
    
15. 
    
16. [code]
    
17. var
    
18.   bmp: TBitmap;           
    
19.   bmp1: TBitmap;              
    
20.   CheckBox1: TCheckBox;
    
21. 
    
22. function enablewater(ParentWnd: HWND; Left, Top: integer; Bmp: HBITMAP; WaterRadius, WaterHeight: integer): BOOL;
    
23.   external 'enablewater@files:waterctrl.dll stdcall';
    
24. function waterblob(x, y: integer; radius, height: integer): BOOL;
    
25.   external 'waterblob@files:waterctrl.dll stdcall';
    
26. function flattenwater(): BOOL; external 'flattenwater@files:waterctrl.dll stdcall';
    
27. function disablewater(): BOOL; external 'disablewater@files:waterctrl.dll stdcall';
    
28. function setwaterparent(ParentWnd: HWND): BOOL; external 'setwaterparent@files:waterctrl.dll stdcall';
    
29. 
    
30. procedure InitializeWizard();
    
31. begin
    
32.   ExtractTemporaryFile('开始位图.bmp');
    
33.   ExtractTemporaryFile('结束位图.bmp');
    
34.   bmp := TBitmap.create;
    
35.   bmp.LoadFromFile(ExpandConstant('{tmp}开始位图.bmp'));
    
36.   bmp1 := TBitmap.create;
    
37.   bmp1.LoadFromFile(ExpandConstant('{tmp}结束位图.bmp'));
    
38.   Wizardform.WelcomeLabel1.Visible:= false;  //   屏蔽安装向导页面上面的文字
    
39.   Wizardform.WelcomeLabel2.Visible:= false;  //   屏蔽安装向导页面上面的文字
    
40. end;
    
41. 
    
42. procedure CurPageChanged(CurPageID: Integer);
    
43. begin
    
44.   if CurPageID = wpWelcome then
    
45.     begin
    
46.     enablewater(WizardForm.WelcomePage.Handle, 0, 0, bmp.Handle, 3, 50);
    
47.     waterblob(70, 198, 10, 1000);
    
48.     end
    
49.   else
    
50.     if CurPageID = wpFinished then
    
51.       begin
    
52.       waterblob(70, 198, 10, 1000);
    
53.       // 不显示原有文字
    
54.       Wizardform.FinishedHeadingLabel.Visible:= false;
    
55.       Wizardform.FinishedLabel.Visible:= false;
    
56.       Wizardform.RunList.Visible:= false;
    
57.       // 新建勾选项 1
    
58.       CheckBox1 := TCheckBox.Create(WizardForm);
    
59.       CheckBox1.Parent := WizardForm.FinishedPage;
    
60.       CheckBox1.Left := ScaleX(180);     // 位置要根据背景图像的情况进行调整
    
61.       CheckBox1.Top := ScaleY(220);      // 位置要根据背景图像的情况进行调整
    
62.       CheckBox1.Width := ScaleX(100);    // 宽度要根据文字多少进行调整
    
63.       CheckBox1.Height := ScaleY(15);
    
64.       CheckBox1.TabOrder := 0;
    
65.       CheckBox1.State := Wizardform.RunList.Checked[0];
    
66.       CheckBox1.Caption:= Wizardform.RunList.Items[0];
    
67.       end
    
68.     else
    
69.       flattenwater();
    
70. end;
    
71. 
    
72. procedure DeinitializeSetup();
    
73. begin
    
74.   disablewater();
    
75.   bmp.Free;
    
76.   bmp1.Free;
    
77. end;
    
78. 
    
79. function NextButtonClick(CurPageID : Integer): Boolean;
    
80. begin
    
81. result:= true;
    
82. if CurPageID=wpFinished then
    
83.   begin
    
84.   wizardform.RunList.Checked[0] := checkbox1.Checked;
    
85.   end;
    
86. if CurPageID=wpReady then
    
87.   begin
    
88.   disablewater;                  // 关闭水波
    
89.   enablewater(WizardForm.FinishedPage.Handle, 0, 0, bmp1.Handle, 3, 50); //新的水波
    
90.   end;
    
91. end;

复制代码

admin

1. [Setup]
   
2. AppName=我的程序
   
3. AppVerName=我的程序 1.5
   
4. DefaultDirName={pf}我的程序
   
5. DefaultGroupName=我的程序
   
6. WizardImageFile=WizModernImage.bmp
   
7. 
   
8. [Files]
   
9. Source: "MyProg.exe"; DestDir: "{app}"
   
10. 
    
11. [Run]
    
12. Filename: "{app}MyProg.exe"; Description: "我的程序"; Flags: nowait postinstall skipifsilent
    
13. 
    
14. [Code]
    
15. var
    
16. CheckBox1: TCheckBox;
    
17. newlabel: TLabel;
    
18. 
    
19. procedure InitializeWizard();
    
20. begin
    
21. CheckBox1 := TCheckBox.Create(WizardForm);
    
22. CheckBox1.Parent := WizardForm.FinishedPage;
    
23. CheckBox1.Left := 18
    
24. CheckBox1.Top := ScaleY(100);
    
25. CheckBox1.Width := ScaleY(15);
    
26. CheckBox1.Height := ScaleY(15);
    
27. CheckBox1.TabOrder := 0;
    
28. CheckBox1.State := cbChecked
    
29. 
    
30. WizardForm.WizardBitmapImage2.Width:= 479
    
31. WizardForm.WizardBitmapImage2.Height:= 290
    
32. 
    
33. // 不显示原有文字
    
34. Wizardform.FinishedHeadingLabel.Visible:= false;
    
35. Wizardform.FinishedLabel.Visible:= false;
    
36. // 添加透明文字
    
37. newlabel:= TLabel.Create(WizardForm);
    
38. newlabel.Parent := WizardForm.FinishedPage;
    
39. newlabel.Transparent:= true;
    
40. newlabel.Top := CheckBox1.Top + ScaleY(2);
    
41. newlabel.Left := CheckBox1.Left+ScaleX(20);
    
42. newlabel.Caption:= '运行 你的程序';
    
43. end;
    
44. 
    
45. procedure CurPageChanged(CurPageID : Integer);
    
46. begin
    
47. if CurPageID=wpFinished then
    
48. Wizardform.RunList.Visible:= false;
    
49. end;
    
50. 
    
51. function NextButtonClick(CurPageID : Integer): Boolean;
    
52. begin
    
53. result:= true;
    
54. if CurPageID=wpFinished then
    
55. wizardform.RunList.Checked[0]:= checkbox1.Checked;
    
56. end;

复制代码