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;