<![CDATA[RESTOOLS]]> http://restools.hanzify.org/ PJBlog2 2012-01-12T21:30:26+08:00 <![CDATA[Inno Setup 编译器编辑功能增强版 (build 120112)]]> xin http://restools.hanzify.org/ restools@21cn.com 2012-01-12T21:30:26+08:00 2012-01-12T21:30:26+08:00 Inno Setup 中的编译器编辑程序 Compil32.exe 进行的部分修改，使它尽量适合 [code] 段代码的编写。
:)
PS: 以后的修改方向是把 [code] 段的代码编写变得更容易，但是不会费时间实现 ISTool 一样的功能。因为实在是太花时间了，一般如果动用到这个编译器来编辑脚本，都是因为要调试 [code] 段代码的。
附图：






build 050925
1. 基于 Inno Setup 5.1.5 重新编译。
2. 在编译级别汉化本程序，汉化资源使用了莫名的汉化资源，在此感谢莫名提供汉化资源，减少了本人不少的工作量。
3. 稍微修改了调试时的显示方式。跟 Delphi 更加的接近。
4. 增加部分的关键字，参数的高亮显示，跟 ISTOOL 相同。
5. 增加复制为 UBB 代码的功能，方便论坛发帖使用。
6. 为方便编程控制事件，把里面部分控件换为 Delphi 5.0 有的更高级的控件。

build 051002
1. 修正向导中的一个BUG。(汉化时产生)
2. 加入代码模板功能。可以快速输入 INNO 一些常用代码，可自己添加。
(例如: 你有一些经常使用的代码，你可以为它们建立自己的代号，然后就很容易快速输入该段代码)
附图：


build 080428
1.添加一个代码分析视图，所有区段分析。code 段是重点，因为实现自动完成代码功能的前期工作都在这个视图中实现了，包括每个 procedure 和 function 的局部变量也被枚举了出来，只是没有在视图中显示。
2.修正中文显示问题。
3.改善一些界面上的显示。
附图：

1. 区段分析。
2. 必须选项。
3. record 类型。
4. 全局 var 变量。
5. 全局 const 常量。
6. procedure 分析。
7. funciton 分析。
8. 内部支持过程。
9. 结构有问题的 function 或者 procedure。

build 080502
1.添加书签标记。
2.开放了大部分在 VNISEdit 中同样存在的编辑器选项。
3.显示缩进竖线，方便代码阅读。
4.修正部分编辑器的显示问题。
附图：



build 080503
1.添加列块缩进处理，Tab 和 Shift+Tab 快捷键。
2.添加注释选择文本功能，“;”和“/”控制，会自动检测所属区段的注释是用“;”还是“/”符号。只需要按“;”或者“/”键即可按照所属区段所使用的注释符号注释大量文本。
2.开放了编辑器语法颜色选项。
3.添加另存为 HTML 格式。并且开放 UBB 和 HTML 复制的几个选项。
附图：


build 080508
1.添加对 set of(集合) 和 array of(数组) 结构的代码分析。
2.开放视图的高级提示，可显示过程函数明细，例如局部变量。(菜单中打开此功能)
3.添加对 Bracket 的支持。包括 begin, end, (, ),的对应。如果你用过 Visual Assist X ，就知道这个功能对于代码编写有多大的作用。颜色设置里面也可以设置该功能的颜色。错误配对也会显示红色。


build 080511
1.完善 Type, var 代码结构分析。
2.添加 try end 配对显示。
3.恢复功能：拖放文件，ESC 关闭查找替换窗口。

build 080513
1.修正配对显示在自动换行下的显示问题。
2.添加 Type , var 中关于 function 和 procedure 的定义。至此，基本完成了 Inno Setup 所有我知道的定义类型的视图分析，如果还有未能正确分析的请告诉我。
3.添加 HotLink 实现技术，但是目前并无实际效用，因为并未加诸应用。以后将会用在变量，函数，类型，过程等等的跳转。同样能够进行颜色设定。(功能键：Ctrl + 鼠标左键点击，类似 Delphi)
4.修正编辑器粘贴时的显示问题。

build 080519
1.修正显示、操作问题，尤其在 Win98 下测试发现的问题一并处理。
2.修正新版本 SynEdit 控件的 BUG，包括语法高亮，覆盖编辑，撤销重做问题。
3.添加一页，内部支持函数，过程，类，的声明页面，不可编辑，只是以后用来作为脚本跳转时源头，自动完成列表提取源头。
4.修正多 code 段时的处理方法。

build 080525
1.修正代码模版的执行方法，撤消重做无论在任何编辑器选项下都能正常使用了。并且增加模版每一项的描述。所以之前的模版文件在这版本中不能使用，需要替换掉。
2.修正双击选择中文的问题。
3.更改除 code 段外所有区段代码的分析算法，力求更高效和更完整的分析，以备以后有需要的时候使用，可能以后会拿 Setup 段来实现 ISTool 的功能，不过不会扩展到所有区段，这部分是无责任烂尾，只是用来实验 ISTool 如何实现功能而已。开放了所有区段的高级视图提示。
4.改善切换页面时的效率问题。
5.经测试后，之前版本存在严重内存泄漏问题，这版本基本去除已发现的内存泄漏，不过线程处理很容易造成内存偶尔泄漏，所以接下来需要长时间的压力测试。就目前来说未再发现泄漏。

build 080530
1.修正一个视图显示的问题。
2.修正一个 begin end 配对的显示问题。
3.增加一个当前光标竖线颜色设置的选项，对于我自己来说，经常编写多层 begin end 代码，所以我最终还是忍受不住太多的竖线仍然让我看得眼花缭乱，必须把我想知道的竖线加深颜色以便查看。
4.模板菜单中显示模板的描述，可方便初期使用时知道那些缩写究竟代表什么代码。
5.修正批量注释时的处理方法。
6.修正多处视图错误分析。
7.自动参数提示，包括内部支持过程函数和当前编辑脚本中的过程函数的参数提示。至于“#include”的包含文件方式，以后会想办法解决。

build 080608
1.实现了近乎完美的弹出参数提示算法，已经能在任何输入下(包括中间夹杂了，字符串，注释，内含括号的计算公式，函数中再包含函数等等的影响)，都能正确标注出当前的要输入的第几项参数，同时也允许在换行输入下继续提示参数而不再消失。
2.修正编辑器的中文显示问题。
3.增加 Inno Setup 内部支持类成员函数和过程的参数弹出提示，CreateOleObject 创建的 Com 对象除外，至此，基本建立了一个较为完整的检索类声明的分析体系，想来接下来的弹出列表应该问题不大了，with do 结构以后想办法处理。
4.在内部支持页中补全了所有支持的类型，变量，常量声明，部分在帮助中并未提及。
5.修正常量声明语法分析和部分视图分析的问题。

build 080609
1.修正在无语法高亮时的中文显示问题。
2.增加内部支持类所属的属性，过程，函数的自动完成列表。


build 080618
1.修正参数提示弹出算法。
2.修正属性列表显示问题，弹出算法，支持 function 返回类的弹出列表，例如
  CreateInputQueryPage(AfterID,ACaption,ADescription,ASubCaption).Description
  这样的返回类弹出列表，支持 function 和 Class 混合语法分析弹出属性列表和函数参数提示，例如这种
  function_return_class().property_return_class.property_function() 。
  所以把 Mainform 和 WizardForm 声明修正为 function。
3.增加“function UninstallProgressForm: TUninstallProgressForm;”声明，使 UninstallProgressForm 能正常使用参数弹出和属性列表弹出。
4.增加弹出列表排序功能。

build 080628
1.修正函数参数弹出算法。同时增加快捷键 Ctrl+Shift+Space 激活参数提示。
2.当行后无字符时，当输入“(”的时候，同时检测到之前的标识符属于支持函数，将会自动补充一个“)”字符。
3.增加 #include 包含文件中的代码分析。支持多层包含文件代码分析，例如在一个包含文件中又包含另外一个包含文件。包含文件被修改后，重新返回该编辑器编辑的时候也会自动更新代码分析，当检测到包含文件循环崁套或者多次包含都只会载入一次以避免进入死循环。

build 080724
1.当输入“@”符号时，提供当前声明的 proc 和 func 列表以供选择。
2.调整在 proc 和 func 定义错误时的局部变量和全局变量的判断。尽可能的避免局部变量的定义变成了全局变量定义。
3.修正参数弹出算法，调整参数显示算法，当太多参数的时候，会自动根据屏幕宽度调整参数换行。
4.增加一个打开当前脚本文件夹的菜单。
5.修正最后一个 function 段的分析。
6.修正 Chr 和 ord 的声明分析。
7.增加 record 类型的成员弹出列表。
8.允许列表弹出设置弹出延迟时间。
9.增加编辑器一些选项。例如设置成较为女性化的编辑器底色。

build 080921
仍然没有增加新的功能，只是修正大量错误。这里不一一细述了。
稍微调整的就是能自动分辨增强版编译器，以使用新的声明。

build 090110
1.with do 结构分析。支持多层 with do 结构分析。
2.修正多处参数，属性列表弹出代码分析错误算法，更加精准。
3.改善 Vista 下的界面显示效果。


build 090115
1.with do 结构分析: 能够分析诸如 with TButton.Create(WizardForm) do 这样的结构
2.增加 2 种关键字匹配方式，务求更快捷的输入代码。

3.改善 Vista 下的界面显示效果。

build 090215
1.改善部分语法分析，不过目前来说仍然有不太完善的地方，慢慢改。
2.增加所有标识符的弹出列表。编辑器选项中可以设置弹出延迟时间。

3.如果上面的弹出列表显得太厌烦可以关闭自动弹出，已经增加了快捷键 Ctrl+J 弹出列表。
4.高亮当前行。选项可以设置是否高亮。
5.补充完整一些常量，类型声明。

build 090308
1.修正部分语法分析算法，处理 with do 结构内的所有标识符弹出列表算法。
2.添加窗口菜单以方便切换到已经打开的脚本。
3.解决了进程间的通信方式问题，将会自动检索已经打开的脚本，不会重复打开。
（这也是代码跳转，乃至脚本间代码跳转的前期工作）
4.添加支持 FullVCL 编译版本的编译器内核的所有弹出列表的处理。

build 090319
1.修正部分语法分析算法。
2.修正几处列表弹出算法。
3.窗口激活，窗口切换。窗口重排。
4.代码跳转算法，可以遍及整个 Code 段的代码跳转。包括，函数，参数，局部变量，全局
  变量，记录，类型，集合，控件类、属性、函数。包含文件的脚本间的代码跳转也一并实现。
  (使用方法：Ctrl + Mouse Click)


build 090505
1.修正部分语法分析算法。
2.修正几处列表自动完成算法。
3.改善一些界面效果。
4.处理代码段所有标识符的提示，分为调试状态和非调试状态，在非调试状态下，提示同样遍及整个 Code 段的代码提示。包括，函数，参数，局部变量，全局变量，记录，类型，集合，控件类、属性、函数。


build 090506
紧急修正一个严重错误。

build 090824
1. 修正多处语法高亮显示算法，能更好的以多种颜色显示代码。
2. 修正多处自动完成代码语法分析算法，更有效率，尽可能少的影响代码录入的速度。
3. 分析了 ISPP 预处理代码的语法分析，在视图中显示出来。(暂时还不能在预处理代码中实现代码自动完成功能)
4. procedure 可分列 External 类声明。
5. 同步更新至 5.3.4 代码。

build 091007
1. 修正多处语法高亮显示算法。
2. 修正 ISPP 分析算法。
Unicode 版本更新：
同步所有 ANSI 版本的功能，但是由于自动换行会影响程序打开速度，所以禁止了默认使用自动换行，但是换行功能仍然保留。

build 091103
1.增加断开调试器的功能。
2.工具菜单下增加插入颜色功能，同时为颜色对话框提供颜色拾取功能。

3.工具菜单下增加所有内部支持事件的定位功能。
4.增加当前标识符的高亮显示。

5.修正多处语法高亮显示的问题。
6.增加直接打开生成安装程序所在目录的功能。

build 091128
1. 修正多处语法高亮显示算法。
2. 编辑器文字显示针对非等宽但视觉上同样等宽的字体（例如：宋体，新宋体等等）提供紧凑显示模式。


build 100102
1. 修正了多处语法高亮问题。
2. 增加了 WizardForm 的可视化设计功能，我可以大胆的说一句，目前没有任何的安装程序制作工具能够有 Inno Setup 那样大的界面设计自由度。
3. 查找替换框增加了“从脚本起始处开始”的选项。


build 100121
同步到 5.3.7 版本，并添加支持多个属于增强版本的控件的可视化设计，未来将会完善更多控件和属性的可视化设计。

build 100212
1. 支持 Interface 结构的解释，具体可查看 Inno Setup 例子中的 CodeAutomation2.iss 脚本。
2. 其他大量的可视化设计功能中的修正，这里就不一一细述了。


