-
inno setup 学习-创建窗体并将获取到字符存入指定文件
2008-07-28 15:28:15
1、窗体的创建可以完全通过工具inno Setup Form Designer 实现,这里就不多讲了,
2、一般创建窗体的目的都是要通过安装过程中用户输入部分安装信息,第一步已经解决了信息的和uoq
接下来就需要解决信息的存储了。
通常在安装程序结束后,会调用 procedure DeinitializeSetup()函数,在该函数中就可以将信息输入指定文件中,具体请参照下面的:
procedure DeinitializeSetup();
begin
SetIniString('Center', 'Addr', InfoEdit1.text, ExpandConstant('{app}\test.ini')); //将从窗体infoedit1获得的文字信息输入到test文件中
SetIniString('Center', 'Port', InfoEdit2.text, ExpandConstant('{app}\test.ini'));
SetIniString('SzoneID', 'Provin', InfoEdit3.text, ExpandConstant('{app}\test.ini'));
SetIniString('SzoneID', 'City', InfoEdit4.text, ExpandConstant('{app}\test.ini'));
SetIniString('Dir', 'Dir', ExpandConstant('{app}'), ExpandConstant('{app}\test.ini'));end;
安装结束后,在{app}目录中生成一个test.ini文件
其内容为:
[Center]
Addr=192.168.1.1
Port=2625
[SzoneID]
Provin=cesh
City=tewt
[Dir]
Dir=C:\Program Files\test //// -
inno setup 学习-样本
2008-07-28 11:38:44
转至:http://hi.baidu.com/yanjinbin/blog/item/2a55d88890a24890a4c272d6.html
; 脚本由 Inno Setup 脚本向导 生成!
; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档![Setup]
; 注: AppId的值为单独标识该应用程序。
; 不要为其他安装程序使用相同的AppId值。
; (生成新的GUID,点击 工具|在IDE中生成GUID。)
AppId={{A9861883-31C5-4324-BD9A-DC3271EEB675}
;程序名
AppName=ISsample
;版本号
AppVerName=ISsample 1.0.0.0
;发布者名
AppPublisher=Hkiss
;相关连接
AppPublisherURL=http://www.yan.com/
AppSupportURL=http://www.yan.com/
AppUpdatesURL=http://www.yan.com/
;默认安装目录
DefaultDirName={pf}\ISsample
;默认开始菜单名
DefaultGroupName=ISsample
;是否打开->可选安装开始菜单项
;AllowNoIcons=yes
;安装协议
;LicenseFile=C:\Example\原始文件\agreement.txt
;安装前查看的文本文件
;InfoBeforeFile=C:\Example\原始文件\Setup_New.txt
;安装后查看文本文件
;InfoAfterFile=C:\Example\原始文件\Setup_Old.txt
;输出文件夹
OutputDir=C:\Example\InnoSetup\out
;输出文件名
OutputBaseFilename=setup
;安装图标
SetupIconFile=C:\Example\原始文件\title.ico
;安装需要输入密码
;Password=123
;Encryption=yes;压缩相关
Compression=lzma
SolidCompression=yes;可以让用户忽略选择语言相关
ShowLanguageDialog = yes
;备注版本信息
VersionInfoCompany=HTTP://www.Hkiss.COM
VersionInfoDescrīption=ISsample 汉化增强版
VersionInfoVersion=1.0.0.0
VersionInfoCopyright=Copyright (C) 2007-2008 Hkiss;制作选择语言
[Languages]
Name: "chs"; MessagesFile: "compiler:Default.isl" ;LicenSeFile :"C:\Example\原始文件\chs\agreement.txt"
Name: "en"; MessagesFile: "compiler:Languages\English.isl";LicenSeFile :"C:\Example\原始文件\en\agreement.txt";用户定制任务
[Tasks]
Name: "desktopicon"; Descrīption: "{cm:CreateDesktopIcon}"; GroupDescrīption: "{cm:AdditionalIcons}"; Flags: unchecked
Name: "quicklaunchicon"; Descrīption: "{cm:CreateQuickLaunchIcon}"; GroupDescrīption: "{cm:AdditionalIcons}"; Flags: unchecked
Name: "Tasks_1" ; Descrīption:"用户自定义任务1"; Flags: unchecked
Name: "Tasks_2" ; Descrīption:"用户自定义任务2"; Flags: unchecked
;选择了组件才会出现的定制任务
Name: "Tasks_3" ; Descrīption:"用户自定义任务3";Components: c1 ; Flags: unchecked;文件安装
[Files]
;多语言安装环境设置 公共参数Languages 来设置
Source: "C:\Example\原始文件\enfile.txt"; DestDir: "{app}"; Languages: en ; Flags: ignoreversion
Source: "C:\Example\原始文件\chsfile.txt"; DestDir: "{app}"; Languages: chs ; Flags: ignoreversion
;用户自定义任务 Tasks
Source: "C:\Example\原始文件\Tasks\tasks_1.txt"; DestDir: "{app}\Tasks"; Flags: ignoreversion ;Tasks : Tasks_1
Source: "C:\Example\原始文件\Tasks\tasks_2.txt"; DestDir: "{app}\Tasks"; Flags: ignoreversion ;Tasks :Tasks_2
Source: "C:\Example\原始文件\Tasks\tasks_Components.txt"; DestDir: "{app}\Tasks"; Flags: ignoreversion ;Tasks :Tasks_2
;用户定义组件安装
Source: "C:\Example\原始文件\Components\Components_1.txt"; DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a1;
Source: "C:\Example\原始文件\Components\Components_2.txt"; DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a2;
Source: "C:\Example\原始文件\Components\Components_3.txt"; DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a3;
Source: "C:\Example\原始文件\Components\Components_4.txt"; DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a1 a2 a3;;用户注册自定义Dll文件 regserver 注册 noregerror 不显示错误信息
Source: "C:\Example\原始文件\jmail.dll"; DestDir: "{app}"; Flags: ignoreversion regserver
;添加自述文件
Source: "C:\Example\原始文件\ISsample.txt"; DestDir: "{app}"; Flags: ignoreversion
;添加一个文件到缓存文件夹{Tmp} deleteafterinstall 安装后删除
Source: "C:\Example\原始文件\test.exe"; DestDir: "{tmp}"; Flags: ignoreversion deleteafterinstallSource: "C:\Example\原始文件\ISsample.chm"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Example\原始文件\ISsample.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Example\原始文件\ISsample.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Example\原始文件\ISsample.ini"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Example\原始文件\ISsample.rar"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Example\原始文件\ISsample_sys.dll"; DestDir: "{win}\System32"; Flags: ignoreversion
Source: "C:\Example\原始文件\log\*"; DestDir: "{app}\log"; Flags: ignoreversion recursesubdirs createallsubdirs
; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”
;安装类型设置
[Types]
Name: Full ;Descrīption:"完全安装"; Flags: iscustom
Name: Compact ;Descrīption:"简洁安装";
Name: Custom; Descrīption:"自定义安装";
;组件安装
[Components]
Name: c1; Descrīption: "自定义任务3" ; Types: Full
Name: a1; Descrīption: "安装Components_1"; Types: Full Compact Custom ;
Name: a2; Descrīption: "安装Components_2"; Types : Full Compact
Name: a3; Descrīption: "安装Components_3"; Types : Full;开始菜单,桌面快捷方式
[Icons]
Name: "{group}\ISsample"; Filename: "{app}\ISsample.exe"
Name: "{group}\{cm:ProgramOnTheWeb,ISsample}"; Filename: "http://www.yan.com/"
Name: "{group}\{cm:UninstallProgram,ISsample}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\ISsample"; Filename: "{app}\ISsample.exe"; Tasks: desktopicon
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\ISsample"; Filename: "{app}\ISsample.exe"; Tasks: quicklaunchicon
;添加一个帮助文挡
Name: {group}\ISsample 1.0.0.0 帮助文档;Filename: {app}\ISsample.chm;用来在程序安装完成后 在安装程序显示最终对话框之前执行程序 常用与运行主程序 显示自述文件 删除临时文件
[Run]
Filename: "{app}\ISsample.exe"; Descrīption: "{cm:LaunchProgram,ISsample}"; Flags: nowait postinstall skipifsilent
Filename: "{app}\ISsample.txt"; Descrīption: "查看显示自述文件"; Flags: postinstall skipifsilent shellexec;更改显示在程序中显示的消息文本
[Messages]
BeveledLabel=HKiss科技
;卸载对话框说明
ConfirmUninstall=您真的想要从电脑中卸载ISsample吗?%n%n按 [是] 则完全删除 %1 以及它的所有组件;%n按 [否]则让软件继续留在您的电脑上.
;定义解压说明
;StatusExtractFiles=解压并复制主程序文件及相关库文件...;用与在用户系统中创建,修改或删除注册表健值
[Registry]
Root: HKLM ;SubKey:"Software\ISsample";ValueType:dword;ValueName:config;ValueData:10 ;Flags:uninsdeletevalue
;在执行脚本
[code]
//全局变量
var MyProgChecked: Boolean;//判断程序是否存在
//初始华程序事件
function InitializeSetup(): boolean;
var Isbl: boolean; //声明变量
var Isstr: string;
begin //开始
Isbl := true; //变量赋值
Isstr := '欢迎';
if RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\ISsample', 'config') then
begin
MsgBox('已安装过,请先卸载在安装',mbConfirmation, MB_OK);
isbl := false;
end else
begin
//MsgBox('无值',mbConfirmation, MB_OK);
isbl := true;
end;//下面是个麻烦的 条件语句 end else 注意
//if MsgBox(Isstr, mbConfirmation, MB_OKCANCEL) = IDOK then
//begin
// isbl := true;
// MsgBox('执行了', mbConfirmation, MB_OK);
//end else
//begin
// isbl := false;
//MsgBox('执行了', mbConfirmation, MB_OK);
//end;Result := Isbl;
end; //结束procedure CurStepChanged(CurStep: TSetupStep);
var Isstr :string;
begin
if CurStep=ssInstall then //实际安装前调用
begin
//MsgBox('CurStepChanged:实际安装前调用', mbConfirmation, MB_OKCANCEL); //安装完成后调用
end;
if CurStep=ssPostInstall then
begin
Isstr := ExpandConstant('{tmp}\tmp.rar');
// if FileExists(Isstr) then
// begin
// MsgBox('文件存在',mbConfirmation, MB_OK);
// end else
// begin
// MsgBox('文件不存在',mbConfirmation, MB_OK);
// end;
// MsgBox('CurStepChanged:实际安装后调用', mbConfirmation, MB_OKCANCEL);
end;
end;//下一步 按钮按钮 事件
function NextButtonClick(CurPageID: Integer): Boolean;
var ResultCode: Integer;
var IsSetup : Boolean;
begin
IsSetup := true ;
case CurPageID of
wpSelectDir:
MsgBox('NextButtonClick:' #13#13 'You selected: ''' + WizardDirValue + '''.', mbInformation, MB_OK); //WizardDirValue路径
wpSelectProgramGroup:
MsgBox('NextButtonClick:' #13#13 'You selected: ''' + WizardGroupValue + '''.', mbInformation, MB_OK); //开始菜单名
wpReady:
begin
if not RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Test', 'config') then begin
if MsgBox('程序执行需要Test.ext,是否安装!', mbConfirmation, MB_YESNO) = idYes then begin
ExtractTemporaryFile('test.exe');
if not Exec(ExpandConstant('{tmp}\test.exe'), '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode) then
MsgBox('Test.exe出错:' #13#13 ' ' + SysErrorMessage(ResultCode) + '.', mbError, MB_OK);
end else begin
IsSetup := false ;
end ;
BringToFrontAndRestore();
end;
end;
end;
Result := IsSetup;
end; -
inno setup 学习点滴记录1
2008-07-07 09:46:36
在做安装包过程中需要使用的字段,总结出来。
打包可能用到的字段:
1、AlwaysRestart有效值: yes 或 no
默认值: no说明:
当设置为 yes, 安装程序始终会在一次成功的安装过程结束后提示用户重新启动系统,而不管这是不是必须的(因为在 [Files] 段的一些项当中带有 restartreplace 标记)。2、AppName
说明:
这个必需的关键字指定了你正在安装的应用程序的标题。不要包含版本号,那样应该使用 AppVerName 关键字。AppName 在安装程序的全部过程始终被显示,位于安装程序屏幕的左上角和向导中。
示例: AppName=My Program
3、AppVerName说明:
这个必需的关键字的值应该和 AppName 的值相同(或相似),但是它还应当包含程序的版本号。
示例: AppVerName=My Program version 3.0
4、CreateAppDir有效值: yes 或 no
默认值: yes说明:
如果该值设置位 no, 将不会创建应用程序的目录,也不会显示“选择目的文件夹”向导页,并且 {app} 目录常量会等效为 {win} 目录常量。当 CreateAppDir 是 no 时如果卸载功能是允许的,卸载数据文件将会被创建于系统的 Windows 目录。
5、CreateUninstallRegKey有效值: yes 或 no
默认值: yes说明:
如果该值设置为 no, 安装程序将不会在控制面板的“添加/删除程序”中创建一项。这个可以用于你的应用程序只是更新一个已经存在的应用程序而不想创建其它的项,但是请不要完全的禁止卸载功能(通过 Uninstallable=no)。 当这个关键字设置为 no 时,UpdateUninstallAppName 通常也设置为 no .
6、DefaultDirName说明:
这是个必需的关键字,该值是默认的目录名称,用于“选择目录页”向导。通常它有一个目录常量前缀。
如果 UsePreviousAppDir 是 yes (默认值)并且安装程序发现已经安装了一个相同应用程序的早期版本,它将用先前选择的目录代替默认的目录名称。
7、DefaultGroupName说明:
该关键字的值是默认的“程序管理器/开始菜单”程序组的名称,它被“选择程序组”向导页使用。如果该关键字为空或没有指定的话,它将会使用“(默认)”作为其名称。
注意: 记住 Windows 95/NT 4+ 的应用程序图标是作为文件直接存储的,这样一来普通文件所不允许使用的字符都不能用来作为应用程序图标的名称
8、DirExistsWarning有效值: auto, yes 或 no
默认值: auto说明:
当设置为 auto 时,即默认的设置,如果用户在选择目标文件夹向导页中选择了一个已经存在的文件夹,安装程序将显示“文件夹: … 已经存在,以愿意将程序安装到这个文件夹下面吗?”的消息,除非有相同的应用程序的其它版本已经安装并且也选择了和上次安装时相同的目录(仅如果 UsePreviousAppDir 是 yes ,即默认设置)。当设置为 yes 时,如果用户选择了已存在的目录安装程序将始终显示“目录已存在的消息”。
当设置为 no 时,安装程序决不会显示“目录已存在的消息”。
9、DisableAppendDir有效值: yes 或 no
默认值: no说明:
当设置为 yes 时,安装程序不会自动的添加上次组件的路径从 DefaultDirName 到用户在“选择目录”向导页上双击鼠标选择的目录。此外,它设置目录列表框的初始目录为 DefaultDirName (如果该目录存在)而不是上一级
10、DisableDirPage有效值: yes 或 no
默认值: no说明:
如果该项设置为 yes, 安装程序将不会显示“选择目标文件夹”向导页。在这种情况下,它将始终使用默认的目录名。
11、DisableFinishedPage有效值: yes 或 no
默认值: no说明:
如果该项设置为 yes, 安装程序将不会显示“安装完成”向导页,并且在一次安装过程结束后会立即关闭安装程序。如果在 [Run] 段里面有一个要被执行的程序使用了 nowait 标记,并且你不希望在该程序被启动之候安装完成窗口还逗留在后台,此时该项是有用的。注意安装程序认为要重新启动计算机,或如果指派了一个文件给 [Setup] 段的 InfoAfterFile 关键字,都将忽略 DisableFinishedPage 关键字。象这些情况,仍然会显示“安装完成”向导页。12
12、DisableProgramGroupPage有效值: yes 或 no
默认值: no说明:
如果该项设置为 yes, 安装程序将不会显示“选择程序组”向导页。在这种情况下,它将使用由 [Setup] 段的 DefaultGroupName 关键字指定的组名,或者“(Default)”如果没有指定组名的话
13、DisableStartupPrompt有效值: yes 或 no
默认值: no说明:
如果该值被设为 yes, 安装程序将不会显示“准备安装…,你希望继续吗?”的提示。如果 UseSetupLdr 被设置为 no 该值将不会产生作用
14、EnableDirDoesntExistWarning有效值: yes 或 no
默认值: no说明:
当设置为 yes 时,如果用户选择的文件夹不存在安装程序将显示一个消息框。当这项为 yes 时通常你还应该设置 DirExistsWarning=no。
15、LicenseFile说明:
指定一个可选的许可协议文件的名称,为 .txt 或 .rtf (丰富文本)格式,它在用户选择程序的目标文件夹之前被显示。运行安装编译器时该文件必须位于你的安装程序的源目录中,除非指定了一个全程路径名称,或者路径名是以“compiler:”作为其前缀,这样它会在编译器的目录当中查找该文件。
示例: LicenseFile=license.txt
16、MinVersion格式: a.bb,c.dd, 这里的 a.bb 是表示 Windows 的版本,c.dd 是表示 Windows NT 的版本。
默认值: 4,4说明:
该关键字让你指定运行你的软件所需要的最低的 Windows 或 Windows NT 的版本,默认值是“4,4”,实际上它也可以被设置为“4,3.51”来支持 NT 3.51 . 要防止你的程序被运行在 Windows 或 Windows NT 上,指定“0”为其中之一的最低版本。版本创建编号(Build numbers)和(或)服务包级别(Service pack levels)可以被包括在版本号中。如果用户的系统不适合所要求的最低版本,安装程序将给出一个错误消息然后退出。
17、OnlyBelowVersion格式: a.bb,c.dd, 这里的 a.bb 是表示 Windows 的版本,c.dd 是表示 Windows NT 的版本。
默认: 0,0说明:
该关键字让你指定不能运行你的软件的最低的 Windows 或 Windows NT 的版本(亦即高于此版本则无法运行)。指定 0 为其中之一的版本的意思是没有版本上限。版本创建编号(Build numbers)和(或)服务包级别(service pack levels)可以被包括在版本号中。该关键字实际上是和 MinVersion 恰好相反。
18、Password说明:
指定一个口令,在安装过程开始时提示用户输入。
如果使用了一个口令,重要的是要紧记并没有加密技术被使用,并且 Inno Setup 的源代码是完全开放的,对于一个个别的富有经验的人来说从安装程序中移去口令的保护不是十分困难的。使用口令仅仅起到一个阻止那些没有得到授权的人使用你的安装程序。
19、Uninstallable有效值: yes 或 no
默认值: yes说明:
它决定了 Inno Setup 的自动卸载程序是否被包含在安装程序中。如果是 yes 将包含卸载程序,如果是 no 将不会包括可卸载支持,最终用户只能用手工的方法删除属于你的应用程序的文件
20、AppCopyright说明:
可选的,它只是用来在安装程序屏幕的右下角显示一个版权消息。
示例: AppCopyright=Copyright @ 2008 新沙加神话, Inc.
21、DisableProgramGroupPag
有效值:yes或no
默认值:no说明:用来决定是否在安装程序开始时禁止“即将安装 ... ,继续吗?”的提示,当然,它将使 [Setup] 段的 DisableStartupPrompt 关键字设置为 yes 无效
标题搜索
我的存档
数据统计
- 访问量: 15289
- 日志数: 24
- 建立时间: 2008-07-07
- 更新时间: 2010-10-19