INNO 水纹特效

Share

1. ; waterctrl.dll 为一个用于 Inno Setup 的 16.5 KB 的水纹特效插件。
   
2. ; 需要注意，插件使用 MFC, 系统需要有 mfc42.dll，不过一般系统自带。
   
3. 
   
4. ; v2 版本  新增设置水纹插件的父句柄
   
5. 
   
6. [Setup]
   
7. AppName=我的程序
   
8. AppVerName=我的程序 版本 1.5
   
9. DefaultDirName={pf}\我的程序
   
10. DefaultGroupName=我的程序
    
11. UninstallDisplayIcon={app}\MyProg.exe
    
12. Compression=lzma
    
13. 
    
14. [Files]
    
15. Source: "MyProg.exe"; DestDir: "{app}"
    
16. Source: "Readme.txt"; DestDir: "{app}"; Flags: isreadme
    
17. Source: "waterctrl.dll"; Flags: dontcopy
    
18. Source: "WizModernImage-Is.bmp"; Flags: dontcopy
    
19. 
    
20. [Icons]
    
21. Name: "{group}\我的程序"; Filename: "{app}\MyProg.exe"
    
22. 
    
23. [code]
    
24. 
    
25. function enablewater(ParentWnd: HWND; Left, Top: integer; Bmp: HBITMAP;
    
26.      WaterRadius, WaterHeight: integer): BOOL; external 'enablewater@files:waterctrl.dll stdcall';
    
27. //ParentWnd     放置特效窗口的父窗口句柄。
    
28. //Left          左位置
    
29. //Top           上位置
    
30. //Bmp           位图句柄。
    
31. //WaterRadius   水纹半径，会令到水纹看起来范围更广。
    
32. //WaterHeight   水纹高度，会令到水纹看起来更深。
    
33. //注意，水纹插件自动根据图片来设定高度和宽度，
    
34. //另外水纹底图必须是翻转的图片，显示的时候会翻转图片来显示。
    
35. 
    
36. function waterblob(x, y: integer; radius, height: integer): BOOL; external 'waterblob@files:waterctrl.dll stdcall';
    
37. // 在 x,y 点产生半径为radius, 高度为height 的水纹。
    
38. 
    
39. function flattenwater(): BOOL; external 'flattenwater@files:waterctrl.dll stdcall';
    
40. // 平伏所有水纹。
    
41. 
    
42. function disablewater(): BOOL; external 'disablewater@files:waterctrl.dll stdcall';
    
43. //释放水纹插件
    
44. 
    
45. function setwaterparent(ParentWnd: HWND): BOOL; external 'setwaterparent@files:waterctrl.dll stdcall';
    
46. //v2 新增，设置水纹插件的父句柄
    
47. 
    
48. var
    
49.   bmp: TBitmap;
    
50. 
    
51. procedure InitializeWizard();
    
52. begin
    
53.   ExtractTemporaryFile('WizModernImage-Is.bmp');
    
54.   bmp := TBitmap.create;
    
55.   bmp.LoadFromFile(ExpandConstant('{tmp}\WizModernImage-Is.bmp'));
    
56. 
    
57.   enablewater(WizardForm.WelcomePage.Handle, 0, 0, bmp.Handle, 3, 50);
    
58. end;
    
59. 
    
60. procedure CurPageChanged(CurPageID: Integer);
    
61. begin
    
62.   if CurPageID = wpWelcome then
    
63.   begin
    
64.     setwaterparent(WizardForm.WelcomePage.Handle);
    
65.     waterblob(70, 198, 10, 1000);
    
66.   end else
    
67.   if CurPageID = wpFinished then
    
68.   begin
    
69.     setwaterparent(WizardForm.FinishedPage.Handle);
    
70.     waterblob(70, 198, 10, 1000);
    
71.   end else
    
72.     flattenwater();
    
73. end;
    
74. 
    
75. procedure DeinitializeSetup();
    
76. begin
    
77.   disablewater();
    
78.   bmp.Free;
    
79. end;
    
80. 
    

复制代码