build 100221
1. 同步至 5.3.8。
2. WizardForm Designer 中支持 TRichEditViewer.RTFText 属性的可视化编辑。


build 100322
1. 添加多语言界面支持。
2. 为 WizardForm Designer 改善多处功能。


build 100608
同步至 5.3.9 版本。并进行一些功能上的修正。

build 100707
同步至 5.3.10 版本。并进行一些功能上的修正。

build 101205
同步至 5.4.0 版本。并进行一些功能上的修正。


build 101211
增加 Bitmap 和 Icon 的可视化处理。并修正一个影响 Unicode 版本可视化编辑的问题。


build 101226
增加 控件事件 的可视化处理。并把原版的例子 CodeClasses.iss 修改成可视化版本，在这个例子中，你可以充分体验到可视化编辑带来的方便易用性，可以随意修改界面上控件的位置属性，而且非常方便的定位到相关控件的事件中。


build 110102
修正多处可视化设计中的 BUG。

build 110103
1.继续修正多处可视化设计中的 BUG。
2.增加扩展控件 TTimer 的可视化设计。
3.增加非可视化控件的创建顺序的调整。

build 110116
1.增加扩展控件 TImageList 的可视化设计。
2.修正并调整语法高亮中的一些问题。并增加 Code 段语法高亮中的字符串内显示{#XXX}的特殊颜色。
3.修正复制 UBB 和 HTML 代码时自动检测是否只复制 Code 段代码以便采用 Pas 高亮颜色处理。
4.修正在可视化处理时，某些时候会出现令到可视化设计界面部分消失的情况。
5.修正一处小的内存泄漏。
6.修正一处自动完成列表弹出功能中的BUG。

build 110123
1.修正一处自动完成列表算法中的问题。
2.修正一些可视化设计中的问题。
3.增加控件 TNewNotebook 的可视化设计。

build 110202
1.对于原 WizardForm 控件提供了改变父控件的方法。
2.修正一些可视化设计中的问题。


build 110208
1.修正脚本向导中的一个错误。
2.可视化设计中修正“更改父控件”中的一个错误。
3.可视化设计中增加控件的锁定功能，防止控件被不小心的移位。
4.增加“TNewSpeedButton”的可视化设计。
5.修正可视化设计中部分控件的 OnMouseEnter 和 OnMouseLeave 的事件显示。

build 110209
1.修正可视化设计中的一些错误。
2.可视化设计中添加缩放功能。
3.在 Unicode 版本中，脚本可以强制保存为 UTF-8 编码格式。

build 110213
同步至 5.4.1 版本，由于编辑器修改的程度已经日渐增大，以 Compil32Ex.exe 的名字出现， 复制到原版中使用，不再以覆盖的方式使用，所以请用户自行选择编辑器使用。

build 110301
修正多处可视化编辑中的问题。

build 110319
同步至 5.4.2, 并进行一些小的修正。

build 120112
同步至 5.4.3, 并进行一些小的错误修正和显示上的改善。

下载地址：
适用于 5.1.5 版本 功能扩展到 build 051002
http://restools.hanzify.org/inno/InnoCompiler051002.zip

适用于 5.2.3 版本 功能扩展到 build 090506
http://restools.hanzify.org/inno/InnoCompiler090506.zip
For English:
http://restools.hanzify.org/inno/InnoCompiler090506_English.zip

适用于 5.2.4 - 5.4.0 版本 功能扩展到 build 110209
Multilanguage support: English, Chinese
http://restools.hanzify.org/inno/InnoCompiler110209(7zip).zip

适用于 5.4.1 - 5.4.3 版本 功能扩展到 build 120112
Multilanguage support: English, Chinese
http://restools.hanzify.org/inno/InnoCompiler120112(7zip).zip]]> http://restools.hanzify.org/default.asp?id=47 <![CDATA[Inno Setup 编译器&主体程序增强版(build 111225)]]> xin http://restools.hanzify.org/ restools@21cn.com 2011-12-25T19:57:15+08:00 2011-12-25T19:57:15+08:00 Inno Setup 中的编译器 (ISCmplr.dll) 和主体程序 (setup.e32) 进行了部分修改，使它更加完善，比 NSIS 使用更简单，更完美。 :)
附图：


因为安装主体程序[Setup.e32]涉及安装程序大小，所以将会在每个更新版本中标明 [Setup.e32] 的大小，以方便各位能方便判断是否有必要使用增强版，正常来说，如果没有使用到增强版的功能，建议使用原版安装主体程序[Setup.e32]，因为每增加一项功能文件大小都会有所增长。

增强版没有作汉化处理，原本打算汉化的，因为对于中文的 Unicode 来说，比起英文的要短，如果作汉化，会为安装主体程序[Setup.e32]节省大概 6~8 KB 大小，不过为了能很好的在任何系统中运行多语言安装程序(汉化的也能运行，只不过提示信息在非中文语系的系统中会出现提示信息乱码)，所以未作汉化。

原版安装主体程序[Setup.e32, ver: 5.2.3]文件大小: 669 KB
制作成安装程序后会经过压缩算法压缩该文件的大小。压缩会减少超过一半大小。

和之前编译编辑器增强版不同，编译编辑器无关安装程序大小，所以我并不关心它的大小，但是该安装主体程序关系到安装程序大小，有时候会因为不同的功能和不同的大小而去选择某一个 build 版本，所以为了方便你选择任何一个 build 版本，我尽可能的保留任何一个 build 版本，除非那个版本存在错误将不会保留，如果最新版本比之前的版本要小，那么之前所有版本也将不会被保留。

build 080805
1. Components 组件列表控件被修改为 TreeView 模式，并修正里面几个显示问题(包括原作 者发现并部分修正的问题 - 在 2000/XP/2003 环境下，鼠标滚动和垂直滚动条翻页都会造成一个错误的视觉效果，就是列表向相反方向滚动，而作者只修正鼠标滚动的效果，滚动条翻页根据作者注释，因为不太明显，所以未修正，而且原作者采用模拟的方法来修正，跟系统效果并非完全一样，尤其是在滚动时的显示速度上，所以我重新修改了修正方法解决所有滚动视觉效果问题，关于这个解决的效果各位可以做测试对比一下就知道)，虽然组件列表被修改为 TreeView 模式，但是仍然支持原来的显示模式，TreeView 模式只作为一个安装选项来激活，具体使用方法参阅脚本例子。
2. 增加内部支持函数( function GetPassword: String; )如发现脚本存在该函数，同时该函数提供的密码是正确的时候，会自动跳过 Password 输入页面，同时该函数优先于所有释放文件函数，所以无须为初始安装时释放的文件打上 noencryption 标记。具体使用方法请参考附带的脚本例子。需要加密模块 ISCrypt.dll 支持。

① 点击按钮会“折叠”或者“展开”项。
② 点击文字区域会激活高亮该项，但是并不进行“Check”或者“UnCheck”的操作。
   同时，双击该区域也会执行“折叠”或者“展开”的操作。
③ 点击此区域可以进行“Check”或者“UnCheck”的操作。
④ 此为最顶层的项的连线，可由控件属性“Showroot”控制是否显示该区域。
⑤ 当使用“Showroot”隐藏了 ④ 区域时，只能双击该项才能“展开”或者“折叠”子项。

build 080815
1. property ItemHeightFixed: Boolean; read write;
   该项设置为 True，以单行高显示每项，显示不完全的可以以 Hint 显示完整一行。
2. TItemArea = (iaOther, iaButton, iaCheckmark, iaItem, iaSubItem);
   TItemMouseMoveEvent = procedure(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea);
   property OnItemMouseMove: TItemMouseMoveEvent; read write;
   增加一个在 Item 上移动鼠标的事件。
3. property AbsItemIndex: Integer; read;
   当前项绝对索引 AbsItemIndex。
4. 在不等高情况下，仍然维持原作者的滚动视觉解决方法。
上面的选项的具体使用在例子中已经详细解释，这里就不做更详细的解释了。

build 080816
1. 指定项是展开还是收缩子项
     property ItemExpanded[Index]: Boolean; read write;
2. 是否在没有焦点的情况下仍然显示被选择的项
     property HideSelection: Boolean; read write;
使用方法看例子。
附图：


build 080914
修正原版就有的错误，尤其是部分帮助中提及的类的支持，改善显示，主要是 CheckListbox 的显示。

build 081121
TNewCheckListBox 增加 2 个属性。
     property ItemFontStyle[Index: Integer]: TFontStyles; read write;
     property SubItemFontStyle[Index: Integer]: TFontStyles; read write;


build 081207
1. 修改 GetPassword 定义。
2. 增加 1 个密码设置函数 SetPassword，具体使用方法可以参考例子。
     procedure SetPassword(const Password: String);

build 090222
增加 FullVCL 版本的编译器。此为全属性编译版本。拥有更多的事件触发，例如：OnMouseDown，OnMouseUp，OnMouseMove 等等，并拥有更多的 VCL 控件使用。例如：TTimer, Application, TMenu 等等。

build 090225
增加 TScreen 组件。
增加 Application.OnMessage 事件。
增加 procedure Randomize; 函数。
增加了几个有趣的例子。

build 090302
FullVCL:
FullVCL 版本更新:
增加 TImageList, TIcon, TTreeView, TListView 组件。

build 090424
1. 修正 Delphi 2.0 编译的程序的 Hint 显示效果，修正为传统的 Windows 样式。
2. 修正 Delphi 2.0 编译的安装程序在最小化时的动态缩小效果显示问题。
3. 增加 TNewCheckListBox.LoadBtnBmpFromFile 方法，可自定义 RadioButtn 和 CheckBox 的按钮图片，同时在 [Setup] 段添加选项 ComponentsListBtnImageFile，功能跟前面说的一样，就是载入自定义按钮图片。
4. 增加 TFolderTreeView.ShowAllFolders 属性，可显示所有文件夹(包括系统隐藏属性)
5. 修正 Inno Setup 在 PrivilegesRequired=admin 时(这是默认选项，可不用明确设置)  会同时设置安装程序的 Manifest 中的 requestedExecutionLevel level=requireAdministrator 以适应 Vista 中在非管理员状态下运行安装程序自动提示输入管理员密码。
FullVCL 版本更新:
1.  同步所有 MiniVCL 更新。
2.  删除对 TGroupBox 的支持，因为它在 Delphi 2.0 中编译不支持 XP 主题，重新创建一个支持 XP 主题的组件 TNewGroupBox。
3.  删除对 TRadioGroup 的支持，因为可以用 TNewGroupBox 和 TNewRadioButton 来组成。
4.  删除对 TNotebook 的支持，因为已经有 TNewNotebook 可以使用。
5.  删除对 THeader 的支持，因为它不支持 XP 主题，增加组件 THeaderControl (支持XP主题)。
6.  修正 Delphi 2.0 编译的 TTreeView 和 TListView 在 XP 主题下的边框显示问题。
7.  删除对 TImage 的支持，增加 TNewIcon, TNewIconImage 组件，类似 TBitmapImage，可以载入 Icon，并且支持真彩图标。
8.  修正 TForm 和 TApplication 组件的 Icon 属性。
9.  添加 TTrackBar, TUpDown, THotKey, TTabControl, TPageControl 组件。
10. 修正所有组件的 PopupMenu 属性。
11. 修正几个 菜单函数。
又增加了几个有趣的例子，希望喜欢 Inno Setup 的朋友会更加的喜欢这个安装制作程序。


build 090926 (5.3.5.e1 & 5.3.5.ee1)
同步至 InnoSetup 5.3.5 代码，ISPP 同步至 5.3.5 代码。
MiniVCL 版本更新:
1. 修正 CheckListBox 的 Showroot 时画虚线的小小失误。
2. 修正 TRichEditViewer 在主题模式下的边框显示问题。
3. 增加一个函数 CallbackAddr，直接支持脚本使用回调函数。
4. TNewCheckbox 之前增强的 AddCheckBox，AddGroup，AddRadioButton 函数将会还原成
   原来的样子，增强的功能被分拆为 AddCheckBoxEx，AddGroupEx，AddRadioButtonEx，
   以保证和原版 Inno Setup 脚本的兼容性。
FullVCL 版本更新:
同步 MiniVCL 的修改。
1. 修正 TForm.Menu 属性。
Unicode 版本:
同步 ANSI 版本的更新。扩展一些类的属性。具体看例子和 Support Classes.txt。
ISPP 版本更新:
1. 增加增强版的内部标志 #define IS_ENHANCED
2. 增加两个内部变量：
  IS_Ver_Str: String; // 返回 Inno Setup 编译器的版本字符串。
  ISPP_Ver_Str: String; // 返回 ISPP 的版本字符串。

build 091123 (5.3.6.e1 & 5.3.6.ee1)
同步至 5.3.6 版本。
MiniVCL 版本更新:
增加以下 2 个函数，最大的特点是可以换图标和能倒计时。
function MsgBoxEx(AWnd: HWND; AText, ACaption: string; AType, AIcon: UINT; ATimeOut: Integer): Integer;
function InputBoxEx(AWnd: HWND; AText, ACaption, ADefaut, APasswordChar: string; AIcon: UINT; AWidth, AHeight, ATimeOut: Integer; var AResultStr: String): Boolean;
FullVCL 版本更新:
同步 MiniVCL 更新,
增加 TNewMonthCalendar 和 TNewDateTimePicker 两个日期时间控件,并增加以下函数:
function Date: TDateTime;
function DateTimeToStr(DateTime: TDateTime): String;
procedure DateTimeToString(var Result: String; const Format: String; DateTime: TDateTime);
function DateToStr(Date: TDateTime): String;
function DayOfWeek(Date: TDateTime): Integer;
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
function EncodeDate(Year, Month, Day: Word): TDateTime;
function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
function FormatDateTime(const Format: String; DateTime: TDateTime): String;
function Now: TDateTime;
function StrToDate(const S: String): TDateTime;
function StrToDateTime(const S: String): TDateTime;
function StrToTime(const S: String): TDateTime;
function Time: TDateTime;
function TimeToStr(Time: TDateTime): String;
其他还有一些小的修正。

build 100108 (5.3.7.e1 & 5.3.7.ee1)
同步至 5.3.7 版本。
MiniVCL 版本更新:
  ANSI版本修正调试状态下的提示会导致被调试程序退出，这个原版就有问题的。
FullVCL 版本更新:
  同步 MiniVCL 更新,
  增加 TIPAddressEdit 控件。

build 100210 (5.3.7.e2 & 5.3.7.ee2)
MiniVCL 版本更新:
  TNewCheckbox, TNewRadioButton 增加 ParentBackground 属性。
FullVCL 版本更新:
  同步 MiniVCL 更新,
  TNewGroupBox 增加 ParentBackground 属性，THotkey 增加 Color、ParentColor、Font、ParentFont 属性。
  增加 TStatusbar 控件。
  Unicode 版本中 TNewStaticText 增加 Transparent 属性。
  Unicode 版本中恢复对 Interface 的支持，具体可测试编译 Inno Setup 例子中的 CodeAutomation2.iss 例子。

build 100224 (5.3.8.e1 & 5.3.8.ee1)
  同步至 5.3.8 版本。
  修正 TNewCheckListbox 中的一个问题。
  增加函数 procedure ExtractTemporaryFileEx(const FileName: String; const DestDir: String);

build 100301 (5.3.8.e2 & 5.3.8.ee2)
修正属性 TNewCheckbox.ParentBackground, TNewRadioButton.ParentBackground, TNewGroupBox.ParentBackground 的处理方法。
  修正函数 CallbackAddr 在某些 Windows 平台(例如: Windows XP SP3)出现不能正常运行的问题。
    具体使用方法可参考例子：Example_Callback_1.iss 和 Example_Callback_2.iss

build 100323 (5.3.8.e3 & 5.3.8.ee3)
这次主要是针对 Unicode 版本的修正：
1. 修正 PAnsiChar 类型的声明。
2. 修正在 Win2000 系统下(不带 SP)不能正常运行的问题，在 CVS 上这个修正是属于下一版本的，因为这个比较重要，所以我提前在 5.3.8 里面应用它了。

build 100418 (5.3.9.e1 & 5.3.9.ee1)
  同步至 5.3.9 版本。

build 100613 (5.3.10.e1 & 5.3.10.ee1)
ANSI 版本：
  同步至 5.3.10 版本。

build 100625 (5.3.10.e2 & 5.3.10.ee2)
  1. 为配合 ISSkin 的应用, TRichEditViewer 增加属性 ThemeBorder , 默认被设为 True, 当它为 False 时, 控件边框可以被 ISSkin 应用主题.
  2. TBitmapImage 的修改, 当 BackColor 和 ReplaceWithColor 的颜色都为 clNone 的时候, 将会以 ReplaceColor 作为图片的透明色使用. TNewIconImage 的修改, 当 BackColor 的颜色为 clNone 的时候, 背景将会是透明的. 具体可查看例子 Example_TransparentBmp.iss

build 100918 (5.3.11.e1 & 5.3.11.ee1)
　1. 同步至 5.3.11 版本。
　2. MiniVCL 版本增加类: TMemoryStream 和 TResourceStream 。
　3. 增加函数 ExtractTemporaryFileToStream, 可把临时文件释放到内存中使用。具体可查看例子 Example_ExtractTemporaryFileToStream.iss
　4. 其他一些修正。

build 101107 (5.4.0.e1 & 5.4.0.ee1)
  1. 同步至 5.4.0 版本。
  2. 增加函数 ExtractTemporaryFileToBuffer, 可把临时文件释放到内存中使用。具体可查看例子 Example_ExtractTemporaryFileToBuffer.iss
  3. Unicode 版本增加函数 CastAnsiStringToInteger 和 CastIntegerToAnsiString，配合 ExtractTemporaryFileToBuffer 函数使用。

build 101129 (5.4.0.e2 & 5.4.0.ee2)
  1. 增加运行时常量 {apphwnd}, 相当于 Application.handle, 方便特殊场合使用, 具体可参考例子 Example_{apphwnd}.iss。
  2. 为解决卸载界面的自定义, 经过再三思量, 想出了在安装部分提供一个函数 PerformPreviousUninstall, 这是一个能在安装程序中调用的卸载函数, 它会自动检测之前安装的程序, 并且根据卸载的数据文件进行卸载的函数。为配合此函数, 同时提供 2 个函数 GetSetupPreviousData 和 SetSetupPreviousData, 类似于 GetPreviousData 和 SetPreviousData, 但是前 2 个函数的层级更高, 可以访问前安装程序的卸载注册表信息(例如 UninstallString, InstallLocation 等等), 可以参阅 2 个例子: Example_Uninstall_1.iss 和 Example_Uninstall_2.iss。 这两个例子充分体现了 PerformPreviousUninstall 在用户可定制方面的自由度, 我只是把它们做得尽量简单, 其实它完全可以扩充为更为复杂的定制安装卸载功能。

build 110111 (5.4.0.e3 & 5.4.0.ee3)
  1. ExtractTemporaryFile, ExtractTemporaryFileEx, ExtractTemporaryFileToStream, ExtractTemporaryFileToBuffer 这 4 个函数都支持文件序号方式的释出文件。
     例如使用了相同目标文件名字的文件可以按照脚本顺序位置使用诸如：
     ExtractTemporaryFile('logo.bmp:1') 这样的方式来释出，具体可参阅例子 Example_ExtractTemporaryFile.iss 。
  2. MiniVCL 版本的 TBitmap 增加以下函数:
       procedure LoadFromResourceName(Instance: THandle; const ResName: String);
       procedure LoadFromResourceID(Instance: THandle; ResID: Integer);
  3. FullVCL 版本的 TNewIcon 增加以下函数:
       procedure LoadFromResourceName(Instance: THandle; const ResName: String);
       procedure LoadFromResourceID(Instance: THandle; ResID: Integer);
  4. MiniVCL 版本的 TStrings 增加以下函数:
       procedure LoadFromStream(Stream: TStream);
       procedure SaveToStream(Stream: TStream);
  5. MiniVCL 版本的 TForm 增加属性
       property ModalResult: Longint; read write;
  6. Setup 段增加参数 BitmapResource, IconResource, RawDataResource , 这 3 个属性主要是在安装程序中添加资源文件, 这样变相也为卸载程序提供了有效的图像来源和各种文件来源的可能行, 同时也维持了一贯的程序的单文件性。具体可以参阅 Example_BitmapResource.iss， Example_IconResource_1.iss，  Example_IconResource_2.iss， Example_RawDataResource.iss
  7. 重开已被官方废弃的 Setup 参数 UninstallIconFile, 因为已经找到不影响 Win9x 下运行的解决方案。具体可参阅 Example_UninstallIconFile.iss
  额外的做了一个模仿 UninsHs 的例子，集中体现了以上增强功能的效果: Example_Uninstall_3.iss。


build 110206 (5.4.0.e4 & 5.4.0.ee4)
MiniVCL 版本：
  TLabel, TNewStaticText, TBitmapImage 增加事件:
       property OnMouseEnter: TNotifyEvent; read write;
       property OnMouseLeave: TNotifyEvent; read write;
     这两个事件的用处可以参考例子: Example_MouseEvent_ImgBtn.iss 和 Example_MouseEvent_URLLabel.iss
  TButton 增加 procedure Click;
FullVCL 版本:
  除了同步 MiniVCL 版本的更新外, 很多其他控件都增加了事件, 例如 TEdit, TButton 都有这2个事件.
       property OnMouseEnter: TNotifyEvent; read write;
       property OnMouseLeave: TNotifyEvent; read write;
  具体可参考例子: Example_MouseEvent_HotEdit.iss
  另外还增加了新的控件 TNewSpeedButton, 例子有: Example_TNewSpeedButton_1.iss 和 Example_TNewSpeedButton_2.iss


build 110214 (5.4.1.e1 & 5.4.1.ee1)
  同步至 5.4.1 版本。另外修正控件 TNewSpeedButton 的一些问题。
  由于 ISPP 的版本号已经取消，所以 ISPP_Ver_Str 常量也被取消。

build 110220 (5.4.1.e2 & 5.4.1.ee2)
  1.修正控件 TNewSpeedButton 的一些问题。
  2.由于函数 Format 对于 Float 的局限性，所以增加了 FormatFloat 函数。将会更加方
    便地对 Float 类型数据进行格式化，具体参考 Example_FormatFloat.iss。
  3.TNewCheckListbox 增加以下函数:
     procedure LoadBGBmpFromBitmap(Bmp: TBitmap; OffsetX, OffsetY: Integer);
     procedure LoadBGBmpFromFile(FileName: String; OffsetX, OffsetY: Integer);
    可以添加背景图片，这样就可以统一整个安装程序界面的背景，就像下图一样（参考 Example_NewCheckListBox.iss）
  4.MinVCL 版本为 TStrings 增加以下函数:
      procedure BeginUpdate;
      procedure EndUpdate;


build 110326 (5.4.2.e1 & 5.4.2.ee1)
  同步至 5.4.2 版本。

build 110329 (5.4.2.e2 & 5.4.2.ee2)
  修正一个语言问题, 添加一个 Inno Setup 事件:
      function InitializeLanguageDialog(Languages: String; var LanguageIndex: Integer): Boolean;
  它是一个比 语言对话框 更早出现的 Inno Setup 事件。
  Languages 是语言对话框会出现的语言列表, LanguageIndex 是将会选定的语言, 在事件中可以重新指定. Result 如果为 False, 语言对话框将不会出现.
   而 [Setup] 参数 ShowLanguageDialog 仍然优先于这个事件, 如果 ShowLanguageDialog 被设置为 no , InitializeLanguageDialog 将不会被执行.

build 111225 (5.4.3.e1 & 5.4.3.ee1)
ANSI 版本：
(MiniVCL: Setup.e32 文件大小: 725 KB)
(FullVCL: Setup.e32 文件大小: 894 KB)
Unicode 版本：
(MiniVCL: Setup.e32 文件大小: 1165 KB)
(FullVCL: Setup.e32 文件大小: 1451 KB)
   同步至 5.4.3 版本。

下载地址：
适用于 5.3.8 版本 功能扩展到 build 100323
http://restools.hanzify.org/inno/Inno_ISCmplr_Setup100323(7zip).zip

适用于 5.3.9 版本 功能扩展到 build 100418
http://restools.hanzify.org/inno/Inno_ISCmplr_Setup100418(7zip).zip

适用于 5.3.10 版本 功能扩展到 build 100625
http://restools.hanzify.org/inno/Inno_ISCmplr_Setup100625(7zip).zip

适用于 5.3.11 版本 功能扩展到 build 100918
http://restools.hanzify.org/inno/Inno_ISCmplr_Setup100918(7zip).zip

适用于 5.4.0 版本 功能扩展到 build 110206
http://restools.hanzify.org/inno/Inno_ISCmplr_Setup110206(7zip).zip

适用于 5.4.1 版本 功能扩展到 build 110220
http://restools.hanzify.org/inno/Inno_ISCmplr_Setup110220(7zip).zip

适用于 5.4.2 版本 功能扩展到 build 110329
http://restools.hanzify.org/inno/Inno_ISCmplr_Setup110329(7zip).zip

适用于 5.4.3 版本 功能扩展到 build 111225
http://restools.hanzify.org/inno/Inno_ISCmplr_Setup111225(7zip).zip]]> http://restools.hanzify.org/default.asp?id=89 <![CDATA[本人承接各类 NSIS 和 InnoSetup 付费制作项目(11-28 更新nsUI例子)]]> xin http://restools.hanzify.org/ restools@21cn.com 2011-11-28T20:10:53+08:00 2011-11-28T20:10:53+08:00 NSIS 和 Inno Setup 安装程序付费制作项目
包括以下项目均在范围内:
1. 插件编写： 很多情况下，一个安装程序并不可能包含方方面面的功能，这时就需要额外的编写一定功能的插件作为辅助。
2. 插件改写： 例如 NSIS 的插件， Inno Setup 的插件，如果你有相关插件的源码，而认为功能不足，可进行相关的改写增强。
3. 脚本编写： 主要以 Inno Setup 为主， NSIS 亦无不可，只是我编写 Inno Setup 脚本的速度要快很多。

未来的安装程序必定会朝个性化的方向发展，你需要给客户一个更具亲和力的第一印象，那么安装程序就是你的第一步。

如何个性化？一个独树一帜的界面当然就是难以模仿的。就像以下附图和附件中的一个例子，以下只是展示了一个不规则安装程序窗口的样貌(像迅雷这样的安装程序仍然在标准之列，仍是中规中矩的)。当然，这同样需要一个好的美工，例如以下的界面，如何让一些闪光或光束在透明背景下仍然有发光的效果，而在客户的系统中，无论客户的系统背景是光亮还是黑暗都无损这个异形界面的发光效果。这就是关键所在。
附图：

附件：(只展现效果, 并无安装功能)
http://restools.hanzify.org/inno/other/InnoDemo.rar

以下是迅雷7的安装例子, 这里只是展示一下界面效果.(它和原版迅雷的安装程序的最大差别就是, 以下这个例子即使在 Win9x 系统中仍然能正常运行)

附件：
http://restools.hanzify.org/inno/other/ThunderSetup.rar
3-21更新插件例子, 使用另一版本的 Delphi 编译.
    安装例子检查结果:
    http://virscan.org/report/29c72ebaa8cc2c5bc91bb51cf77eda40.html
    插件检查结果:
    http://virscan.org/report/dca380ed9381f48974b09c8f30e2148f.html

以下是腾讯QQ2010的安装例子, 这里只是展示一下界面效果.(它和原版QQ的安装程序的最大差别就是, 以下这个例子即使在 Win9x 系统中仍然能正常运行)

附件：
http://restools.hanzify.org/inno/other/QQSetup.rar

2011-11-28 增加 NSIS 下 UI 插件, 100KB 以内的消耗创建完美界面.
http://restools.hanzify.org/nsis/nsUI_test.rar


当然，本人对于界面设计尤为有兴趣，所以你发现本人 BLOG 上大多数插件都是为了控制界面的。
本人对于未来界面的预想，当然不只是不规则窗口，重要的当然还是要有动态效果，例如光环在手指周围转动这样的效果，当然，这是理想的效果，目前仍在努力当中。

如需要洽谈相关付费项目内容，请联系 restools#21cn.com 或 restools#163.com ( 请把 # 更换为 @ )。

]]> http://restools.hanzify.org/default.asp?id=112 <![CDATA[Inno Setup GIF 显示插件 GIFCtrl (V2.1 版本)]]> xin http://restools.hanzify.org/ restools@21cn.com 2011-01-01T14:45:42+08:00 2011-01-01T14:45:42+08:00
引用来自 test.iss 引用来自 test.iss
; -- test.iss --
; restools
; http://restools.hanzify.org
; gifctrl.dll 为一个用于 Inno Setup 的 13 KB 的 gif 显示插件，同样可以显示 BMP 和 JPEG。

