INNO 火焰特效

Share

1. ; firectrl.dll 为一个用于 Inno Setup 的 17.5 KB 的火焰特效插件。
   
2. ; 需要注意，插件使用 MFC, 系统需要有 mfc42.dll，不过一般系统自带。
   
3. 
   
4. [Setup]
   
5. AppName=我的程序
   
6. AppVerName=我的程序 版本 1.5
   
7. DefaultDirName={pf}\我的程序
   
8. DefaultGroupName=我的程序
   
9. UninstallDisplayIcon={app}\MyProg.exe
   
10. Compression=lzma
    
11. OutputBaseFilename=INNO_Fire
    
12. [Files]
    
13. Source: "MyProg.exe"; DestDir: "{app}"
    
14. Source: "Readme.txt"; DestDir: "{app}"; Flags: isreadme
    
15. Source: "firectrl.dll"; Flags: dontcopy
    
16. Source: "WizModernImage-Is.bmp"; Flags: dontcopy
    
17. 
    
18. [Icons]
    
19. Name: "{group}\我的程序"; Filename: "{app}\MyProg.exe"
    
20. 
    
21. [code]
    
22. 
    
23. function enablefire(ParentWnd: HWND; Left, Top: integer; Bmp: HBITMAP;FireAlpha: integer): BOOL; external 'enablefire@files:firectrl.dll stdcall';
    
24. //ParentWnd     放置特效窗口的父窗口句柄。
    
25. //Left          特效窗口x位置
    
26. //Top           特效窗口y位置
    
27. //Bmp           位图句柄。
    
28. //FireAlpha     火焰 Alpha 值 0~100，值越大，火焰更浓。
    
29. //注意，火焰插件自动根据图片来设定高度和宽度，
    
30. //另外火焰底图必须是翻转的图片，显示的时候会翻转图片来显示。
    
31. 
    
32. function disablefire(): BOOL; external 'disablefire@files:firectrl.dll stdcall';
    
33. //释放火焰插件
    
34. 
    
35. var
    
36.   bmp: TBitmap;
    
37. 
    
38. procedure InitializeWizard();
    
39. begin
    
40.   ExtractTemporaryFile('WizModernImage-Is.bmp');
    
41.   bmp := TBitmap.create;
    
42.   bmp.LoadFromFile(ExpandConstant('{tmp}\WizModernImage-Is.bmp'));
    
43. 
    
44.   enablefire(WizardForm.WelcomePage.Handle, 0, 0, bmp.Handle, 50);
    
45. end;
    
46. 
    
47. procedure DeinitializeSetup();
    
48. begin
    
49.   disablefire();
    
50.   bmp.Free;
    
51. end;

复制代码