Inno Setup 精灵显示插件 InnoFairy (V2.0 版本)

一个如影随形的小精灵会令到你的安装程序更加人性化. 就是这样一个功能的 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



评论: 6 | 引用: 0 | 查看次数: 18680
  • 1
xin [2012-07-25 09:51 PM]
论坛已回复.
冰水热咖啡 [2012-07-13 08:25 PM]
restools大哥!有的人说您的这个插件Example_jpg例子不能实现背景图全屏,说没有图片大小声明所以无法实现全屏,请问这是真的吗?一直都想学nsis那样有个背景图全屏显示(不遮盖任务栏的),用增强版无需插件的那个图片轮播例子可以全屏但是遮盖了任务栏而且用在ANSI版编译器下就出现问题(比如安装默认目录不显示,标题栏安装...不显示),精灵插件的Example_jpg例子很好很喜欢而且可以调整透明度,如果不能全屏就太可惜了,向您问了这么多次问题真不好意思了!只想知道怎么解决Example_jpg全屏(不遮盖任务栏问题)或是不能修改这样我好死心!我没有学过编程语言知道您不会免费写一大段代码给我,只希望您指点下要添加什么代码,要修改哪里,我自己再慢慢摸索下,再问问别人,这样就大致有个思路,或是无法全屏!现在一点思路没有!我只想有这么一个功能,再不会向您问问提了,感觉给您添麻烦了谢谢!代码我在下面的问题已经贴出来的这里就不再贴了,要不然感觉像是刷屏似的呵呵!不管能否达到效果,本人都是您的粉丝!!!
冰水热咖啡 [2012-07-11 02:07 PM]
阿信!你太厉害了 我使用精灵插件的Example_jpg例子做了个背景图片,可是怎么弄也不能全屏显示(不遮盖任务栏)在声明中加入function GetSystemMetrics(nIndex: Integer): Integer;
external 'GetSystemMetrics@User32.dll stdcall setuponly'获取屏幕尺寸但是不知道怎么调用,好像有段代码控制了大小,问过一些朋友都不知道只有来问问您了,麻烦您帮忙调试下让图片可以获取屏幕尺寸并且全屏显示(不遮盖任务栏),谢谢阿信大哥了!
[code]
function GetSysColor(nIndex: Integer): DWORD; external 'GetSysColor@user32.dll stdcall';
function GetWindowLong(hWnd, nIndex: Integer): Longint; external 'GetWindowLongA@user32.dll';
function InitFairy(hParentWnd: HWND; RelativePos: 0; Interval: Cardinal): Boolean;
external 'InitFairy@files:fairy.dll stdcall';
function AddImgToList(X, Y: Integer; BlendAlpha: Byte; TransparentColor: Integer; ImgFile: AnsiString): Integer;
external 'AddImgToList@files:fairy.dll stdcall';
function ShowFairyEx(ImgIndex: Integer): Boolean; external 'ShowFairyEx@files:fairy.dll stdcall';
function HideFairy(): Boolean; external 'HideFairy@files:fairy.dll stdcall';
procedure UninitFairy(); external 'UninitFairy@files:fairy.dll stdcall';
function GetSystemMetrics(nIndex: Integer): Integer;
external 'GetSystemMetrics@User32.dll stdcall setuponly';下面的代码贴不出来了,您的主页会过滤掉,跟您Example_jpg一样的了!
赞赞赞 [2010-09-30 12:01 AM]
怎么安装插件啊.直接复制到要打包的文件中.还是复制到inno的安装目录中啊,详细点啊
drag0n [2010-09-28 04:16 PM]
赞一个~酷~
WLDNA [2010-09-25 07:20 PM]
哈哈 太帅了,越来越有的玩了,多谢阿信
  • 1
发表评论
昵 称:
密 码: 游客发言不需要密码.
验证码: 验证码
内 容:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 5000 字 | UBB代码 开启 | [img]标签 关闭