; V2.1 可以同时显示 64 个 GIF 图片。解决插件加载后卸载时的延迟问题.

[Setup]
AppName=gifctrl
AppVerName=gifctrl Ver 2.1
DefaultDirName={pf}\gifctrl
DefaultGroupName=gifctrl
OutputDir=userdocs:Inno Setup Examples Output
SolidCompression=yes

[Files]
Source: "gifctrl.dll"; Flags: dontcopy solidbreak
Source: nsisinstall.gif; Flags: dontcopy solidbreak
Source: 0023.gif; Flags: dontcopy solidbreak
Source: "MyProg.exe"; DestDir: "{app}"
Source: "Readme.txt"; DestDir: "{app}"; Flags: isreadme

[Icons]
Name: "{group}\gifctrl"; Filename: "{app}\MyProg.exe"

[code]
const
   HALIGN_CENTER = 0; //水平居中
   HALIGN_LEFT = 1;   //水平靠左
   HALIGN_RIGHT = 2;  //水平靠右

   VALIGN_CENTER = 0; //垂直居中
   VALIGN_TOP = 1;    //垂直靠上
   VALIGN_BOTTOM = 2; //垂直靠下

   FIT_NONE = 0;      //不适应窗口
   FIT_WIDTH = 1;     //适应窗口宽度
   FIT_HEIGHT = 2;    //适应窗口高度
   FIT_BOTH = 3;      //适应窗口宽度和高度
  
   CLR_INVALID = $FFFFFFFF; //自动取容器左上角的颜色作为底色，如果取色失败，用按钮颜色代替。

