带水波特效的软件补丁脚本

Share

1. 
   
2. [Setup]
   
3. AppName=我的程序
   
4. AppVerName=我的程序 版本 1.5
   
5. DefaultDirName={pf}\我的程序
   
6. DefaultGroupName=我的程序
   
7. UninstallDisplayIcon={app}\MyProg.exe
   
8. Compression=lzma
   
9. OutputDir=userdocs:Inno Setup Examples Output
   
10. 
    
11. [Files]
    
12. Source: "compiler:\Examples\MyProg.exe"; DestDir: "{app}"
    
13. Source: "compiler:\Examples\Readme.txt"; DestDir: "{app}"; Flags: isreadme
    
14. Source: "{#PluginDir}\waterctrl.dll"; Flags: dontcopy
    
15. Source: "WizModernImage-Is.bmp"; Flags: dontcopy
    
16. 
    
17. [Icons]
    
18. Name: "{group}\我的程序"; Filename: "{app}\MyProg.exe"
    
19. 
    
20. 
    
21. [code]
    
22. function enablewater(ParentWnd: HWND; Left, Top: integer; Bmp: HBITMAP;
    
23.      WaterRadius, WaterHeight: integer): BOOL; external 'enablewater@files:waterctrl.dll stdcall';
    
24. function waterblob(x, y: integer; radius, height: integer): BOOL; external 'waterblob@files:waterctrl.dll stdcall';
    
25. function flattenwater(): BOOL; external 'flattenwater@files:waterctrl.dll stdcall';
    
26. function disablewater(): BOOL; external 'disablewater@files:waterctrl.dll stdcall';
    
27. function setwaterparent(ParentWnd: HWND): BOOL; external 'setwaterparent@files:waterctrl.dll stdcall';
    
28. //v2 新增，设置水纹插件的父句柄
    
29. 
    
30. var
    
31.   bmp: TBitmap;
    
32. var
    
33.   MyKeyExist: boolean;
    
34. 
    
35. function InitializeSetup(): boolean;
    
36. begin
    
37. MyKeyExist:= true;
    
38. if Not RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Adobe\Audition\3.0', 'ApplicationPath') then
    
39.   begin
    
40.   MyKeyExist:= false;
    
41.   MsgBox('安装程序检测到您的系统内没有安装Adobe Audition 3.0，请先安装软件在运行此补丁。', mbInformation, MB_OK);
    
42.   end;
    
43. Result:= MyKeyExist;
    
44. end;
    
45. 
    
46. procedure InitializeWizard();
    
47. begin
    
48.   ExtractTemporaryFile('WizModernImage-Is.bmp');
    
49.   bmp := TBitmap.create;
    
50.   bmp.LoadFromFile(ExpandConstant('{tmp}\WizModernImage-Is.bmp'));
    
51.   enablewater(WizardForm.WelcomePage.Handle, 0, 0, bmp.Handle, 3, 50);
    
52. end;
    
53. 
    
54. 
    
55. procedure CurPageChanged(CurPageID: Integer);
    
56. begin
    
57.   if CurPageID = wpWelcome then
    
58.   begin
    
59.     setwaterparent(WizardForm.WelcomePage.Handle);
    
60.     waterblob(70, 198, 10, 1000);
    
61.   end else
    
62.   if CurPageID = wpFinished then
    
63.   begin
    
64.     setwaterparent(WizardForm.FinishedPage.Handle);
    
65.     waterblob(70, 198, 10, 1000);
    
66.   end else
    
67.     flattenwater();
    
68. end;
    
69. 
    
70. procedure DeinitializeSetup();
    
71. begin
    
72.   if MyKeyExist then
    
73.   begin
    
74.   disablewater();
    
75.   bmp.Free;
    
76.   end;
    
77. end;
    

复制代码