打印

Inno Setup 勾选式协议页面

本主题由 cwqwxh007 于 2008-2-22 06:15 移动

航海士

白银会员

Rank: 7 Rank: 7 Rank: 7

钩子船长

UID: 13099
帖子: 1140
精华: 4
活力: 233
财富: 1663
来自: 航海大队
注册时间: 2008-1-31

发短消息
加为好友
当前离线

1^# 大中小发表于 2008-2-21 23:59 只看该作者

Inno Setup 勾选式协议页面

[Setup]
AppName=我的程序
AppVerName=我的程序 1.5
AppPublisher=我的公司
AppPublisherURL=http://www.mycompany.com
AppSupportURL=http://www.mycompany.com
AppUpdatesURL=http://www.mycompany.com
DefaultDirName={pf}\我的程序
DefaultGroupName=我的程序
LicenseFile=license.txt
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: chi; MessagesFile: compiler : Default.isl

[Tasks]
Name: desktopicon; Description: {cm : CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked

[Files]
Source: MyProg.exe; DestDir: {app}; Flags: ignoreversion

[Icons]
Name: {group}\我的程序; Filename: {app}\MyProg.exe
Name: {userdesktop}\我的程序; Filename: {app}\MyProg.exe; Tasks: desktopicon

[Run]
Filename: {app}\MyProg.exe; Description: {cm : LaunchProgram,我的程序}; Flags: nowait postinstall skipifsilent

[Code]
var
  Label2: TLabel;
  Label1: TLabel;
  CheckBox1: TCheckBox;
  NewStaticText1: TNewStaticText;

procedure Cus_Next(Sender: TObject);
begin
  if CheckBox1.Checked = True then
WizardForm.LicenseAcceptedRadio.Checked := True
  else
WizardForm.LicenseNotAcceptedRadio.Checked := True
end;

procedure InitializeWizard();
begin
  WizardForm.LicenseMemo.Height := 127;

  WizardForm.LicenseAcceptedRadio.visible := False;
  WizardForm.LicenseNotAcceptedRadio.visible := False;

  Label1 := TLabel.Create(WizardForm);
  Label1.Parent := WizardForm.LicensePage;
  Label1.Left := WizardForm.LicenseMemo.Left;
  Label1.Top := WizardForm.LicenseMemo.Top + WizardForm.LicenseMemo.Height + 7;
  Label1.Width := WizardForm.LicenseMemo.Width;
  Label1.Height := ScaleY(12);
  Label1.Caption := '如果您接受许可协议，点击下方的单选框。您必须接受协议才能安装我的程序'#13'1.5。单击 [下一步(N)] 继续。';

  CheckBox1 := TCheckBox.Create(WizardForm);
  CheckBox1.Parent := WizardForm.LicensePage;
  CheckBox1.Left := WizardForm.LicenseMemo.Left;
  CheckBox1.Top := WizardForm.LicenseMemo.Top + WizardForm.LicenseMemo.Height + 47;
  CheckBox1.Width :=WizardForm.LicenseMemo.Width;
  CheckBox1.Height := ScaleY(17);
  CheckBox1.Caption := '我同意“许可协议”中的条款(&A)';
  CheckBox1.TabOrder := 0;
  CheckBox1.OnClick := @Cus_Next;

end;

本帖最近评分记录

spng 活力 +10 2008-6-11 23:22

TOP

马甲1号

论坛长老

Rank: 11

UID: 2216
帖子: 11912
精华: 28
活力: 6328
财富: 776
来自: 马甲1号粉丝会
注册时间: 2004-12-19

发短消息
加为好友
当前离线

2^# 大中小发表于 2008-2-22 01:50 只看该作者

Inno Setup自己不是提供了吗？

马甲1号粉丝会成员：：<加入方法>
新会员:【U571-233】【红山茶】【Jim.zh】【leak】【mygod】【敢刷天下单】【hooligancex】【hingman】【changhefirst】
老会员:【leny】【cyan】【yxsoft】【馬甲壹號】【hwjmyz 】【makesoft】【reika】(接收所有马甲、月入万刀、有特殊才艺者....)

TOP

reika

黄金会员

Rank: 9 Rank: 9 Rank: 9

UID: 3567
帖子: 9517
精华: 2
活力: 219
财富: 6214
来自: 马甲1号粉丝会
注册时间: 2005-6-30

发短消息
加为好友
当前离线

3^# 大中小发表于 2008-2-22 10:01 只看该作者

引用:

原帖由 马甲1号 于 2008-2-22 01:50 发表
Inno Setup自己不是提供了吗？

欢迎加入马甲1号粉丝会的二线粉丝会，reika粉丝会。
二线粉丝成员：CodeCoolie，Mzren，5bxb，超级小菜鸟，不知道歪，jonssen，Vista，withy

TOP

winexe

新手上路

Rank: 1

UID: 13106
帖子: 214
精华: 0
活力: 144
财富: 0
注册时间: 2008-2-16

发短消息
加为好友
当前离线

4^# 大中小发表于 2008-2-22 10:01 只看该作者

是啊

[Setup]
OutputBaseFilename=XXX SFOT Setup
AppName=XXX SFOT
AppVerName=XXX SFOT 正式版 1.06
DefaultDirName={pf}\XXX SFOT
DefaultGroupName=XXX SFOT

AppCopyright=Copyright 2007 www.XXX SFOT.COM
WizardImageFile=SoftWz.bmp
WizardSmallImageFile=SmallWz.bmp
LicenseFile=LicenseFile.txt

随便下载，或者直接用别人的 LicenseFile.txt

怎么赚美元和人民币..........知道的告诉我

TOP