// 创建 Gif 窗口
function NewGifbWnd(hWndParent: HWND; X, Y, nWidth, nHeight: Integer): HWND; external 'newgifwnd@files:gifctrl.dll stdcall';

// 释放 Gif 窗口
function FreeGifWnd(hWndGif: HWND): Boolean; external 'freegifwnd@files:gifctrl.dll stdcall';

// 释放所有 Gif 窗口
function FreeAllGifWnd(): Boolean; external 'freeallgifwnd@files:gifctrl.dll stdcall';

// 设置 Gif 窗口的父窗口
function GifWndSetParent(hWndGif: HWND; hWndParent: HWND): Boolean; external 'gifwndsetparent@files:gifctrl.dll stdcall';

// 设置 Gif 窗口的位置大小
function GifWndSetBounds(hWndGif: HWND; X, Y, nWidth, nHeight: Integer): Boolean; external 'gifwndsetbounds@files:gifctrl.dll stdcall';

// 载入图片，并设置图片显示位置
function GifWndLoadFromFile(hWndGif: HWND; HAlign, VAlign: Integer; BGColor: DWord; Fit: integer; GifFileName: PChar): Boolean; external 'gifwndloadfromfile@files:gifctrl.dll stdcall';
// 第1 次载入需要指定图片文件“GifFileName”，然后在需要重新载入另外图片的时候重新指定另外的图片文件，重新调整 Align 位置时也需要调用此函数，
// 但是如果只是为了调整 Align 而不想重新载入一次 GifFileName 文件，只需要把 GifFileName 设置为空字符串就可以达到只调整位置，不重载文件。

var
  GifPanel: TPanel;
  GIFHWND1, GIFHWND2: HWND;

function InitializeSetup(): Boolean;
begin
  GIFHWND1 := 0;
  GIFHWND2 := 0;
  Result := True;
end;

procedure DeinitializeSetup();
begin
  FreeAllGifWnd();
end;

procedure LblOnClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExec('open', 'http://restools.hanzify.org', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure InitializeWizard();
var
  GifFileName: String;
  Lbl: TNewStaticText;
begin
  ExtractTemporaryFile('nsisinstall.gif');
  ExtractTemporaryFile('0023.gif');

  GIFHWND1 := NewGifbWnd(WizardForm.InstallingPage.Handle, 0, WizardForm.PROGRESSGAUGE.Top + WizardForm.PROGRESSGAUGE.Height + SCaleY(5),
       WizardForm.InstallingPage.Width, WizardForm.InstallingPage.Height - (WizardForm.PROGRESSGAUGE.Top
       + WizardForm.PROGRESSGAUGE.Height + SCaleY(5)));
  GifWndLoadFromFile(GIFHWND1, HALIGN_CENTER, VALIGN_BOTTOM, CLR_INVALID, FIT_WIDTH, ExpandConstant('{tmp}\nsisinstall.gif'));

  // 创建一个网站 Logo 连接
  GIFHWND2 := NewGifbWnd(WizardForm.Handle, ScaleX(30), WizardForm.Bevel.Top + ScaleY(8), 88, 31);
  GifWndLoadFromFile(GIFHWND2, HALIGN_CENTER, VALIGN_CENTER, CLR_INVALID, FIT_NONE, ExpandConstant('{tmp}\0023.gif'));
  Lbl := TNewStaticText.Create(WizardForm);
  Lbl.Parent := WizardForm;
  Lbl.AutoSize := False;
  Lbl.SetBounds(ScaleX(30), WizardForm.Bevel.Top + ScaleY(8), 88, 31);
  Lbl.OnClick := @LblOnClick;
  Lbl.Cursor := crHand;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpInstalling then
  begin
    MsgBox('暂停一下，看看效果。', mbInformation, MB_OK);
  end;
end;


点击下面连接下载例子。
http://restools.hanzify.org/inno/gifctrl/inno_gifctrl_v2.1.zip
]]> http://restools.hanzify.org/default.asp?id=79 <![CDATA[Inno Setup 精灵显示插件 InnoFairy (V2.0 版本)]]> xin http://restools.hanzify.org/ restools@21cn.com 2010-10-11T21:30:17+08:00 2010-10-11T21:30:17+08:00 Inno Setup 插件, 希望大家喜欢. ^_^
Ver2.0 版本: 采用 GDI+ 来处理图片, 所以支持多种类型(bmp, jpg, gif, png, tiff, emf)图片. 并且插件大小缩小为 49KB.
注:插件在 Win2000 以上系统有效.

引用来自 fairy.iss 引用来自 fairy.iss
; Inno Setup 精灵插件 ver 2.0

[Files]
Source: "fairy.dll"; Flags: dontcopy

[code]
type
  TAddingFinishCallbackProc = procedure(FrameCount: Integer);
  TPlayFinishCallbackProc = procedure();

function InitFairy(hParentWnd: HWND; RelativePos: Integer; Interval: Cardinal): Boolean;
external 'InitFairy@files:fairy.dll stdcall';
// 初始化精灵插件:
// hParentWnd: 需要粘附的窗口句柄, 精灵会跟随这个窗口移动.
// RelativePos: 精灵跟随窗口移动的相对位置.
//        0: 以窗口左上角为原点, 所有制定的 X, Y 坐标都是相对于该原点的距离.
//        1: 以窗口右上角为原点.
//        2: 以窗口左下角为原点.
//        3: 以窗口右下角为原点.
// Interval: 每个图片更新的速度(时间间隔, 单位: ms). 用来微调动作的快慢. 但是动作演示的快慢主要还是由制定图片序列的时候处理,
//           例如 100ms 下的更新速度是比较合理的, 也就是 1 秒钟更新 10 张图片. 所以在制定动作的时候以这个作为参考就好处理了.

function AddImgsToList(BmpFiles: AnsiString; FinishCallback: TAddingFinishCallbackProc): Boolean;
external 'AddImgsToList@files:fairy.dll stdcall';
// 添加图片到精灵插件中.
// BmpFiles: 批量图片处理的序列.
//        格式: X1|Y1|BlendAlpha1|TransparentColor1|ImgFile1|X2|Y2|BlendAlpha2|TransparentColor2|ImgFile2|X3|Y3|BlendAlpha3|TransparentColor3|ImgFile3|.........
//              X: 相对于原点的水平坐标.
//              Y: 相对于原点的垂直坐标.
//              BlendAlpha: 精灵的整体透明程度. 不同于图片自身的透明通道, 即使图片有自身的 Alpha 通道,
//                   不透明的部分仍然会受 BlendAlpha 的影响.
//              TransparentColor: 透明颜色. 当图片没有 Alpha 通道的时候, 就会由该颜色定义透明部分.
//              ImgFile: 图片文件. 因为改用 GDI+ 作为精灵的图片引擎, 所以将会支持多种(bmp, gif, tiff, emf, jpg)图片格式.
//                   当图片带有 Alpha 通道的时候, 将会按照通道来调整图片透明度, 当没有 Alpha 通道的时候, 就会按照 TransparentColor
//                   来定义透明部分. 另外, 对于 GIF, 如果属于动画的多帧图片, 精灵将会在载入时自动把图片分帧载入.
//                   所以将会非常方便精灵的制作.
// FinishCallback: 因为批量添加大量图片可能会引起程序假死, 所以我采用线程处理, 所以在载入图片的过程中, 安装程序仍然可以同步运行.
//        所以 FinishCallback 就是添加图片过程完成的时候调用的回调函数, 通常都是在这个函数中调用 AnimateFairy 来运行精灵.

function AddImgToList(X, Y: Integer; BlendAlpha: Byte; TransparentColor: Integer; ImgFile: AnsiString): Integer;
external 'AddImgToList@files:fairy.dll stdcall';
// 添加图片到精灵插件中.
// 属于单图片添加, 基本上这个函数只是给用户在程序中灵活运用而已, 上一函数已能完成此任务.
// 参数请参看上一函数中的解释.

