inno 实现水波特效

　　安装Inno Setup时如果选择了水波效果插件（如下图），将在Inno Setup的安装目录下自带有水波特效的例子，如路径：C:\Program Files (x86)\Inno Setup 5\Examples\下的WaterLib_Example.iss。

　　

　　

　　以下是我在原例子的基础上修改得到的非增强版可用的精简代码:

 ; 脚本由 Inno Setup 脚本向导 生成！
 ; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！
 #include "compiler:WaterLib.iss"

 #define MyAppName "我的程序"
 #define MyAppVersion "1.5"
 #define MyAppPublisher "我的公司"
 #define MyAppURL "http://www.example.com/"
 #define MyAppExeName "MyProg.exe"

 [Setup]
 ; 注: AppId的值为单独标识该应用程序。
 ; 不要为其他安装程序使用相同的AppId值。
 ; (生成新的GUID，点击 工具|在IDE中生成GUID。)
 AppId={{F40EA292-5A4E-41EB-9819-7D426D45A468}
 AppName={#MyAppName}
 AppVersion={#MyAppVersion}
 ;AppVerName={#MyAppName} {#MyAppVersion}
 AppPublisher={#MyAppPublisher}
 AppPublisherURL={#MyAppURL}
 AppSupportURL={#MyAppURL}
 AppUpdatesURL={#MyAppURL}
 DefaultDirName={pf}\{#MyAppName}
 DisableProgramGroupPage=yes
 OutputBaseFilename=WaterExp
 Compression=lzma
 SolidCompression=yes
 DisableWelcomePage=no
 WizardImageFile=compiler:WizModernImage-Is.bmp
 WizardSmallImageFile=compiler:WizModernSmallImage-Is.bmp
 [Languages]
 Name: "chinesesimp"; MessagesFile: "compiler:Default.isl"

 [Tasks]
 Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

 [Files]
 ;Source: "C:\Program Files (x86)\Inno Setup \Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
 Source: compiler:InnoCallback.dll; DestDir: {tmp}; Flags: dontcopy noencryption
 ;Source: demo.bmp; DestDir: {tmp}; Flags: dontcopy noencryption
 ; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”

 [Icons]
 Name: "{commonprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
 Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

 [Code]

 Const
   DrawTextMoveDemo = '动态移动演示'; 

 type
  TTimerProc = procedure(H: LongWord; MSG: LongWord; idEvent: LongWord; dwTime: LongWord);
 function WrapTimerProc(CallBack: TTimerProc; ParamCount: Integer): LongWord; external 'InnoCallback@files:InnoCallBack.dll stdcall';
 function SetTimer(hWnd: LongWord; nIDEvent, uElapse: LongWord; lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';

 var
   MoveB_X, MoveT_Y: Integer;
   DrawBitmapDemo: TBitmap;
   WaterHandle:Integer;

 procedure MyTimerProc(H: LongWord; MSG: LongWord; idEvent:LongWord; dwTime:LongWord);
 begin
   MoveT_Y := MoveT_Y + ;
   If MoveT_Y >= WizardForm.WizardBitmapImage.Height then MoveT_Y := ;
   WaterDrawText(WaterHandle, , , MoveT_Y, DrawTextMoveDemo);

   MoveB_X := MoveB_X + ;
   If MoveB_X >= WizardForm.WizardBitmapImage.Width then MoveB_X :=  - DrawBitmapDemo.Width;
   WaterDrawBitmap(WaterHandle, , MoveB_X, , DrawBitmapDemo.Handle, True,  clDefault);
 end;

 procedure InitializeWizard();
 var
   F: AnsiString;
   TimerCallBack: LongWord;
 begin
   WaterSupportAuthor(True);
   //支持本人作品, 建议开启标识显示.
   //只有开启该功能后, 才可以使用WaterDraw****相关API的功能

   //创建水波特效
   F:= ExpandConstant('{tmp}\WizardImage.bmp');
   WizardForm.WizardBitmapImage.Bitmap.SaveToFile(F);
   WaterHandle := WaterInit(WizardForm.WelcomePage.Handle, , );
   WaterSetBounds(WaterHandle, WizardForm.WizardBitmapImage.Left, WizardForm.WizardBitmapImage.Top, WizardForm.WizardBitmapImage.Width, WizardForm.WizardBitmapImage.Height);
   WaterSetFile(WaterHandle, AnsiString(F));
   WaterSetActive(WaterHandle, True);
   DeleteFile(F);

   //竖向移动的文本
   MoveT_Y := ;
   WaterDrawTextBrush(WaterHandle, , clBlack, bsClear);
   WaterDrawTextFont(WaterHandle, , '宋体', , clYellow, );
   WaterDrawText(WaterHandle, , , MoveT_Y, DrawTextMoveDemo);

   //横行移动的位图
   MoveB_X := ;
   DrawBitmapDemo:= TBitmap.Create;
   DrawBitmapDemo.LoadFromFile(ExpandConstant('{commonappdata}\Microsoft\User Account Pictures\guest.bmp'));
   //ExtractTemporaryFile('demo.bmp');
   //DrawBitmapDemo.LoadFromFile(ExpandConstant('{tmp}\demo.bmp'));
   WaterDrawBitmap(WaterHandle, , MoveB_X, , DrawBitmapDemo.Handle, True, clDefault);

   //创建动态显示文本或位图的定时器
   TimerCallBack := WrapTimerProc(@MyTimerProc, );
   SetTimer(, , , TimerCallBack);
 end;

 procedure CurPageChanged(CurPageID: Integer);
 begin
   Case CurPageID of
     wpWelcome : WaterSetParentWindow(WaterHandle, WizardForm.WelcomePage.Handle);  //将水波移动到另一个句柄上
     wpFinished: WaterSetParentWindow(WaterHandle, WizardForm.FinishedPage.Handle); //将水波移动到另一个句柄上
   end;
 end;

 //释放所有水波对象
 procedure DeinitializeSetup();
 begin
   WaterAllFree;
 end;

效果如下：