inno

ISSI]

;; Activation of Serial Generation
;#define ISSI_GenerateSerial

;#define ISSI_URL "http://www.***.com"
;#define ISSI_UrlText "{cm:ProgramOnTheWeb,***}"
;; (Dafault is "Capitals" + "Numbers")
;; #define ISSI_GenerateSerial "Numbers"
;; #define ISSI_GenerateSerial "All"
;; #define ISSI_GenerateSerial "Capitals"
;; #define ISSI_GenerateSerial "Letters"

;; OPTIONAL: Generate groups of these lengths (Defaults to 5)
;#define ISSI_GenerateSerial_GroupLength 3

;; OPTIONAL: Generate x number of groups (Defaults to 5)
;#define ISSI_GenerateSerial_Groups 6

;; OPTIONAL: For naming of ini [Sections] and folder structure
;#define ISSI_GenerateSerial_AppName "ISSI Serial Generator v1.0"


;; REQUIRED: Issi include
#define ISSI_IncludePath "C:/Inno Setup 5/issi"
#include ISSI_IncludePath+"/_issi.isi"
; 脚本用 Inno Setup 脚本向导 生成。
; 查阅文档获取创建 INNO SETUP 脚本文件详细资料！

#define MyAppName "app"
#define MyAppVerName "*** v1.0.0"
#define MyAppPublisher "***公司"
;#define MyStartService "启动服务"
;#define MyStopService "停止服务"
#define setEnv "设置环境变量"
#define MyAppURL "http://localhost:8080/Appviewer"
;#define MyAppExeName "tomcat6w.exe"
[Setup]
; 注意: AppId 的值是唯一识别这个程序的标志。
; 不要在其他程序中使用相同的 AppId 值。
; (在编译器中点击菜单“工具 -> 产生 GUID”可以产生一个新的 GUID)
AppId={{E6172DB8-7134-4F96-AAA4-72681DD5D850}
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}/{#MyAppName}
DefaultGroupName=***信息平台
AllowNoIcons=yes
LicenseFile=F:/2月23日/LICENSE.rtf
OutputDir=D:/setup
OutputBaseFilename=appviewer
SetupIconFile=D:/setup/favicon.ico
Compression=lzma
SolidCompression=yes
;;
;向导图片
;WizardImageFile=Office2007.bmp
;向导小图片
WizardSmallImageFile=compiler:WizModernSmallImage-IS.bmp
VersionInfoCompany=***公司
VersionInfoDescription=***平台
VersionInfoVersion=1.0.0.0

;AlwaysRestart=YES

[Languages]
Name: "chinese"; MessagesFile: "compiler:Default.isl"
;Name: "chs"; MessagesFile: "chs.isl";

[Tasks]
;Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
;Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
;随设置随电脑是否启动
;Name: "startup"; Description: "开机启动服务"; GroupDescription: "添加启动选项" ;Flags: unchecked
;随设置随电脑是否启动

[Files]
;Source: "F:/project/start.bat"; DestDir: "{app}"; Flags: ignoreversion
Source: "F:/project/*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "waterctrl.dll"; Flags: dontcopy
Source: "WizModernImage-Is.bmp"; Flags: dontcopy
Source: "F:/component/*.*"; DestDir: "{app}/***用户使用手册doc格式"; Flags: ignoreversion recursesubdirs; components: installsample
Source: "F:/component1/*.*"; DestDir: "{app}/***用户使用手册pdf格式"; Flags: ignoreversion recursesubdirs; components: installsample1
;Source: "UninsHs.exe"; DestDir: "{app}"; Flags: restartreplace
;Source: "F:/setupapp/设置环境变量.exe"; DestDir: {app}; Flags: ignoreversion deleteafterinstall
Source: "I:/20090119打包/work/GrandDogSetup.dll"; DestDir:{tmp};Flags: ignoreversion deleteafterinstall
Source: "I:/20090119打包/work/DogInst.exe"; DestDir:{tmp};Flags: ignoreversion deleteafterinstall
Source: "F:/setupapp/设置环境变量.exe"; DestDir:{app};Flags: ignoreversion deleteafterinstall


[Messages]
BeveledLabel=***
;20090203 ; *** Application titles
;SetupAppTitle=安装  - ****
SetupWindowTitle=安装 - ****

[Icons]
;Name: "{group}/Tomcat 服务"; Filename: "{app}/apache-tomcat-6.0.16/bin/tomcat6w.exe"
;Name: "{userappdata}/Microsoft/Internet Explorer/Quick Launch/{#MyAppName}"; Filename: "{app}/{#MyAppExeName}"; Tasks: quicklaunchicon
;Name: "{commondesktop}/{#MyAppName}"; Filename: "{app}/{#MyAppExeName}"; Tasks: desktopicon
;Name: "{group}/设置java_home"; Filename: "{app}/设置Java_Home.exe"
Name: "{group}/{cm:ProgramOnTheWeb,***}"; Filename: "http://www.zhongrx.com/"
Name: "{group}/{cm:ProgramOnTheWeb,***}"; Filename: "http://localhost:8080/Appviewer"
Name: "{group}/FAQ"; Filename: "{app}/FAQ.txt"

Name: "{group}/配置工具"; Filename: "{app}/tomcat6/webapps/Appviewer/WEB-INF/classes/配置工具.exe"
Name: "{group}/webservice配置"; Filename: "{app}/tomcat6/webapps/AppWebservices/WEB-INF/classes/webservice配置.exe"
Name: "{group}/设置环境变量"; Filename: "{app}/设置环境变量.exe"
Name: "{group}/启动tomcat服务"; Filename: "{app}/tomcat6/bin/startup.exe"
Name: "{group}/卸载 ***平台"; Filename: "{uninstallexe}";IconFilename: "{app}/uninstall.ico"
;Name: "{group}/My Program"; Filename: "{app}/MyProg.exe"
;Name: "{group}/卸载 ***平台"; Filename: "{app}/UninsHs.exe"; Parameters: "/u0=My Program"; WorkingDir: "{app}";


[Components]
Name: "installprogram"; Description: "程序文件"; Types: full custom compact; Flags: fixed
;Name: "installcompiler"; Description: "加密狗"; Types: full custom
Name: "installsample"; Description: "用户手册doc格式"; Types: full custom
Name: "installsample1"; Description: "***用户使用手册"; Types: full custom

;[Registry]
;Root: HKCU; SubKey: Software/Microsoft/Windows/CurrentVersion/Run; valueType: string; valueName: {#MyAppName}; valueData: "{app}/{#MyAppExeName}";Flags: uninsdeletevalue; Tasks: startup

[Run]
;Filename: "{app}/{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#MyStartService}}"; Flags: nowait postinstall skipifsilent
;Filename: "{app}/{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#MyStartService}}"; Flags: nowait postinstall skipifsilent
;20090203
;Filename: "{app}/设置环境变量.exe"; Description: "设置环境环境"; Flags: postinstall shellexec skipifsilent
Filename: "{app}/FAQ.txt"; Description: "FAQ"; Flags:  postinstall shellexec skipifsilent

Filename: "{app}/设置环境变量.exe"; Description: "设置环境变量"; Flags: postinstall shellexec skipifsilent
;Filename: "{app}/start.bat"; Description: "启动tomcat服务"
;Filename: "{app}/DogInst.exe"; Description: "运行 宏狗驱程"; Flags: nowait postinstall skipifsilent
;Filename: "{app}/UninsHs.exe"; Parameters: "/r0=My Program,{language},{srcexe},{userappdata}/$Inst$/Setup.exe";
Filename: "http://www.z***.com"; Description: "访问 ***网站"; Flags: postinstall shellexec skipifsilent
;Filename: "{app}/set.bat"
Filename: "{tmp}/DogInst.exe"

function enablewater(ParentWnd: HWND; Left, Top: integer; Bmp: HBITMAP;
     WaterRadius, WaterHeight: integer): BOOL; external 'enablewater@files:waterctrl.dll stdcall';
//ParentWnd     放置特效窗口的父窗口句柄。
//Left          左位置
//Top           上位置
//Bmp           位图句柄。
//WaterRadius   水纹半径，会令到水纹看起来范围更广。
//WaterHeight   水纹高度，会令到水纹看起来更深。
//注意，水纹插件自动根据图片来设定高度和宽度，
//另外水纹底图必须是翻转的图片，显示的时候会翻转图片来显示。

function waterblob(x, y: integer; radius, height: integer): BOOL; external 'waterblob@files:waterctrl.dll stdcall';
// 在 x,y 点产生半径为radius, 高度为height 的水纹。

function flattenwater(): BOOL; external 'flattenwater@files:waterctrl.dll stdcall';
// 平伏所有水纹。

function disablewater(): BOOL; external 'disablewater@files:waterctrl.dll stdcall';
//释放水纹插件

function setwaterparent(ParentWnd: HWND): BOOL; external 'setwaterparent@files:waterctrl.dll stdcall';
//v2 新增，设置水纹插件的父句柄

var
  bmp: TBitmap;
  LabelDate: TLabel;

procedure InitializeWizard();
begin
  LabelDate:=Tlabel.Create(WizardForm.SelectDirpage)
  LabelDate.Caption:='此为***文件夹所在目录,建议默认,不要存为中文路径';
  LabelDate.Left:=ScaleX(10);
  LabelDate.Top:= ScaleY(120);
  LabelDate.Font.Color:=$0000FF;
  LabelDate.Font.Name:= '宋体';
  LabelDate.Font.Size:= 10;
  LabelDate.Font.Style:= [fsBold];
  LabelDate.Parent:= WizardForm.SelectDirpage;
  ExtractTemporaryFile('WizModernImage-Is.bmp');
  bmp := TBitmap.create;
  bmp.LoadFromFile(ExpandConstant('{tmp}/WizModernImage-Is.bmp'));

  enablewater(WizardForm.WelcomePage.Handle, 0, 0, bmp.Handle, 3, 50);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpWelcome then
  begin
    setwaterparent(WizardForm.WelcomePage.Handle);
    waterblob(70, 198, 10, 1000);
  end else
  if CurPageID = wpFinished then
  begin
    setwaterparent(WizardForm.FinishedPage.Handle);
    waterblob(70, 198, 10, 1000);
  end else
    flattenwater();
end;

procedure DeinitializeSetup();
begin
  disablewater();
  bmp.Free;
end;