function ClearImgList(): Boolean; external 'ClearImgList@files:fairy.dll stdcall';
// 清除图片序列中的所有图片.
// 因为图片是顺序添加到序列中的, 所以如果需要重新排列图片, 必须清除所有图片, 重新添加.

function AnimateFairy(IndexList: AnsiString; FinishCallback: TPlayFinishCallbackProc): Boolean;
external 'AnimateFairy@files:fairy.dll stdcall';
// 运行精灵, 也就是相当于序列图片的连续显示.
// IndexList: 播放序列, 具体的使用方法请看以下几个例子.
//        例子:
//          0-53,(54-79)
//          解释: 0 到 53 帧, 然后 54 到 79 帧循环播放, 无限循环, 不会结束, 也就是说不会触发 FinishCallback 事件.
//          0-53,3(54-79)
//          解释: 具体跟上一例子的差别是 54 到 79 帧循环播放 3 次后结束, 并调用 FinishCallback 回调函数.
//          10-2,13,45,60,54,2(70-0),(50-70)
//          解释: 10 到 2 帧倒序播放, 然后顺序显示 13,45,60,54 帧, 然后倒序循环播放 2 次 70 到 0 帧, 再然后无限循环播放 50 到 70 帧.
// FinishCallback: 如果播放序列没有无限循环, 则在结束播放后, 就会调用这个回调函数.

function StopFairy(): Boolean; external 'StopFairy@files:fairy.dll stdcall';
// 停止播放.

function ResumeFairy(): Boolean; external 'ResumeFairy@files:fairy.dll stdcall';
// 显示并恢复播放.

function HideFairy(): Boolean; external 'HideFairy@files:fairy.dll stdcall';
// 隐藏并停止播放.

function ShowFairy(): Boolean; external 'ShowFairy@files:fairy.dll stdcall';
// 显示精灵.

function ShowFairyEx(ImgIndex: Integer): Boolean; external 'ShowFairyEx@files:fairy.dll stdcall';
// 显示某一帧的精灵.

procedure UninitFairy(); external 'UninitFairy@files:fairy.dll stdcall';
// 解除精灵插件.

// 精灵虽然会显示在主窗口的上面, 但是并不会遮挡鼠标的操作, 即使精灵下有一个按钮, 鼠标仍然可以穿透精灵点击后面的按钮.
// 但是对于非主窗口的其他窗口, 鼠标操作并不能穿透.

引用来自 Example.iss 引用来自 Example.iss
#include "fairy.iss"

// 这是一个令到你的安装程序更加人性化的 Inno Setup 插件.

// 注释或取消注释下面的 ImgType 定义, 可以选择不同的图片类型作为精灵插件的显示.
// 具体图片处理的区别请参阅 fairy.iss 函数定义中的解释.

#define ImgType 0
//#define ImgType 1
//#define ImgType 2

[Setup]
AppName=fairy
AppVerName=fairy Ver 2.0
DefaultDirName={pf}\fairy
DefaultGroupName=fairy
OutputDir=userdocs:Inno Setup Examples Output
OutputBaseFilename=setup
SolidCompression=yes

[Files]
#if ImgType == 0
; 带 Alpha 通道的 32bit 位图 Bitmap
Source: "bmp_32bit_Alpha\*.bmp"; Flags: dontcopy
#elif ImgType == 1
; 普通位图 Bitmap
Source: "bmp\*.bmp"; Flags: dontcopy
#elif ImgType == 2
; PNG
Source: "png\*.png"; Flags: dontcopy
#endif

[code]
function GetSysColor(nIndex: Integer): DWORD; external 'GetSysColor@user32.dll stdcall';
function GetSystemMetrics(nIndex: Integer): Integer; external 'GetSystemMetrics@user32.dll stdcall';

const
  SM_CYBORDER = 6;
  SM_CYDLGFRAME = 8;

function ColorToRGB(Color: TColor): Longint;
begin
  if Color < 0 then
    Result := GetSysColor(Color and $000000FF)
  else
    Result := Color;
end;

procedure FinishPlayCallback();
begin
  MsgBox('FinishPlay', mbInformation, MB_OK);
end;

procedure PlayListCallback2(FrameCount: Integer);
begin
  AnimateFairy('0-53,2(54-79)', @FinishPlayCallback);
end;

procedure PlayListCallback(FrameCount: Integer);
begin
//  ShowFairyEx(10);
  AnimateFairy('0-53,(54-79)', nil);
end;

procedure BtnOnClick(Sender: TObject);
var
  i, BAlpha, TransparentColor: Integer;
  x, y: Integer;
  ImgFile: AnsiString;
  S: AnsiString;
  BH: Integer;
begin
  ClearImgList;
  InitFairy(WizardForm.Handle, TNewButton(Sender).Tag, 100);
  S := '';
  BH := GetSystemMetrics(SM_CYBORDER) + GetSystemMetrics(SM_CYDLGFRAME);
  if TNewButton(Sender).Caption = '4' then
  begin
    x := 180; y := -88-BH;
  end else
    case TNewButton(Sender).Tag of
    0: begin x := 80; y := -88; end;
    1: begin x := -170; y := -88; end;
    2: begin x := 80; y := -88-BH; end;
    3: begin x := -170; y := -88-BH; end;
    end;
  BAlpha := 30;
  TransparentColor := ColorToRGB(clFuchsia);
  for i := 0 to 7 do
  begin
#if ImgType == 2
    ImgFile := format('%.2d',[i+1])+'.png';
#else
    ImgFile := format('%.2d',[i+1])+'.bmp';
#endif
    if S <> '' then S := S + '|';
    S := S + IntToStr(x) + '|' + IntToStr(y) + '|' + IntToStr(BAlpha) + '|' + IntToStr(TransparentColor) + '|' + ExpandConstant('{tmp}\'+ImgFile);
    BAlpha := BAlpha + 30;
  end;                                                      
  for i := 8 to 79 do
  begin
#if ImgType == 2
    ImgFile := format('%.2d',[i+1])+'.png';
#else
    ImgFile := format('%.2d',[i+1])+'.bmp';
#endif
    if S <> '' then S := S + '|';
    S := S + IntToStr(x) + '|' + IntToStr(y) + '|' + IntToStr(255) + '|' + IntToStr(TransparentColor) + '|' + ExpandConstant('{tmp}\'+ImgFile);
  end;
  if TNewButton(Sender).Caption = '4' then
    AddImgsToList(S, @PlayListCallback2)
  else
    AddImgsToList(S, @PlayListCallback);
end;

procedure InitializeWizard();
var
  Btn: TNewButton;
  ImgFile: AnsiString;
  i: Integer;
begin
  for i := 0 to 79 do
  begin
#if ImgType == 2
    ImgFile := format('%.2d',[i+1])+'.png';
#else
    ImgFile := format('%.2d',[i+1])+'.bmp';
#endif
    ExtractTemporaryFile(ImgFile);
  end;

  WizardForm.BorderIcons := [biSystemMenu,biMinimize,biMaximize];
  WizardForm.BorderStyle := bsSizeable;
  WizardForm.WelcomeLabel2.Caption := '尝试改变窗口大小, 可以测试精灵插件对于窗口的相对位置的效果.'+#13#10
       '按钮0: 以窗口左上角做原点. 0-53,(54-79) 无限循环.'+#13#10
       '按钮1: 以窗口右上角做原点. 0-53,(54-79) 无限循环.'+#13#10
       '按钮2: 以窗口左下角做原点. 0-53,(54-79) 无限循环.'+#13#10
       '按钮3: 以窗口右下角做原点. 0-53,(54-79) 无限循环.'+#13#10
       '按钮4: 以窗口左下角做原点. 0-53,2(54-79) 循环 2 次结束.';

  with TNewButton.Create(WizardForm) do
  begin
    Parent := WizardForm.WelcomePage;
    SetBounds(ScaleX(216), ScaleY(207), ScaleX(19), ScaleY(23));
    Caption := '0';
    Tag := 0;
    OnClick := @BtnOnClick;
  end;

  Btn := TNewButton.Create(WizardForm);
  with Btn do
  begin
    Parent := WizardForm.WelcomePage;
    SetBounds(ScaleX(240), ScaleY(207), ScaleX(19), ScaleY(23));
    Caption := '1';
    Tag := 1;
    OnClick := @BtnOnClick;
  end;

  with TNewButton.Create(WizardForm) do
  begin
    Parent := WizardForm.WelcomePage;
    SetBounds(ScaleX(264), ScaleY(207), ScaleX(19), ScaleY(23));
    Caption := '2';
    Tag := 2;
    OnClick := @BtnOnClick;
  end;

  with TNewButton.Create(WizardForm) do
  begin
    Parent := WizardForm.WelcomePage;
    SetBounds(ScaleX(288), ScaleY(207), ScaleX(19), ScaleY(23));
    Caption := '3';
    Tag := 3;
    OnClick := @BtnOnClick;
  end;
  
  with TNewButton.Create(WizardForm) do
  begin
    Parent := WizardForm.WelcomePage;
    SetBounds(ScaleX(368), ScaleY(207), ScaleX(19), ScaleY(23));
    Caption := '4';
    Tag := 2;
    OnClick := @BtnOnClick;
  end;

  BtnOnClick(Btn);
end;

procedure DeinitializeSetup();
begin
  HideFairy;
  WizardForm.Hide;
  UninitFairy;
end;



下载地址：
http://restools.hanzify.org/inno/InnoFairy/InnoFairy_v2(7zip).zip
]]> http://restools.hanzify.org/default.asp?id=111 <![CDATA[Inno Setup 网页显示插件 webctrl (V2.1 版本)]]> xin http://restools.hanzify.org/ restools@21cn.com 2010-08-06T22:45:00+08:00 2010-08-06T22:45:00+08:00 Inno Setup 网页显示插件 webctrl
能够显示所有 IE 中能够显示的东西。
引用内容 引用内容
; -- Example.iss --
; restools
; http://restools.hanzify.org
; 插件名：webctrl.dll
; 插件功能：网络连接检测，创建网页页面。
; 插件大小：9 KB

; V2 增强操作函数，可以同时创建多达 256 个 Web 窗口。
; V2 例子中演示了建立一个小型浏览器以体现该版本中的函数如何使用。比起 V1 重点在于能同时创建多个 Web 窗口。
; V2.1 删除 InitWebCtrl 和 UninitWebCtrl 函数, 增加 FreeAllWebWnd. 改善某些情况下不能卸载插件的问题.

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=userdocs:Inno Setup Examples Output

[Files]
Source: "webctrl.dll"; Flags: dontcopy
Source: "file.htm"; Flags: dontcopy
Source: "wizard.htm"; Flags: dontcopy
Source: "1.gif"; Flags: dontcopy
Source: "2.gif"; Flags: dontcopy
Source: "3.gif"; Flags: dontcopy

