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"

Java代码
  1. function enablewater(ParentWnd: HWND; Left, Top: integer; Bmp: HBITMAP;   
  2.      WaterRadius, WaterHeight: integer): BOOL; external 'enablewater@files:waterctrl.dll stdcall';   
  3. //ParentWnd     放置特效窗口的父窗口句柄。   
  4. //Left          左位置   
  5. //Top           上位置   
  6. //Bmp           位图句柄。   
  7. //WaterRadius   水纹半径,会令到水纹看起来范围更广。   
  8. //WaterHeight   水纹高度,会令到水纹看起来更深。   
  9. //注意,水纹插件自动根据图片来设定高度和宽度,   
  10. //另外水纹底图必须是翻转的图片,显示的时候会翻转图片来显示。   
  11.   
  12. function waterblob(x, y: integer; radius, height: integer): BOOL; external 'waterblob@files:waterctrl.dll stdcall';   
  13. // 在 x,y 点产生半径为radius, 高度为height 的水纹。   
  14.   
  15. function flattenwater(): BOOL; external 'flattenwater@files:waterctrl.dll stdcall';   
  16. // 平伏所有水纹。   
  17.   
  18. function disablewater(): BOOL; external 'disablewater@files:waterctrl.dll stdcall';   
  19. //释放水纹插件   
  20.   
  21. function setwaterparent(ParentWnd: HWND): BOOL; external 'setwaterparent@files:waterctrl.dll stdcall';   
  22. //v2 新增,设置水纹插件的父句柄   
  23.   
  24. var   
  25.   bmp: TBitmap;   
  26.   LabelDate: TLabel;   
  27.   
  28. procedure InitializeWizard();   
  29. begin   
  30.   LabelDate:=Tlabel.Create(WizardForm.SelectDirpage)   
  31.   LabelDate.Caption:='此为***文件夹所在目录,建议默认,不要存为中文路径';   
  32.   LabelDate.Left:=ScaleX(10);   
  33.   LabelDate.Top:= ScaleY(120);   
  34.   LabelDate.Font.Color:=$0000FF;   
  35.   LabelDate.Font.Name:= '宋体';   
  36.   LabelDate.Font.Size:= 10;   
  37.   LabelDate.Font.Style:= [fsBold];   
  38.   LabelDate.Parent:= WizardForm.SelectDirpage;   
  39.   ExtractTemporaryFile('WizModernImage-Is.bmp');   
  40.   bmp := TBitmap.create;   
  41.   bmp.LoadFromFile(ExpandConstant('{tmp}/WizModernImage-Is.bmp'));   
  42.   
  43.   enablewater(WizardForm.WelcomePage.Handle, 00, bmp.Handle, 350);   
  44. end;   
  45.   
  46. procedure CurPageChanged(CurPageID: Integer);   
  47. begin   
  48.   if CurPageID = wpWelcome then   
  49.   begin   
  50.     setwaterparent(WizardForm.WelcomePage.Handle);   
  51.     waterblob(70198101000);   
  52.   end else  
  53.   if CurPageID = wpFinished then   
  54.   begin   
  55.     setwaterparent(WizardForm.FinishedPage.Handle);   
  56.     waterblob(70198101000);   
  57.   end else  
  58.     flattenwater();   
  59. end;   
  60.   
  61. procedure DeinitializeSetup();   
  62. begin   
  63.   disablewater();   
  64.   bmp.Free;   
  65. end;  

你可能感兴趣的:(inno)