INNO GIF 动画

Share

1. ; gifctrl.dll 为一个用于 Inno Setup 的 12 KB 的 gif 显示插件，同样可以显示 BMP 和 JPEG。
   
2. 
   
3. [Setup]
   
4. AppName=我的程序
   
5. AppVerName=我的程序 版本 1.5
   
6. DefaultDirName={pf}\我的程序
   
7. DefaultGroupName=我的程序
   
8. UninstallDisplayIcon={app}\MyProg.exe
   
9. Compression=lzma
   
10. 
    
11. [Files]
    
12. Source: "MyProg.exe"; DestDir: "{app}"
    
13. Source: "Readme.txt"; DestDir: "{app}"; Flags: isreadme
    
14. Source: "gifctrl.dll"; Flags: dontcopy
    
15. Source: nsisinstall.gif; DestDir: {app}; Flags: dontcopy
    
16. 
    
17. [Icons]
    
18. Name: "{group}\我的程序"; Filename: "{app}\MyProg.exe"
    
19. 
    
20. [code]
    
21. const
    
22.    HALIGN_CENTER = 0; //水平居中
    
23.    HALIGN_LEFT = 1;   //水平靠左
    
24.    HALIGN_RIGHT = 2;  //水平靠右
    
25. 
    
26.    VALIGN_CENTER = 0; //垂直居中
    
27.    VALIGN_TOP = 1;    //垂直靠上
    
28.    VALIGN_BOTTOM = 2; //垂直靠下
    
29. 
    
30.    FIT_NONE = 0;      //不适应窗口
    
31.    FIT_WIDTH = 1;     //适应窗口宽度
    
32.    FIT_HEIGHT = 2;    //适应窗口高度
    
33.    FIT_BOTH = 3;      //适应窗口宽度和高度
    
34.    
    
35.    CLR_INVALID = $FFFFFFFF; //自动取容器左上角的颜色作为底色，如果取色失败，用按钮颜色代替。
    
36. 
    
37. function playgif(GifHandle: HWND; HAlign: integer; VAlign: integer; BGColor: DWord;
    
38.      Fit: integer; GifFileName: PChar): BOOL; external 'playgif@files:gifctrl.dll stdcall';
    
39. //GifHandle    放置图片的容器，一般用 TPanel 装载图片就可以了。
    
40. //HAlign       水平放置位置
    
41. //VAlign       垂直放置位置
    
42. //BGColor      背景颜色
    
43. //Fit          适应窗口大小
    
44. //GifFileName  图片文件名
    
45. function stopgif(): BOOL; external 'stopgif@files:gifctrl.dll stdcall';
    
46. //释放Gif显示
    
47. 
    
48. var
    
49.   GifPanel: TPanel;
    
50. 
    
51. procedure InitializeWizard();
    
52. var
    
53.   GifFileName: String;
    
54. begin
    
55.   ExtractTemporaryFile('nsisinstall.gif');
    
56.   
    
57.   GifPanel := TPanel.Create(WizardForm);
    
58.   GifPanel.Parent := WizardForm.InstallingPage;
    
59.   GifPanel.Caption := '';
    
60.   GifPanel.Top := WizardForm.PROGRESSGAUGE.Top + WizardForm.PROGRESSGAUGE.Height + 5;
    
61.   GifPanel.Left := 0;
    
62.   GifPanel.Width := WizardForm.InstallingPage.Width;
    
63.   GifPanel.Height := WizardForm.InstallingPage.Height - (WizardForm.PROGRESSGAUGE.Top
    
64.        + WizardForm.PROGRESSGAUGE.Height + 5);
    
65.       
    
66.   playgif(GifPanel.Handle, HALIGN_CENTER, VALIGN_BOTTOM, CLR_INVALID, FIT_WIDTH,
    
67.        ExpandConstant('{tmp}\nsisinstall.gif'));
    
68. end;
    
69. 
    
70. procedure DeinitializeSetup();
    
71. begin
    
72.   stopgif();
    
73. end;
    
74. 
    
75. procedure CurPageChanged(CurPageID: Integer);
    
76. begin
    
77.   if CurPageID = wpInstalling then
    
78.   begin
    
79.     MsgBox('暂停一下，看看效果。', mbInformation, MB_OK);
    
80.   end;
    
81. end;

复制代码