[code]
function GetSystemMetrics(nIndex: Integer): Integer; external 'GetSystemMetrics@user32.dll stdcall';
function GetWindowLong(Wnd: HWnd; Index: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall';
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
////////////////////////////////////////////////////////////////////////////////////
// 检查网络连接是否正常
// lpszURL: 网址，如果这里设置为空网址，检测将会简单的检查网络状态，返回状态标志
// lpdwState: 状态标志，以下是标志值的解释
// 注意：当不用网址来检测网络连接时，只是检查当前是否符合网络连接的条件，但是并不等于
//       能正常连接 Internet，但是这种检测方式相当迅速，如果使用网址连接测试，如果网
//       络处于正常连接，检查速度也相当快，但是如果非正常，那么将会有一点时间延迟，因
//       为实际的连接测试有一个超时的限制来判断是否能够连接。但是这种检测方式是最直接
//       的，并能确实知道是否能够连接网络，所以你按照实际要求来选择检测方式。
//
//得到的 lpdwState 返回值可能是以下值的一个或几个值之和：
//  INTERNET_STATE_CONNECTED           ：$00000001 连接状态；
//  INTERNET_STATE_DISCONNECTED        ：$00000002 非连接状态（和 INTERNET_STATE_CONNECTED 对应）；
//  INTERNET_STATE_DISCONNECTED_BY_USER：$00000010 用户请求的非连接状态
//  INTERNET_STATE_IDLE                ：$00000100 连接状态，并且空闲
//  INTERNET_STATE_BUSY                ：$00000200 连接状态，正在响应连接请求
function CheckConnectState(lpsURL: PChar; var lpdwState: dword): boolean; external 'checkconnectstate@files:webctrl.dll stdcall';

// 创建 WEB 窗口
function NewWebWnd(hWndParent: HWND; X, Y, nWidth, nHeight: Integer): HWND; external 'newwebwnd@files:webctrl.dll stdcall';

// 释放 WEB 窗口
function FreeWebWnd(hWndWeb: HWND): Boolean; external 'freewebwnd@files:webctrl.dll stdcall';

// 释放所有 WEB 窗口, 此函数对于卸载插件很重要, 必须在结束安装之前调用才能顺利卸载插件.
function FreeAllWebWnd(): Boolean; external 'freeallwebwnd@files:webctrl.dll stdcall';

// 设置 WEB 窗口的父窗口
function WebWndSetParent(hWndWeb: HWND; hWndParent: HWND): Boolean; external 'webwndsetparent@files:webctrl.dll stdcall';

// 设置 WEB 窗口的位置大小
function WebWndSetBounds(hWndWeb: HWND; X, Y, nWidth, nHeight: Integer): Boolean; external 'webwndsetbounds@files:webctrl.dll stdcall';

// 显示 HTML 网页
function DisplayHTMLPage(hWndWeb: HWND; lpsURL: PChar): Boolean; external 'displayhtmlpage@files:webctrl.dll stdcall';  // ;

// 显示 HTML 字符串
function DisplayHTMLStr(hWndWeb: HWND; lpsHtmlText: PChar): Boolean; external 'displayhtmlstr@files:webctrl.dll stdcall';

// Web 页面 动作
function WebPageAction(hWndWeb: HWND; action: DWord): Boolean; external 'webpageaction@files:webctrl.dll stdcall';

const
  SM_CXSCREEN = 0;
  SM_CYSCREEN = 1;
  
  WS_EX_CLIENTEDGE = $200;
  GWL_EXSTYLE = -20;

  WEBPAGE_GOBACK = 0;
  WEBPAGE_GOFORWARD = 1;
  WEBPAGE_GOHOME = 2;
  WEBPAGE_SEARCH = 3;
  WEBPAGE_REFRESH = 4;
  WEBPAGE_STOP = 5;
var
  UrlPage, HtmlPage, HtmlTextPage: TWizardPage;
  WebHWND1, WebHWND2, WebHWND3, WebHWND4: HWND;
  WebHWND_Browser: HWND;
  Form_Browser: TForm;
  AddrEdit: TNewEdit;
  GoBtn: TNewButton;

function InitializeSetup(): Boolean;
begin
  WebHWND1 := 0;
  WebHWND2 := 0;
  WebHWND3 := 0;
  WebHWND4 := 0;
  Result := True;
end;

procedure DeinitializeSetup();
begin
  WizardForm.Hide;
  FreeAllWebWnd;
end;

procedure GoBackBtnOnClick(Sender: TObject);
begin
  WebPageAction(WebHWND_Browser, WEBPAGE_GOBACK);
end;

procedure GoForwardBtnOnClick(Sender: TObject);
begin
  WebPageAction(WebHWND_Browser, WEBPAGE_GOFORWARD);
end;

procedure StopBtnOnClick(Sender: TObject);
begin
  WebPageAction(WebHWND_Browser, WEBPAGE_STOP);
end;

procedure RefreshBtnOnClick(Sender: TObject);
begin
  WebPageAction(WebHWND_Browser, WEBPAGE_REFRESH);
end;

procedure HomeBtnOnClick(Sender: TObject);
begin
  WebPageAction(WebHWND_Browser, WEBPAGE_GOHOME);
end;

procedure GoBtnOnClick(Sender: TObject);
begin
  DisplayHTMLPage(WebHWND_Browser, AddrEdit.Text);
end;

procedure BrowserFormResize(Sender: TObject);
var
  W: Integer;
begin
  WebWndSetBounds(WebHWND_Browser, 0, ScaleY(35), Form_Browser.ClientWidth,
         Form_Browser.ClientHeight - ScaleY(35));
  W := Form_Browser.Width - ScaleX(285);
  if W <= 0 then W := 1;
  AddrEdit.Width := W;
  GoBtn.SetBounds(AddrEdit.Left + AddrEdit.Width + ScaleX(2), ScaleY(5), ScaleX(30),
       WizardForm.CancelButton.Height);
end;

procedure EditKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    DisplayHTMLPage(WebHWND_Browser, AddrEdit.Text);
end;

procedure WizardBtnOnClick(Sender: TObject);
var
  ScreenWidth, ScreenHeight: Integer;
  Btn: TNewButton;
begin
  Form_Browser := TForm.Create(WizardForm);
  try
    Form_Browser.Caption := 'ThinBrowser';
    Form_Browser.BorderIcons := [biSystemMenu, biMaximize];
    ScreenWidth := GetSystemMetrics(SM_CXSCREEN);
    ScreenHeight := GetSystemMetrics(SM_CYSCREEN);
    Form_Browser.SetBounds((ScreenWidth - ScaleX(600)) div 2, (ScreenHeight - ScaleY(400)) div 2,
         ScaleX(600), ScaleY(400));
    WebHWND_Browser := NewWebWnd(Form_Browser.Handle, 0, 0, Form_Browser.ClientWidth,
         Form_Browser.ClientHeight);
    SetWindowLong(Form_Browser.Handle, GWL_EXSTYLE, GetWindowLong(
         WebHWND_Browser, GWL_EXSTYLE) or WS_EX_CLIENTEDGE);

    Btn := TNewButton.Create(Form_Browser);
    Btn.SetBounds(ScaleX(5), ScaleY(5), ScaleX(40), WizardForm.CancelButton.Height);
    Btn.Caption := '&Back';
    Btn.OnClick := @GoBackBtnOnClick;
    Btn.Parent := Form_Browser;
    
    Btn := TNewButton.Create(Form_Browser);
    Btn.SetBounds(ScaleX(47), ScaleY(5), ScaleX(55), WizardForm.CancelButton.Height);
    Btn.Caption := '&Forward';
    Btn.OnClick := @GoForwardBtnOnClick;
    Btn.Parent := Form_Browser;
    
    Btn := TNewButton.Create(Form_Browser);
    Btn.SetBounds(ScaleX(104), ScaleY(5), ScaleX(40), WizardForm.CancelButton.Height);
    Btn.Caption := '&Stop';
    Btn.OnClick := @StopBtnOnClick;
    Btn.Parent := Form_Browser;

    Btn := TNewButton.Create(Form_Browser);
    Btn.SetBounds(ScaleX(146), ScaleY(5), ScaleX(50), WizardForm.CancelButton.Height);
    Btn.Caption := '&Refresh';
    Btn.OnClick := @RefreshBtnOnClick;
    Btn.Parent := Form_Browser;

    Btn := TNewButton.Create(Form_Browser);
    Btn.SetBounds(ScaleX(198), ScaleY(5), ScaleX(40), WizardForm.CancelButton.Height);
    Btn.Caption := '&Home';
    Btn.OnClick := @HomeBtnOnClick;
    Btn.Parent := Form_Browser;

    AddrEdit := TNewEdit.Create(Form_Browser);
    AddrEdit.Left := ScaleX(240);
    AddrEdit.Top := ScaleY(6);
    AddrEdit.Parent := Form_Browser;
    AddrEdit.Text := 'about:blank';
    AddrEdit.OnKeyPress := @EditKeyPress;

    GoBtn := TNewButton.Create(Form_Browser);
    GoBtn.Caption := '&Go';
    GoBtn.OnClick := @GoBtnOnClick;
    GoBtn.Parent := Form_Browser;

    BrowserFormResize(Form_Browser);
    Form_Browser.OnResize := @BrowserFormResize;
    Form_Browser.ActiveControl := AddrEdit;
    Form_Browser.ShowModal();
    FreeWebWnd(WebHWND_Browser);
  finally
    Form_Browser.Free();
  end;
end;

procedure InitializeWizard();
var
  State: DWord;
  s: string;
  BrowserBtn: TNewButton;
begin
  State := 0;
  s := '';
// 如果需要进行网址连接测试，取消下面代码的注释
//  s := 'http://www.google.cn';

  if CheckConnectState(s, State) then
    MsgBox('网络已经连接。', mbInformation, MB_OK)
  else
    MsgBox('网络未连接。', mbCriticalError, MB_OK);
  MsgBox(inttostr(State), mbInformation, MB_OK);

  ExtractTemporaryFile('wizard.htm');
  ExtractTemporaryFile('file.htm');
  ExtractTemporaryFile('1.gif');
  ExtractTemporaryFile('2.gif');
  ExtractTemporaryFile('3.gif');
  
  WebHWND1 := NewWebWnd(WizardForm.WelcomePage.Handle, 0, 0, WizardForm.WizardBitmapImage.Width, WizardForm.WelcomePage.Height);
  DisplayHTMLPage(WebHWND1, ExpandConstant('{tmp}\wizard.htm'));

  UrlPage := CreateCustomPage(wpWelcome, '测试 Web 页面', '网址: http://www.google.cn');

  HtmlPage := CreateCustomPage(UrlPage.ID, '测试 HTML文件 页面', '文件: file.htm');

  HtmlTextPage := CreateCustomPage(HtmlPage.ID, '测试 HTML文本 页面', '临时自定义 HTML 字符串');

  BrowserBtn := TNewButton.Create(WizardForm);
  BrowserBtn.Left := WizardForm.ClientWidth - WizardForm.CancelButton.Left - WizardForm.CancelButton.Width;
  BrowserBtn.Top := WizardForm.CancelButton.Top;
  BrowserBtn.Width := WizardForm.CancelButton.Width;
  BrowserBtn.Height := WizardForm.CancelButton.Height;
  BrowserBtn.Caption := '&Browser...';
  BrowserBtn.OnClick := @WizardBtnOnClick;
  BrowserBtn.Parent := WizardForm;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpWelcome then
    WebWndSetParent(WebHWND1, WizardForm.WelcomePage.Handle)
  else
  if CurPageID = wpFinished then
    WebWndSetParent(WebHWND1, WizardForm.FinishedPage.Handle)
  else
  if (CurPageID = UrlPage.ID) and (WebHWND2 = 0) then
  begin
    WebHWND2 := NewWebWnd(UrlPage.Surface.Handle, 0, 0, UrlPage.Surface.Width, UrlPage.Surface.Height);
    DisplayHTMLPage(WebHWND2, 'http://www.google.cn')
  end else
  if (CurPageID = HtmlPage.ID) and (WebHWND3 = 0) then
  begin
    WebHWND3 := NewWebWnd(HtmlPage.Surface.Handle, 0, 0, HtmlPage.Surface.Width, HtmlPage.Surface.Height);
    DisplayHTMLPage(WebHWND3, ExpandConstant('{tmp}\file.htm'));
  end
  else
  if (CurPageID = HtmlTextPage.ID) and (WebHWND4 = 0) then
  begin
    WebHWND4 := NewWebWnd(HtmlTextPage.Surface.Handle, 0, 0, HtmlTextPage.Surface.Width, HtmlTextPage.Surface.Height);
    DisplayHTMLStr(WebHWND4, '<b>I''m a <u>HTML text</u></b>');
  end;
end;

附图：


下载地址：
http://restools.hanzify.org/inno/webctrl/inno_webctrl_v2.1.zip
]]> http://restools.hanzify.org/default.asp?id=90 <![CDATA[ISSkinEx 3.0.0.2 for InnoSetup and NSIS (修改版本)]]> xin http://restools.hanzify.org/ restools@21cn.com 2010-06-30T22:30:37+08:00 2010-06-30T22:30:37+08:00 .VER 3.0.0.2 修正前一版本在某些情况下不能正常运行的问题。

同一插件, 同时支持 Inno Setup 和 NSIS 的脚本调用方式. 安装包中已经包含了相对应的 Inno Setup 和 NSIS 的脚本例子.
这是一个修改版本的 ISSkin,主要针对增强版本的 Inno Setup 而修改的,增加对新增控件的支持,包括以下在扩展版本的 Inno Setup 中能够使用的控件:TButton, TEdit, TMemo, TNewProgressBar, TRichEditViewer, TRadioButton, TCheckBox, TComboBox, TNewGroupBox, TScrollBar, TNewProgressBar, TTrackBar, TTabControl, TTreeView, TListView, TListBox, TNewButton, TNewEdit, TNewMemo, TNewRadioButton, TNewCheckBox, TNewComboBox, TNewListBox, TNewCheckListBox, TFolderTreeView, TStartMenuFolderTreeView, THeaderControl, TUpDown, TStatusBar, TPasswordEdit, THotKey, TIPAddressEdit, TNewDateTimePicker, TNewMonthCalendar,TPageControl .


for NSIS 截图:


下载地址:
http://restools.hanzify.org/inno/ISSkinEx/ISSkinEx3.0.0.2_for_InnoSetup_and_NSIS.exe]]> http://restools.hanzify.org/default.asp?id=110 <![CDATA[ISSkin 使用技巧,WinXP 下的窗口阴影]]> xin http://restools.hanzify.org/ restools@21cn.com 2010-06-17T21:30:02+08:00 2010-06-17T21:30:02+08:00

作为 Vista 以上的 Windows 版本,我们都能够看见窗口的阴影,但是在 WinXP 里面却看不见,但是我们能看见的只有 Windows 提示的阴影.所以以下就是使用了 WinXP 的提示阴影效果,达至看上去窗口有一些立体的感觉.


