Inno Setup 勾选式协议页面

Share

1. [Setup]
   
2. AppName=我的程序
   
3. AppVerName=我的程序 1.5
   
4. AppPublisher=我的公司
   
5. AppPublisherURL=http://www.mycompany.com
   
6. AppSupportURL=http://www.mycompany.com
   
7. AppUpdatesURL=http://www.mycompany.com
   
8. DefaultDirName={pf}\我的程序
   
9. DefaultGroupName=我的程序
   
10. LicenseFile=license.txt
    
11. OutputBaseFilename=setup
    
12. Compression=lzma
    
13. SolidCompression=yes
    
14. 
    
15. [Languages]
    
16. Name: chi; MessagesFile: compiler:Default.isl
    
17. 
    
18. [Tasks]
    
19. Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
    
20. 
    
21. [Files]
    
22. Source: MyProg.exe; DestDir: {app}; Flags: ignoreversion
    
23. 
    
24. [Icons]
    
25. Name: {group}\我的程序; Filename: {app}\MyProg.exe
    
26. Name: {userdesktop}\我的程序; Filename: {app}\MyProg.exe; Tasks: desktopicon
    
27. 
    
28. [Run]
    
29. Filename: {app}\MyProg.exe; Description: {cm:LaunchProgram,我的程序}; Flags: nowait postinstall skipifsilent
    
30. 
    
31. [Code]
    
32. var
    
33.   Label2: TLabel;
    
34.   Label1: TLabel;
    
35.   CheckBox1: TCheckBox;
    
36.   NewStaticText1: TNewStaticText;
    
37. 
    
38. procedure Cus_Next(Sender: TObject);
    
39. begin
    
40.   if CheckBox1.Checked = True then
    
41.     WizardForm.LicenseAcceptedRadio.Checked := True
    
42.   else
    
43.     WizardForm.LicenseNotAcceptedRadio.Checked := True
    
44. end;
    
45. 
    
46. procedure InitializeWizard();
    
47. begin
    
48.   WizardForm.LicenseMemo.Height := 127;
    
49. 
    
50.   WizardForm.LicenseAcceptedRadio.visible := False;
    
51.   WizardForm.LicenseNotAcceptedRadio.visible := False;
    
52. 
    
53.   Label1 := TLabel.Create(WizardForm);
    
54.   Label1.Parent := WizardForm.LicensePage;
    
55.   Label1.Left := WizardForm.LicenseMemo.Left;
    
56.   Label1.Top := WizardForm.LicenseMemo.Top + WizardForm.LicenseMemo.Height + 7;
    
57.   Label1.Width := WizardForm.LicenseMemo.Width;
    
58.   Label1.Height := ScaleY(12);
    
59.   Label1.Caption := '如果您接受许可协议，点击下方的单选框。您必须接受协议才能安装 我的程序'#13'1.5。单击 [下一步(N)] 继续。';
    
60. 
    
61.   CheckBox1 := TCheckBox.Create(WizardForm);
    
62.   CheckBox1.Parent := WizardForm.LicensePage;
    
63.   CheckBox1.Left := WizardForm.LicenseMemo.Left;
    
64.   CheckBox1.Top := WizardForm.LicenseMemo.Top + WizardForm.LicenseMemo.Height + 47;
    
65.   CheckBox1.Width :=WizardForm.LicenseMemo.Width;
    
66.   CheckBox1.Height := ScaleY(17);
    
67.   CheckBox1.Caption := '我同意“许可协议”中的条款(&A)';
    
68.   CheckBox1.TabOrder := 0;
    
69.   CheckBox1.OnClick := @Cus_Next;
    
70. 
    
71. end;

复制代码