脚本:
下载地址:
http://restools.hanzify.org/inno/ISSkinSakura/ISSkinSakura.zip

引用来自 ISSkinSakura.iss 引用来自 ISSkinSakura.iss
; 脚本编写: restools
; 我的 BLOG: http://restools.hanzify.org

[Setup]
AppName=ISSkin Example
AppVersion=1.0
DefaultDirName={pf}\ISSkin
SolidCompression=true
WizardImageFile=SakuraWizard.bmp
WizardSmallImageFile=SakuraSmall.bmp
OutputDir=.
OutputBaseFilename=ISSkinSakura

[Files]
; Add the ISSkin DLL used for skinning Inno Setup installations.
Source: ISSkin.dll; DestDir: {app}; Flags: dontcopy

; Add the Visual Style resource contains resources used for skinning,
; you can also use Microsoft Visual Styles (*.msstyles) resources.
Source: Sakura.cjstyles; DestDir: {tmp}; Flags: dontcopy

[Code]
// Importing LoadSkin API from ISSkin.DLL
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall';

// Importing UnloadSkin API from ISSkin.DLL
procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';

// Importing ShowWindow Windows API from User32.DLL
function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external 'ShowWindow@user32.dll stdcall';

function GetClassLong(Wnd: HWnd; Index: Integer): Longint;
external 'GetClassLongA@user32.dll stdcall';
function SetClassLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint;
external 'SetClassLongA@user32.dll stdcall';

function InitializeSetup(): Boolean;
begin
  ExtractTemporaryFile('Sakura.cjstyles');
  LoadSkin(ExpandConstant('{tmp}\Sakura.cjstyles'), '');
  Result := True;
end;

procedure DeinitializeSetup();
begin
  // Hide Window before unloading skin so user does not get
  // a glimse of an unskinned window before it is closed.
  ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
  UnloadSkin();
end;

function CheckWin32Version(AMajor: Integer; AMinor: Integer): Boolean;
var
  WinVer: TWindowsVersion;
begin
  GetWindowsVersionEx(WinVer);
  Result := (WinVer.Major > AMajor) or
            ((WinVer.Major = AMajor) and
             (WinVer.Minor >= AMinor));
end;

procedure InitializeWizard();
begin
  WizardForm.WizardBitmapImage.Height := WizardForm.WelcomePage.Height;
  if CheckWin32Version(5, 1) and (not CheckWin32Version(6, 0)) then
    SetClassLong(WizardForm.Handle, -26, GetClassLong(WizardForm.Handle, -26) + $20000);
end;

]]> http://restools.hanzify.org/default.asp?id=109 <![CDATA[ISSkin Pack 3.0 (含预览程序 ISSkinViewer)]]> xin http://restools.hanzify.org/ restools@21cn.com 2010-06-17T00:58:10+08:00 2010-06-17T00:58:10+08:00 Inno Setup 脚本写成. 足以展示 Inno Setup 脚本引擎的强大.

下载地址:
http://restools.hanzify.org/inno/ISSkinPack/ISSkinPack.exe

预览程序:


引用来自 ISSkinViewer.iss 引用来自 ISSkinViewer.iss
#ifndef IS_ENHANCED
  #error Enhanced edition of Inno Setup (restools) is required to compile this script
#endif

[Setup]
AppName=ISSkinViewer
AppVersion=1.0
SetupIconFile=IViewer.ico
DefaultDirName={pf}\ISSkinViewer
OutputBaseFilename=ISSkinViewer
OutputDir=.

[Files]
Source: ISSkin.dll; DestDir: {app}; Flags: dontcopy

[Code]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall';
procedure UnloadSkin(); external 'UnloadSkin@files:isskin.dll stdcall';
function ShowWindow(hWnd: Integer; uType: Integer): Integer; external 'ShowWindow@user32.dll stdcall';
function LoadLibrary(lpLibFileName: String): THandle; external 'LoadLibraryA@kernel32.dll stdcall';
function FreeLibrary(hLibModule: THandle): Boolean; external 'FreeLibrary@kernel32.dll stdcall';
function EnumResourceNames(hModule: THandle; lpType: String; lpEnumFunc: Longword; lParam: Longint): BOOL; external 'EnumResourceNamesA@kernel32.dll stdcall';
function SetWindowText(hWnd: Longint; lpString: PChar): Longint; external 'SetWindowTextA@user32.dll';
function GetWindowLong(hWnd, nIndex: Integer): Longint; external 'GetWindowLongA@user32.dll';

procedure DeinitializeSetup();
begin
  ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
  UnloadSkin();
end;

var
  SkinFilePath: String;

procedure BrowserBtn_OnClick(Sender: TObject); forward;

procedure ISSkinFileCombo_OnChange(Sender: TObject); forward;

procedure ISSkinIniCombo_OnChange(Sender: TObject); forward;

procedure BlogBtn_OnClick(Sender: TObject);
var
  Res: Integer;
begin
  ShellExec('open', 'http://restools.hanzify.org','','', SW_SHOW, ewNoWait, Res);
end;

{ RedesignWizardFormBegin } // 不要删除这一行代码。
// 不要修改这一段代码，它是自动生成的。
var
  Panel1: TPanel;
  Label1: TLabel;
  Label2: TLabel;
  Bevel2: TBevel;
  Label3: TLabel;
  BitmapImage1: TBitmapImage;
  Label4: TLabel;
  ISSkinFileCombo: TNewComboBox;
  ISSkinIniCombo: TNewComboBox;
  NewEdit1: TNewEdit;
  NewMemo1: TNewMemo;
  NewCheckBox1: TNewCheckBox;
  NewRadioButton1: TNewRadioButton;
  NewListBox1: TNewListBox;
  Panel2: TPanel;
  PasswordEdit1: TPasswordEdit;
  NewCheckListBox1: TNewCheckListBox;
  NewStaticText1: TNewStaticText;
  FolderTreeView1: TFolderTreeView;
  RichEditViewer1: TRichEditViewer;
  NewProgressBar1: TNewProgressBar;
  NewComboBox1: TNewComboBox;
  StartMenuFolderTreeView1: TStartMenuFolderTreeView;
  BrowserBtn: TNewButton;
  BlogBtn: TNewButton;

procedure RedesignWizardForm;
begin
  with WizardForm do
  begin
    Caption := 'ISSKIN 皮肤预览程序 Ver1.0';
    ShowHint := True;
  end;

  { Panel1 }
  Panel1 := TPanel.Create(WizardForm);
  with Panel1 do
  begin
    Name := 'Panel1';
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(497);
    Height := ScaleY(313);
    BevelOuter := bvNone;
    Caption := ' ';
    ParentBackground := False;
  end;

  { Label1 }
  Label1 := TLabel.Create(WizardForm);
  with Label1 do
  begin
    Name := 'Label1';
    Parent := Panel1;
    Caption := '皮肤文件:';
    Transparent := False;
    Left := ScaleX(16);
    Top := ScaleY(8);
    Width := ScaleX(51);
    Height := ScaleY(13);
  end;

  { Label2 }
  Label2 := TLabel.Create(WizardForm);
  with Label2 do
  begin
    Name := 'Label2';
    Parent := Panel1;
    Caption := '皮肤 INI 参数:';
    Transparent := False;
    Left := ScaleX(288);
    Top := ScaleY(8);
    Width := ScaleX(71);
    Height := ScaleY(13);
  end;

  { Bevel2 }
  Bevel2 := TBevel.Create(WizardForm);
  with Bevel2 do
  begin
    Name := 'Bevel2';
    Parent := Panel1;
    Left := ScaleX(7);
    Top := ScaleY(72);
    Width := ScaleX(482);
    Height := ScaleY(229);
  end;

  { Label3 }
  Label3 := TLabel.Create(WizardForm);
  with Label3 do
  begin
    Name := 'Label3';
    Parent := Panel1;
    Caption := 'Inno Setup 支持的控件:';
    Transparent := False;
    Left := ScaleX(16);
    Top := ScaleY(53);
    Width := ScaleX(118);
    Height := ScaleY(13);
  end;

  { BitmapImage1 }
  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Name := 'BitmapImage1';
    Parent := Panel1;
    Left := ScaleX(288);
    Top := ScaleY(80);
    Width := ScaleX(185);
    Height := ScaleY(29);
  end;

  { Label4 }
  Label4 := TLabel.Create(WizardForm);
  with Label4 do
  begin
    Name := 'Label4';
    Parent := Panel1;
    Hint := 'TLabel';
    Caption := 'Label4';
    Transparent := False;
    Left := ScaleX(144);
    Top := ScaleY(80);
    Width := ScaleX(32);
    Height := ScaleY(13);
  end;

  { ISSkinFileCombo }
  ISSkinFileCombo := TNewComboBox.Create(WizardForm);
  with ISSkinFileCombo do
  begin
    Name := 'ISSkinFileCombo';
    Parent := Panel1;
    Left := ScaleX(16);
    Top := ScaleY(24);
    Width := ScaleX(229);
    Height := ScaleY(21);
    Style := csDropDownList;
    DropDownCount := 16;
  end;

  { ISSkinIniCombo }
  ISSkinIniCombo := TNewComboBox.Create(WizardForm);
  with ISSkinIniCombo do
  begin
    Name := 'ISSkinIniCombo';
    Parent := Panel1;
    Left := ScaleX(288);
    Top := ScaleY(24);
    Width := ScaleX(193);
    Height := ScaleY(21);
    Style := csDropDownList;
  end;

  { NewEdit1 }
  NewEdit1 := TNewEdit.Create(WizardForm);
  with NewEdit1 do
  begin
    Name := 'NewEdit1';
    Parent := Panel1;
    Left := ScaleX(16);
    Top := ScaleY(104);
    Width := ScaleX(105);
    Height := ScaleY(21);
    Hint := 'TNewEdit';
    Text := 'NewEdit1';
  end;

  { NewMemo1 }
  NewMemo1 := TNewMemo.Create(WizardForm);
  with NewMemo1 do
  begin
    Name := 'NewMemo1';
    Parent := Panel1;
    Left := ScaleX(16);
    Top := ScaleY(128);
    Width := ScaleX(105);
    Height := ScaleY(89);
    Hint := 'TNewMemo';
    Lines.Text := 'NewMemo1' + #13#10 +
         'Line 2' + #13#10 +
         'Line 3' + #13#10 +
         'Line 4' + #13#10 +
         'Line 5' + #13#10 +
         'Line 6' + #13#10 +
         'Line 7' + #13#10 +
         'Line 8' + #13#10 +
         'Line 9' + #13#10 +
         'Line 10' + #13#10 +
         'Line 11' + #13#10 +
         'Line 12' + #13#10 +
         'Line 13' + #13#10 +
         '';
    ScrollBars := ssBoth;
  end;

  { NewCheckBox1 }
  NewCheckBox1 := TNewCheckBox.Create(WizardForm);
  with NewCheckBox1 do
  begin
    Name := 'NewCheckBox1';
    Parent := Panel1;
    Left := ScaleX(16);
    Top := ScaleY(248);
    Width := ScaleX(97);
    Height := ScaleY(17);
    Hint := 'TNewCheckBox';
    Caption := 'NewCheckBox1';
  end;

  { NewRadioButton1 }
  NewRadioButton1 := TNewRadioButton.Create(WizardForm);
  with NewRadioButton1 do
  begin
    Name := 'NewRadioButton1';
    Parent := Panel1;
    Left := ScaleX(16);
    Top := ScaleY(272);
    Width := ScaleX(113);
    Height := ScaleY(17);
    Hint := 'TNewRadioButton';
    Caption := 'NewRadioButton1';
  end;

  { NewListBox1 }
  NewListBox1 := TNewListBox.Create(WizardForm);
  with NewListBox1 do
  begin
    Name := 'NewListBox1';
    Parent := Panel1;
    Left := ScaleX(127);
    Top := ScaleY(120);
    Width := ScaleX(85);
    Height := ScaleY(81);
    Hint := 'TNewListBox';
    Items.Text := 'Line 2' + #13#10 +
         'Line 3' + #13#10 +
         'Line 4' + #13#10 +
         'Line 5' + #13#10 +
         'Line 6' + #13#10 +
         'Line 7' + #13#10 +
         'Line 8' + #13#10 +
         'Line 9' + #13#10 +
         'Line 10' + #13#10 +
         'Line 11' + #13#10 +
         'Line 12' + #13#10 +
         'Line 13';
    ItemIndex := -1;
  end;

  { Panel2 }
  Panel2 := TPanel.Create(WizardForm);
  with Panel2 do
  begin
    Name := 'Panel2';
    Parent := Panel1;
    Left := ScaleX(127);
    Top := ScaleY(224);
    Width := ScaleX(85);
    Height := ScaleY(41);
    Hint := 'TPanel';
    Caption := 'Panel2';
  end;

  { PasswordEdit1 }
  PasswordEdit1 := TPasswordEdit.Create(WizardForm);
  with PasswordEdit1 do
  begin
    Name := 'PasswordEdit1';
    Parent := Panel1;
    Left := ScaleX(127);
    Top := ScaleY(272);
    Width := ScaleX(85);
    Height := ScaleY(21);
    Hint := 'TPasswordEdit';
    Text := 'PasswordEdit1';
  end;

  { NewCheckListBox1 }
  NewCheckListBox1 := TNewCheckListBox.Create(WizardForm);
  with NewCheckListBox1 do
  begin
    Name := 'NewCheckListBox1';
    Parent := Panel1;
    Left := ScaleX(224);
    Top := ScaleY(120);
    Width := ScaleX(145);
    Height := ScaleY(81);
    Hint := 'TNewCheckListBox';
  end;

  { NewStaticText1 }
  NewStaticText1 := TNewStaticText.Create(WizardForm);
  with NewStaticText1 do
  begin
    Name := 'NewStaticText1';
    Parent := Panel1;
    Hint := 'TNewStaticText';
    Caption := 'NewStaticText1';
    Left := ScaleX(144);
    Top := ScaleY(95);
    Width := ScaleX(77);
    Height := ScaleY(14);
  end;

  { FolderTreeView1 }
  FolderTreeView1 := TFolderTreeView.Create(WizardForm);
  with FolderTreeView1 do
  begin
    Name := 'FolderTreeView1';
    Parent := Panel1;
    Left := ScaleX(224);
    Top := ScaleY(204);
    Width := ScaleX(145);
    Height := ScaleY(89);
    Cursor := crArrow;
    Hint := 'TFolderTreeView';
  end;

  { RichEditViewer1 }
  RichEditViewer1 := TRichEditViewer.Create(WizardForm);
  with RichEditViewer1 do
  begin
    Name := 'RichEditViewer1';
    Parent := Panel1;
    Left := ScaleX(376);
    Top := ScaleY(120);
    Width := ScaleX(105);
    Height := ScaleY(81);
    Hint := 'TRichEditViewer';
  end;

  { NewProgressBar1 }
  NewProgressBar1 := TNewProgressBar.Create(WizardForm);
  with NewProgressBar1 do
  begin
    Name := 'NewProgressBar1';
    Parent := Panel1;
    Left := ScaleX(16);
    Top := ScaleY(224);
    Width := ScaleX(105);
    Height := ScaleY(17);
    Hint := 'TNewProgressBar';
    Min := 0;
    Max := 100;
    Position := 70;
  end;

  { NewComboBox1 }
  NewComboBox1 := TNewComboBox.Create(WizardForm);
  with NewComboBox1 do
  begin
    Name := 'NewComboBox1';
    Parent := Panel1;
    Left := ScaleX(16);
    Top := ScaleY(80);
    Width := ScaleX(105);
    Height := ScaleY(21);
    Hint := 'TNewComboBox';
    Items.Text := 'Line 2' + #13#10 +
         'Line 3' + #13#10 +
         'Line 4' + #13#10 +
         'Line 5' + #13#10 +
         'Line 6' + #13#10 +
         'Line 7' + #13#10 +
         'Line 8' + #13#10 +
         'Line 9' + #13#10 +
         'Line 10' + #13#10 +
         'Line 11' + #13#10 +
         'Line 12' + #13#10 +
         'Line 13';
  end;

  { StartMenuFolderTreeView1 }
  StartMenuFolderTreeView1 := TStartMenuFolderTreeView.Create(WizardForm);
  with StartMenuFolderTreeView1 do
  begin
    Name := 'StartMenuFolderTreeView1';
    Parent := Panel1;
    Left := ScaleX(376);
    Top := ScaleY(204);
    Width := ScaleX(105);
    Height := ScaleY(89);
    Cursor := crArrow;
    Hint := 'TStartMenuFolderTreeView';
  end;

  { BrowserBtn }
  BrowserBtn := TNewButton.Create(WizardForm);
  with BrowserBtn do
  begin
    Name := 'BrowserBtn';
    Parent := Panel1;
    Left := ScaleX(248);
    Top := ScaleY(22);
    Width := ScaleX(35);
    Height := ScaleY(25);
    Caption := '目录';
  end;

  ISSkinFileCombo.TabOrder := 0;
  ISSkinIniCombo.TabOrder := 1;
  NewEdit1.TabOrder := 2;
  NewMemo1.TabOrder := 3;
  NewCheckBox1.TabOrder := 4;
  NewRadioButton1.TabOrder := 5;
  NewListBox1.TabOrder := 6;
  Panel2.TabOrder := 7;
  PasswordEdit1.TabOrder := 8;
  NewCheckListBox1.TabOrder := 9;
  NewStaticText1.TabOrder := 10;
  FolderTreeView1.TabOrder := 11;
  RichEditViewer1.TabOrder := 12;
  NewProgressBar1.TabOrder := 13;
  NewComboBox1.TabOrder := 14;
  StartMenuFolderTreeView1.TabOrder := 15;
  BrowserBtn.TabOrder := 16;

  Panel1.TabOrder := 2;

  { BlogBtn }
  BlogBtn := TNewButton.Create(WizardForm);
  with BlogBtn do
  begin
    Name := 'BlogBtn';
    Parent := WizardForm;
    Left := ScaleX(20);
    Top := ScaleY(327);
    Width := ScaleX(107);
    Height := ScaleY(23);
    Hint := '访问我的 BLOG';
    Caption := 'RESTOOLS'' BLOG';
  end;

  BlogBtn.TabOrder := 5;

{ ReservationBegin }
  // 这一部分是提供给你的，你可以在这里输入一些补充代码。
  NewCheckListBox1.AddCheckBox('TNewCheckListBox', '', 0, True, True, False, True, nil);
  NewCheckListBox1.AddRadioButton('TNewCheckListBox', '', 1, True, True, nil);
  NewCheckListBox1.AddRadioButton('TNewCheckListBox', '', 1, False, True, nil);
  NewCheckListBox1.AddCheckBox('TNewCheckListBox', '', 0, True, True, False, True, nil);
  BrowserBtn.OnClick := @BrowserBtn_OnClick;
  ISSkinFileCombo.OnChange := @ISSkinFileCombo_OnChange;
  ISSkinIniCombo.OnChange := @ISSkinIniCombo_OnChange;
  BlogBtn.OnClick := @BlogBtn_OnClick;
{ ReservationEnd }
end;
// 不要修改这一段代码，它是自动生成的。
{ RedesignWizardFormEnd } // 不要删除这一行代码。

function EnumResName(hModule: THandle; lpType, lpName: String; lParam: Longint): Boolean;
begin
  ISSkinIniCombo.Items.Append(lpName);
  Result := True;
end;

procedure ISSkinIniCombo_OnChange(Sender: TObject);
var
  SkinFile, SkinIni: String;
begin
  try
    SkinFile := '';
    SkinIni := '';
    if ISSkinFileCombo.Items[ISSkinFileCombo.ItemIndex] <> '' then
      SkinFile := SkinFilePath+'\'+ISSkinFileCombo.Items[ISSkinFileCombo.ItemIndex];
    if ISSkinIniCombo.Items[ISSkinIniCombo.ItemIndex] <> '' then
      SkinIni := ISSkinIniCombo.Items[ISSkinIniCombo.ItemIndex];

    LoadSkin(SkinFile, SkinIni);
  except
  end;
end;

procedure ISSkinFileCombo_OnChange(Sender: TObject);
var
  hSkin: THandle;
  i, DelIndex: Integer;
  S, SkinFile, SkinIni: String;
begin
  try
    hSkin:=LoadLibrary(SkinFilePath+'\'+ISSkinFileCombo.Items[ISSkinFileCombo.ItemIndex]);
    try
      ISSkinIniCombo.Items.Clear;

      EnumResourceNames(hSkin, 'TEXTFILE', CallbackAddr('EnumResName'), 0);

      DelIndex := -1;
      for i := 0 to ISSkinIniCombo.Items.Count - 1 do
      begin
        S := ISSkinIniCombo.Items[i];
        if CompareText(S, 'THEMES_INI')=0 then
          DelIndex := i;
        StringChange(S, '_', '.');
        ISSkinIniCombo.Items[i] := S;
      end;

      if DelIndex >= 0 then
        ISSkinIniCombo.Items.Delete(DelIndex);

      if ISSkinIniCombo.Items.Count >= 0 then
        ISSkinIniCombo.ItemIndex := ISSkinIniCombo.Items.Count - 1;
    finally
      FreeLibrary(hSkin);
    end;

    SkinFile := '';
    SkinIni := '';
    if ISSkinFileCombo.Items[ISSkinFileCombo.ItemIndex] <> '' then
      SkinFile := SkinFilePath+'\'+ISSkinFileCombo.Items[ISSkinFileCombo.ItemIndex];
    if ISSkinIniCombo.Items[ISSkinIniCombo.ItemIndex] <> '' then
      SkinIni := ISSkinIniCombo.Items[ISSkinIniCombo.ItemIndex];

    LoadSkin(SkinFile, SkinIni);
  except
  end;
end;

procedure FindSkinFile();
var
  FindRec: TFindRec;
begin
  ISSkinFileCombo.Items.Clear;
  if FindFirst(SkinFilePath+'\*.cjstyles', FindRec) then begin
    try
      repeat
        if FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
          ISSkinFileCombo.Items.Append(FindRec.Name);
      until not FindNext(FindRec);
    finally
      FindClose(FindRec);
    end;
  end;
end;

procedure BrowserBtn_OnClick(Sender: TObject);
begin
  if BrowseForFolder('请选择 ISSkin 皮肤所在路径:', SkinFilePath, False) then
  begin
    FindSkinFile();
    UnloadSkin;
  end;
end;

function InitializeSetup(): Boolean;
begin
  if SkinFilePath='' then
    SkinFilePath := ExtractFileDir(ExpandConstant('{srcexe}'))+'\Styles';
  LoadSkin('', '');
  Result := True;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
  FindSkinFile();
  ISSkinFileCombo.Sorted := True;
end;

Procedure SetAppTitle(Value: String);
var
  n: HWND;
begin
  n:=GetWindowLong(MainForm.Handle, -8);
  if n <> 0 then SetWindowText(n, PChar(Value));
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  WizardForm.NextButton.Hide;
  WizardForm.CancelButton.Caption := '关闭';
  SetAppTitle('ISSKIN 皮肤预览程序');
end;


]]> http://restools.hanzify.org/default.asp?id=108 <![CDATA[Inno Setup 插件 CallbackCtrl V1.1 (回调函数插件)]]> xin http://restools.hanzify.org/ restools@21cn.com 2010-02-27T13:30:57+08:00 2010-02-27T13:30:57+08:00 用 VC 重现 InnoCallback 的功能。

Version 1.1
修正在某些 Windows 平台(例如: Windows XP SP3)出现不能正常运行的问题。

引用来自 test1.iss 引用来自 test1.iss
; -- test.iss --
; restools
; http://restools.hanzify.org
; 时间仓促，如有错误请到我的 BLOG 咨询
; CallbackCtrl.dll 为一个用于 Inno Setup 的 4 KB 的回调( Callback )函数插件。
; 跟 InnoCallback 插件功能完全一样，但是由于它是用 VC 重现功能，所以仅仅只有 4 KB 就足以完成回调函数的处理。
; 同样的功能，将会在后续的 Inno Setup 增强版中直接提供回调函数的支持，
; 也就是说无须任何插件就可以在脚本中处理回调函数。
; 这个插件只是提供给那些使用普通版本 Inno Setup 的用户使用。

; Inno Setup plugin - CallbackCtrl ( 4 KB )
; Copyright (C) restools 2009
; Version 1.1

[Setup]
AppName=My Application
AppVerName=My Application Ver 1.5
DefaultDirName={pf}\My Application
SolidCompression=yes
Compression=lzma/ultra  

[Files]
Source: CallbackCtrl.dll; DestDir: {tmp}; Flags: dontcopy

[code]
type
TTimerProc=procedure(h:longword; msg:longword; idevent:longword; dwTime:longword);

function WrapTimerProc(callback:TTimerProc; paramcount:integer):longword;
  external 'wrapcallbackaddr@files:callbackctrl.dll stdcall';

function SetTimer(hWnd: longword; nIDEvent, uElapse: longword; lpTimerFunc: longword): longword;
  external 'SetTimer@user32.dll stdcall';

procedure mytimerproc(h:longword; msg:longword; idevent:longword; dwTime:longword);
begin
  WizardForm.WelcomePage.Color:=random($FFFFFF);
end;

procedure InitializeWizard();
var
  timercallback: Longword;
begin
  timercallback := WrapTimerProc(@mytimerproc,4);
  settimer(0,0,1000,timercallback);
end;



点击下面连接下载例子。
http://restools.hanzify.org/inno/callbackctrl/InnoCallbackCtrl_V1.1.zip]]> http://restools.hanzify.org/default.asp?id=101