Skip to content

C
cpas6-install
Commit ad885839 authored by lijingang's avatar lijingang
Browse files
Options

fix:add

parent 56212d62
Hide whitespace changes
Inline Side-by-side
Showing with 320 additions and 309 deletions
AutoUpdate.iss
View file @ ad885839
; 脚本由 Inno Setup 脚本向导 生成！ ; 脚本由 Inno Setup 脚本向导 生成！
; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！ ; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！
#include AddBackslash( CompilerPath ) + "ISPPBUILTINS.ISS" #include AddBackslash( CompilerPath ) + "ISPPBUILTINS.ISS"
#define MyAppName "审计软件升级程序" #define MyAppName "审计软件升级程序"
; MyAppRegName 名称应保持与Config.ini中APPRegName配置一致，否则注册表读写不对应。 ; MyAppRegName 名称应保持与Config.ini中APPRegName配置一致，否则注册表读写不对应。
#define MyAppRegName4 "UFCPAS4" #define MyAppRegName4 "UFCPAS4"
#define MyAppExeName4 "UFCPAS4.exe" #define MyAppExeName4 "UFCPAS4.exe"
#define MyAppRegName6 "CPAS6" #define MyAppRegName6 "CPAS6"
#define MyAppEnName6 "CPAS6" #define MyAppEnName6 "CPAS6"
#define MyAppExeName6 "cpas-WorkPlatform.exe" #define MyAppExeName6 "cpas-WorkPlatform.exe"
#define MyAppVersion "6.0.250306"
#define MyAppPublisher "北京友数聚科技有限公司" #define MyAppVersion "6.0.250306"
#define MyAppURL "http://www.youdatasum.com/" #define MyAppPublisher "北京友数聚科技有限公司"
#define SQL_Path "C:\AudSQL2014" #define MyAppURL "http://www.youdatasum.com/"
#define SQL_INSTANCE "MSSQL$AudSQL2014" #define SQL_Path "C:\AudSQL2014"
#define SQL_ServerName "(local)\AudSQL2014" #define SQL_INSTANCE "MSSQL$AudSQL2014"
#define CurDateString GetDateTimeString('yyMMdd', '-', ':'); #define SQL_ServerName "(local)\AudSQL2014"
#define CurDateString GetDateTimeString('yyMMdd', '-', ':');
[Setup]
; 注: AppId的值为单独标识该应用程序。 [Setup]
; 不要为其他安装程序使用相同的AppId值。 ; 注: AppId的值为单独标识该应用程序。
; (生成新的GUID，点击 工具|在IDE中生成GUID。) ; 不要为其他安装程序使用相同的AppId值。
AppId={{UFAUD001-498E-44A3-BFE8-FBC48803XAuto} ; (生成新的GUID，点击 工具|在IDE中生成GUID。)
AppName={#MyAppName} AppId={{UFAUD001-498E-44A3-BFE8-FBC48803XAuto}
AppVersion=6.0.{#CurDateString} AppName={#MyAppName}
AppPublisher={#MyAppPublisher} AppVersion=6.0.{#CurDateString}
AppPublisherURL={#MyAppURL} AppPublisher={#MyAppPublisher}
DefaultDirName={code:GetDefaultDir} AppPublisherURL={#MyAppURL}
;D:\{#MyAppEnName} DefaultDirName={code:GetDefaultDir}
DefaultGroupName={#MyAppName} ;D:\{#MyAppEnName}
CreateAppDir=true DefaultGroupName={#MyAppName}
;OutputBaseFilename={#MyAppName}Setup-{#CurDateString} OutputBaseFilename=AutoUpdate CreateAppDir=true
OutputDir=E:\CPAS6-101 UFCPAS6.0 致同智审IAS版_测试版\AutoUpdate\ ;OutputBaseFilename={#MyAppName}Setup-{#CurDateString}
;lzma 压缩方式 lzma2/fast none OutputBaseFilename=AutoUpdate
compression=lzma OutputDir=E:\CPAS6-101 UFCPAS6.0 致同智审IAS版_测试版\AutoUpdate\
;是否使用原来的安装路径,不让选择 ;lzma 压缩方式 lzma2/fast none
UsePreviousAppDir=no compression=lzma
DisableDirPage=yes ;是否使用原来的安装路径,不让选择
SolidCompression=yes UsePreviousAppDir=no
Uninstallable=no DisableDirPage=yes
DisableReadyPage=yes SolidCompression=yes
EnableDirDoesntExistWarning=no Uninstallable=no
DirExistsWarning=no DisableReadyPage=yes
AlwaysShowGroupOnReadyPage=yes EnableDirDoesntExistWarning=no
DisableProgramGroupPage=yes DirExistsWarning=no
[Files] AlwaysShowGroupOnReadyPage=yes
DisableProgramGroupPage=yes
;6.0项目管理工具与审计作业平台未分成两个EXE； [Files]
Source: "{#MyAppExeName6}"; DestDir: "{app}"; Flags: ignoreversion;
Source: "{#MyAppExeName4}"; DestDir: "{app}"; Flags: ignoreversion; ;6.0项目管理工具与审计作业平台未分成两个EXE；
Source: "AutoUpdate\update.inf"; DestDir: "{app}\AutoUpdate"; Source: "{#MyAppExeName6}"; DestDir: "{app}"; Flags: ignoreversion;
;Source: "ConfigTool.exe"; DestDir: "{app}"; Flags: ignoreversion Source: "{#MyAppExeName4}"; DestDir: "{app}"; Flags: ignoreversion;
Source: "CpasCloudSvr\CpasCloudSvr.exe"; DestDir: "{app}\CpasCloudSvr"; Flags: ignoreversion; Source: "AutoUpdate\update.inf"; DestDir: "{app}\AutoUpdate";
Source: "CpasCloudSvr\data\*"; DestDir: "{app}\CpasCloudSvr\data"; Flags: ignoreversion recursesubdirs createallsubdirs ;Source: "ConfigTool.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "AutoUpdateClient.exe"; DestDir: "{app}"; Flags: ignoreversion Source: "CpasCloudSvr\CpasCloudSvr.exe"; DestDir: "{app}\CpasCloudSvr"; Flags: ignoreversion;
;Source: "1,68-A8-6D-14-57-9E.CPA"; DestDir: "{app}"; Flags: ignoreversion Source: "CpasCloudSvr\data\*"; DestDir: "{app}\CpasCloudSvr\data"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "WorkPaperViewer.exe"; DestDir: "{app}"; Flags: ignoreversion Source: "AutoUpdateClient.exe"; DestDir: "{app}"; Flags: ignoreversion
;Source: "RegWorkPaperViewer.bat"; DestDir: "{app}"; Flags: ignoreversion ;Source: "1,68-A8-6D-14-57-9E.CPA"; DestDir: "{app}"; Flags: ignoreversion
;Source: "CPAProjectSynchron.exe"; DestDir: "{app}"; Flags: ignoreversion ;Source: "WorkPaperViewer.exe"; DestDir: "{app}"; Flags: ignoreversion
;Source: "UFHSPSystem.exe"; DestDir: "{app}"; Flags: ignoreversion ;Source: "RegWorkPaperViewer.bat"; DestDir: "{app}"; Flags: ignoreversion
;Source: "FTPClient.dll"; DestDir: "{app}"; Flags: ignoreversion ;Source: "CPAProjectSynchron.exe"; DestDir: "{app}"; Flags: ignoreversion
;Source: "CPASProtocol.exe"; DestDir: "{app}"; Flags: ignoreversion; ;Source: "UFHSPSystem.exe"; DestDir: "{app}"; Flags: ignoreversion
;Source: "borlndmm.dll"; DestDir: "{app}"; Flags: ignoreversion ;Source: "FTPClient.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "UFCPASSetupDll.dll"; DestDir: "{app}\"; Flags: ignoreversion dontcopy ;Source: "CPASProtocol.exe"; DestDir: "{app}"; Flags: ignoreversion;
Source: "重启资源管理器.bat"; DestDir: "{app}"; Flags: ignoreversion ;Source: "borlndmm.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "AppBPL\*"; DestDir: "{app}\AppBPL"; Flags: ignoreversion recursesubdirs createallsubdirs ; Source: "UFCPASSetupDll.dll"; DestDir: "{app}\"; Flags: ignoreversion dontcopy
Source: "Config\Config.ini"; DestDir: "{app}\Config"; Flags: ignoreversion Source: "重启资源管理器.bat"; DestDir: "{app}"; Flags: ignoreversion
Source: "Config\Config.xml"; DestDir: "{app}\Config"; Flags: ignoreversion Source: "AppBPL\*"; DestDir: "{app}\AppBPL"; Flags: ignoreversion recursesubdirs createallsubdirs ;
Source: "Config\ExportExcel.xml"; DestDir: "{app}\Config"; Flags: ignoreversion Source: "Config\Config.ini"; DestDir: "{app}\Config"; Flags: ignoreversion
;Source: "Config\ServerConfig.ini"; DestDir: "{app}\Config"; Flags: ignoreversion Source: "Config\Config.xml"; DestDir: "{app}\Config"; Flags: ignoreversion
;Source: "Config\Symbol.ini"; DestDir: "{app}\Config"; Flags: ignoreversion Source: "Config\ExportExcel.xml"; DestDir: "{app}\Config"; Flags: ignoreversion
;Source: "Config\*"; DestDir: "{app}\Config"; Flags: ignoreversion recursesubdirs createallsubdirs ;Source: "Config\ServerConfig.ini"; DestDir: "{app}\Config"; Flags: ignoreversion
;Source: "Data\*"; DestDir: "{app}\Data"; Flags: ignoreversion recursesubdirs createallsubdirs ;Source: "Config\Symbol.ini"; DestDir: "{app}\Config"; Flags: ignoreversion
Source: "SysBPL\*"; DestDir: "{app}\SysBPL"; Flags: ignoreversion recursesubdirs createallsubdirs ;Source: "Config\*"; DestDir: "{app}\Config"; Flags: ignoreversion recursesubdirs createallsubdirs
; 不能添加 Source: "SourceData\*"; DestDir: "{app}\SourceData"; Flags: ignoreversion recursesubdirs createallsubdirs ;Source: "Data\*"; DestDir: "{app}\Data"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "数据采集工具\*"; DestDir: "{app}\数据采集工具"; Flags: ignoreversion recursesubdirs createallsubdirs Source: "SysBPL\*"; DestDir: "{app}\SysBPL"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "演示数据\*"; DestDir: "{app}\演示数据"; Flags: ignoreversion recursesubdirs createallsubdirs ; 不能添加 Source: "SourceData\*"; DestDir: "{app}\SourceData"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "AppData\*"; DestDir: "{app}\AppData"; Flags: ignoreversion recursesubdirs createallsubdirs Source: "数据采集工具\*"; DestDir: "{app}\数据采集工具"; Flags: ignoreversion recursesubdirs createallsubdirs
;ProjectData文件夹内有演示企业的底稿文件，数据库初始化工具不能回复，暂时直接恢复； ;Source: "演示数据\*"; DestDir: "{app}\演示数据"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "ProjectData\*"; DestDir: "{app}\ProjectData"; Flags: ignoreversion recursesubdirs createallsubdirs Source: "DataConvert\*"; DestDir: "{app}\DataConvert"; Flags: ignoreversion recursesubdirs createallsubdirs Source: "AppData\*"; DestDir: "{app}\AppData"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "DBUpdate\*"; DestDir: "{app}\DBUpdate"; Flags: ignoreversion recursesubdirs createallsubdirs ;ProjectData文件夹内有演示企业的底稿文件，数据库初始化工具不能回复，暂时直接恢复；
Source: "升级包数据库升级脚本\*"; DestDir: "{app}\DBUpdate\Script\"; Flags: ignoreversion recursesubdirs createallsubdirs ;Source: "ProjectData\*"; DestDir: "{app}\ProjectData"; Flags: ignoreversion recursesubdirs createallsubdirs
;注册Office加载项，[run]段也加入bat文件注册双保险 Source: "DataConvert\*"; DestDir: "{app}\DataConvert"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "DataConvert\Dts_dll\dtspkg.dll"; DestDir: "{app}\DataConvert\Dts_dll"; DestName: "dtspkg.dll"; Flags: regserver noregerror; Source: "DBUpdate\*"; DestDir: "{app}\DBUpdate"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "DataConvert\Dts_dll\dtspump.dll"; DestDir: "{app}\DataConvert\Dts_dll"; DestName: "dtspump.dll"; Flags: regserver noregerror; Source: "升级包数据库升级脚本\*"; DestDir: "{app}\DBUpdate\Script\"; Flags: ignoreversion recursesubdirs createallsubdirs
;注册Office加载项，[run]段也加入bat文件注册双保险
;Office加载项换成新方式 ;Source: "DataConvert\Dts_dll\dtspkg.dll"; DestDir: "{app}\DataConvert\Dts_dll"; DestName: "dtspkg.dll"; Flags: regserver noregerror;
Source: "VSTO\*"; DestDir: "{app}\VSTO"; Flags: ignoreversion recursesubdirs createallsubdirs; ;Source: "DataConvert\Dts_dll\dtspump.dll"; DestDir: "{app}\DataConvert\Dts_dll"; DestName: "dtspump.dll"; Flags: regserver noregerror;
Source: "UFCPAS4Office\UFSY4Protocol.exe"; DestDir: "{app}\UFCPAS4Office"; Flags: ignoreversion recursesubdirs createallsubdirs;BeforeInstall: ClearTargetDir(ExpandConstant('{app}\UFCPAS4Office'))
;注册Office加载项，[run]段也加入bat文件注册双保险 ;Source: "UFCPAS4Office\libeay32.dll"; DestDir: "{app}\UFCPAS4Office"; DestName: "libeay32.dll"; Flags: regserver noregerror; ;Source: "UFCPAS4Office\ssleay32.dll"; DestDir: "{app}\UFCPAS4Office"; DestName: "ssleay32.dll"; Flags: regserver noregerror; ;Office加载项换成新方式
;注册Office加载项，[run]段也加入bat文件注册双保险 ;Source: "UFCPAS4Office\UFCPAS4Office-32.dll"; DestDir: "{app}\UFCPAS4Office"; DestName: "UFCPAS4Office.dll"; Flags: regserver noregerror; Check: not IsOffice64 ;Source: "UFCPAS4Office\UFCPAS4Office-64.dll"; DestDir: "{app}\UFCPAS4Office"; DestName: "UFCPAS4Office.dll"; Flags: regserver noregerror; Check: IsOffice64 Source: "VSTO\*"; DestDir: "{app}\VSTO"; Flags: ignoreversion recursesubdirs createallsubdirs;
;注册UFSYA.ocx，[run]段也加入bat文件注册双保险 ;Source: "UFCPAS4Office\UFSYA-32.ocx"; DestDir: "{app}\UFCPAS4Office"; DestName: "UFSYA-32.ocx"; Flags: regserver noregerror 32bit; ;Source: "UFCPAS4Office\UFSYA-64.ocx"; DestDir: "{app}\UFCPAS4Office"; DestName: "UFSYA-64.ocx"; Flags: regserver noregerror 64bit; Check: IsWin64 Source: "UFCPAS4Office\UFSY4Protocol.exe"; DestDir: "{app}\UFCPAS4Office"; Flags: ignoreversion recursesubdirs createallsubdirs;BeforeInstall: ClearTargetDir(ExpandConstant('{app}\UFCPAS4Office'))
;注册Office加载项，[run]段也加入bat文件注册双保险
;Source: "UFCPAS4Office\UFCPAS4Office-32.dll"; DestDir: "{app}\UFCPAS4Office"; DestName: "UFCPAS4Office-32.dll"; Flags: regserver noregerror 32bit; ;Source: "UFCPAS4Office\libeay32.dll"; DestDir: "{app}\UFCPAS4Office"; DestName: "libeay32.dll"; Flags: regserver noregerror;
;Source: "UFCPAS4Office\UFCPAS4Office-64.dll"; DestDir: "{app}\UFCPAS4Office"; DestName: "UFCPAS4Office-64.dll"; Flags: regserver noregerror 64bit; Check: IsWin64 ;Source: "UFCPAS4Office\ssleay32.dll"; DestDir: "{app}\UFCPAS4Office"; DestName: "ssleay32.dll"; Flags: regserver noregerror;
;注册Office加载项，[run]段也加入bat文件注册双保险
Source: "Tools\cpas-office-tools.exe"; DestDir: "{app}\Tools"; Flags: ignoreversion recursesubdirs createallsubdirs ;Source: "UFCPAS4Office\UFCPAS4Office-32.dll"; DestDir: "{app}\UFCPAS4Office"; DestName: "UFCPAS4Office.dll"; Flags: regserver noregerror; Check: not IsOffice64
Source: "Tools\cpas-report-office-addin.msi"; DestDir: "{app}\Tools"; Flags: ignoreversion recursesubdirs createallsubdirs ;Source: "UFCPAS4Office\UFCPAS4Office-64.dll"; DestDir: "{app}\UFCPAS4Office"; DestName: "UFCPAS4Office.dll"; Flags: regserver noregerror; Check: IsOffice64
Source: "Tools\cpasReport.msi"; DestDir: "{app}\Tools"; Flags: ignoreversion recursesubdirs createallsubdirs ;注册UFSYA.ocx，[run]段也加入bat文件注册双保险
Source: "Tools\TBAnalyisi.db"; DestDir: "{app}\Tools"; Flags: ignoreversion recursesubdirs createallsubdirs ;Source: "UFCPAS4Office\UFSYA-32.ocx"; DestDir: "{app}\UFCPAS4Office"; DestName: "UFSYA-32.ocx"; Flags: regserver noregerror 32bit;
Source: "Tools\template.db"; DestDir: "{app}\Tools"; Flags: ignoreversion recursesubdirs createallsubdirs ;Source: "UFCPAS4Office\UFSYA-64.ocx"; DestDir: "{app}\UFCPAS4Office"; DestName: "UFSYA-64.ocx"; Flags: regserver noregerror 64bit; Check: IsWin64
Source: "Tools\DateSet.db"; DestDir: "{app}\Tools"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "Tools\dg.db"; DestDir: "{app}\Tools"; Flags: ignoreversion recursesubdirs createallsubdirs ;Source: "UFCPAS4Office\UFCPAS4Office-32.dll"; DestDir: "{app}\UFCPAS4Office"; DestName: "UFCPAS4Office-32.dll"; Flags: regserver noregerror 32bit;
Source: "Tools\dgfj.db"; DestDir: "{app}\Tools"; Flags: ignoreversion recursesubdirs createallsubdirs ;Source: "UFCPAS4Office\UFCPAS4Office-64.dll"; DestDir: "{app}\UFCPAS4Office"; DestName: "UFCPAS4Office-64.dll"; Flags: regserver noregerror 64bit; Check: IsWin64
Source: "Tools\BatchRefresh\Cpas6DgBatchRefresh.exe"; DestDir: "{app}\Tools\BatchRefresh"; Flags: ignoreversion recursesubdirs createallsubdirs Source: "Tools\cpas-office-tools.exe"; DestDir: "{app}\Tools"; Flags: ignoreversion recursesubdirs createallsubdirs
;UFCPAS6.0新增 Source: "Tools\cpas-report-office-addin.msi"; DestDir: "{app}\Tools"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "AppData\Files\报告模板\*"; DestDir: "{app}\AppData\Files\报告模板\"; Flags: ignoreversion recursesubdirs createallsubdirs Source: "Tools\cpasReport.msi"; DestDir: "{app}\Tools"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "AppData\Files\底稿模板\*"; DestDir: "{app}\AppData\Files\底稿模板\"; Flags: ignoreversion recursesubdirs createallsubdirs Source: "Tools\TBAnalyisi.db"; DestDir: "{app}\Tools"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "Tools\cpas-office-tools.exe"; DestDir: "{app}\Tools"; Flags: ignoreversion recursesubdirs createallsubdirs Source: "cpas-apps\*"; DestDir: "{app}\cpas-apps"; Flags: ignoreversion recursesubdirs createallsubdirs ;Source: "cpas-apps\db-config.json"; DestDir: "{app}\cpas-apps"; Flags: ignoreversion recursesubdirs createallsubdirs Source: "Tools\template.db"; DestDir: "{app}\Tools"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "cpas-apps\app-config.json"; DestDir: "{app}\cpas-apps"; Flags: ignoreversion recursesubdirs createallsubdirs Source: "Tools\DateSet.db"; DestDir: "{app}\Tools"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "cpas-apps\user-config.json"; DestDir: "{app}\cpas-apps"; Flags: ignoreversion recursesubdirs createallsubdirs Source: "Tools\dg.db"; DestDir: "{app}\Tools"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "Tools\dgfj.db"; DestDir: "{app}\Tools"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "locales\zh-CN.pak"; DestDir: "{app}\locales"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "locales\en-US.pak"; DestDir: "{app}\locales"; Flags: ignoreversion recursesubdirs createallsubdirs Source: "Tools\BatchRefresh\Cpas6DgBatchRefresh.exe"; DestDir: "{app}\Tools\BatchRefresh"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "locales\zh-TW.pak"; DestDir: "{app}\locales"; Flags: ignoreversion recursesubdirs createallsubdirs ;UFCPAS6.0新增
Source: "resources\*"; DestDir: "{app}\resources"; Flags: ignoreversion recursesubdirs createallsubdirs ;Source: "AppData\Files\报告模板\*"; DestDir: "{app}\AppData\Files\报告模板\"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "libeay32.dll"; DestDir: "{app}"; Flags: regserver noregerror ;Source: "AppData\Files\底稿模板\*"; DestDir: "{app}\AppData\Files\底稿模板\"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "ssleay32.dll"; DestDir: "{app}"; Flags: regserver noregerror ;Source: "Tools\cpas-office-tools.exe"; DestDir: "{app}\Tools"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "swiftshader\*"; DestDir: "{app}\swiftshader"; Flags: ignoreversion recursesubdirs createallsubdirs Source: "cpas-apps\*"; DestDir: "{app}\cpas-apps"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "chrome_100_percent.pak"; DestDir: "{app}"; Flags: ignoreversion ;Source: "cpas-apps\db-config.json"; DestDir: "{app}\cpas-apps"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "chrome_200_percent.pak"; DestDir: "{app}"; Flags:ignoreversion ;Source: "cpas-apps\app-config.json"; DestDir: "{app}\cpas-apps"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "cpas-WorkPlatform.exe"; DestDir: "{app}"; Flags: ignoreversion ;Source: "cpas-apps\user-config.json"; DestDir: "{app}\cpas-apps"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "d3dcompiler_47.dll"; DestDir: "{app}"; Flags: ignoreversion
;Source: "ffmpeg.dll"; DestDir: "{app}"; Flags: ignoreversion ;Source: "locales\zh-CN.pak"; DestDir: "{app}\locales"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "icudtl.dat"; DestDir: "{app}"; Flags: ignoreversion ;Source: "locales\en-US.pak"; DestDir: "{app}\locales"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "libEGL.dll"; DestDir: "{app}"; Flags: ignoreversion ;Source: "locales\zh-TW.pak"; DestDir: "{app}\locales"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "libGLESv2.dll"; DestDir: "{app}"; Flags: ignoreversion Source: "resources\*"; DestDir: "{app}\resources"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "LICENSE.electron.txt"; DestDir: "{app}"; Flags: ignoreversion Source: "libeay32.dll"; DestDir: "{app}"; Flags: regserver noregerror
;Source: "LICENSES.chromium.html"; DestDir: "{app}"; Flags: ignoreversion Source: "ssleay32.dll"; DestDir: "{app}"; Flags: regserver noregerror
;Source: "resources.pak"; DestDir: "{app}"; Flags: ignoreversion ;Source: "swiftshader\*"; DestDir: "{app}\swiftshader"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "snapshot_blob.bin"; DestDir: "{app}"; Flags: ignoreversion ;Source: "chrome_100_percent.pak"; DestDir: "{app}"; Flags: ignoreversion
;Source: "start-日志.bat"; DestDir: "{app}"; Flags: ignoreversion ;Source: "chrome_200_percent.pak"; DestDir: "{app}"; Flags:ignoreversion
;Source: "v8_context_snapshot.bin"; DestDir: "{app}"; Flags: ignoreversion ;Source: "cpas-WorkPlatform.exe"; DestDir: "{app}"; Flags: ignoreversion
;Source: "vk_swiftshader.dll"; DestDir: "{app}"; Flags: ignoreversion ;Source: "d3dcompiler_47.dll"; DestDir: "{app}"; Flags: ignoreversion
;Source: "vk_swiftshader_icd.json"; DestDir: "{app}"; Flags: ignoreversion ;Source: "ffmpeg.dll"; DestDir: "{app}"; Flags: ignoreversion
;Source: "icudtl.dat"; DestDir: "{app}"; Flags: ignoreversion
;创建空目录 ;Source: "libEGL.dll"; DestDir: "{app}"; Flags: ignoreversion
[Dirs] ;Source: "libGLESv2.dll"; DestDir: "{app}"; Flags: ignoreversion
;Source: "LICENSE.electron.txt"; DestDir: "{app}"; Flags: ignoreversion
[Run] ;Source: "LICENSES.chromium.html"; DestDir: "{app}"; Flags: ignoreversion
Filename: "msiexec";StatusMsg: "正在卸载cpas-report-office-addin.msi加载项"; Parameters: "/x ""{app}\Tools\cpas-report-office-addin.msi"" /qn /lv ""{app}\Tools\cpas-report-office-addin卸载日志.log"""; WorkingDir: "{app}"; ;Source: "resources.pak"; DestDir: "{app}"; Flags: ignoreversion
;Filename: "msiexec";StatusMsg: "正在安装UFCPAS6加载项"; Parameters: "/i ""{app}\Tools\cpas-report-office-addin.msi"" IACCEPTSQLNCLILICENSETERMS=YES /passive /lv ""{app}\Tools\cpas-report-office-addin安装日志.log"""; WorkingDir: "{app}"; Flags:runhidden; ;Source: "snapshot_blob.bin"; DestDir: "{app}"; Flags: ignoreversion
;Source: "start-日志.bat"; DestDir: "{app}"; Flags: ignoreversion
Filename: "msiexec";StatusMsg: "正在安装UFCPAS6.1加载项"; Parameters: "/i ""{app}\Tools\cpasReport.msi"" IACCEPTSQLNCLILICENSETERMS=YES /passive /lv ""{app}\Tools\cpas-report-office-addin6-cpasReport安装日志.log"""; WorkingDir: "{app}"; Flags:runhidden; ;Source: "v8_context_snapshot.bin"; DestDir: "{app}"; Flags: ignoreversion
;双重注册 ;注册Office加载项，[file]段也加入bat文件注册双保险 ;Source: "vk_swiftshader.dll"; DestDir: "{app}"; Flags: ignoreversion
;Filename: "{app}\UFCPAS4Office\32位Office请执行我.bat"; Parameters: "notpause"; WorkingDir: "{app}\UFCPAS4Office"; Flags:runhidden nowait runasoriginaluser 32bit; Check: not IsOffice64; ;Source: "vk_swiftshader_icd.json"; DestDir: "{app}"; Flags: ignoreversion
;Filename: "{app}\UFCPAS4Office\64位Office请执行我.bat"; Parameters: "notpause"; WorkingDir: "{app}\UFCPAS4Office"; Flags:runhidden nowait runasoriginaluser 64bit; Check: IsOffice64;
;Filename: "{app}\UFCPAS4Office\注册Office加载项6.exe" ; Parameters: "-s"; WorkingDir: "{app}\UFCPAS4Office"; ;创建空目录
;Filename: "msiexec";StatusMsg: "正在安装UFCPAS6加载项"; Parameters: "/i ""{app}\Tools\cpas-report-office-addin.msi"" IACCEPTSQLNCLILICENSETERMS=YES /passive /lv ""{app}\Tools\cpas-report-office-addin安装日志.log"""; WorkingDir: "{app}"; Flags:runhidden; [Dirs]
Filename: "{app}\VSTO\RegeditVSTO.exe" ; Parameters: ""; WorkingDir: "{app}\VSTO";
[Run]
[Languages] Filename: "msiexec";StatusMsg: "正在卸载cpas-report-office-addin.msi加载项"; Parameters: "/x ""{app}\Tools\cpas-report-office-addin.msi"" /qn /lv ""{app}\Tools\cpas-report-office-addin卸载日志.log"""; WorkingDir: "{app}";
Name: "chinesesimp"; MessagesFile: "compiler:Default.isl" ;Filename: "msiexec";StatusMsg: "正在安装UFCPAS6加载项"; Parameters: "/i ""{app}\Tools\cpas-report-office-addin.msi"" IACCEPTSQLNCLILICENSETERMS=YES /passive /lv ""{app}\Tools\cpas-report-office-addin安装日志.log"""; WorkingDir: "{app}"; Flags:runhidden;
[Code] Filename: "msiexec";StatusMsg: "正在安装UFCPAS6.1加载项"; Parameters: "/i ""{app}\Tools\cpasReport.msi"" IACCEPTSQLNCLILICENSETERMS=YES /passive /lv ""{app}\Tools\cpas-report-office-addin6-cpasReport安装日志.log"""; WorkingDir: "{app}"; Flags:runhidden;
function KillExe(Exename: PChar):integer; external 'KillExe@files:UFCPASSetupDll.dll stdcall setuponly'; ;双重注册 ;注册Office加载项，[file]段也加入bat文件注册双保险
function ProcessIsRun(Exename: PChar):boolean; external 'ProcessIsRun@files:UFCPASSetupDll.dll stdcall setuponly'; ;Filename: "{app}\UFCPAS4Office\32位Office请执行我.bat"; Parameters: "notpause"; WorkingDir: "{app}\UFCPAS4Office"; Flags:runhidden nowait runasoriginaluser 32bit; Check: not IsOffice64;
function GetExcelIsWin64(): Boolean; external 'GetExcelIsWin64@files:UFCPASSetupDll.dll stdcall setuponly'; ;Filename: "{app}\UFCPAS4Office\64位Office请执行我.bat"; Parameters: "notpause"; WorkingDir: "{app}\UFCPAS4Office"; Flags:runhidden nowait runasoriginaluser 64bit; Check: IsOffice64;
procedure ClearTargetDir(TargetDir: string); ;Filename: "{app}\UFCPAS4Office\注册Office加载项6.exe" ; Parameters: "-s"; WorkingDir: "{app}\UFCPAS4Office";
begin ;Filename: "msiexec";StatusMsg: "正在安装UFCPAS6加载项"; Parameters: "/i ""{app}\Tools\cpas-report-office-addin.msi"" IACCEPTSQLNCLILICENSETERMS=YES /passive /lv ""{app}\Tools\cpas-report-office-addin安装日志.log"""; WorkingDir: "{app}"; Flags:runhidden;
Log('清空目录判断逻辑执行: ' + TargetDir) Filename: "{app}\VSTO\RegeditVSTO.exe" ; Parameters: ""; WorkingDir: "{app}\VSTO";
if DirExists(TargetDir) then
begin [Languages]
// 删除所有文件和子目录 Name: "chinesesimp"; MessagesFile: "compiler:Default.isl"
if DelTree(TargetDir, True, True, True) then
Log('成功清空目录: ' + TargetDir) [Code]
else function KillExe(Exename: PChar):integer; external 'KillExe@files:UFCPASSetupDll.dll stdcall setuponly';
Log('清空目录失败: ' + TargetDir); function ProcessIsRun(Exename: PChar):boolean; external 'ProcessIsRun@files:UFCPASSetupDll.dll stdcall setuponly';
end; function GetExcelIsWin64(): Boolean; external 'GetExcelIsWin64@files:UFCPASSetupDll.dll stdcall setuponly';
end; procedure ClearTargetDir(TargetDir: string);
var begin
LocalIsOffice64 :boolean; Log('清空目录判断逻辑执行: ' + TargetDir)
//换个函数，直接使用GetExcelIsWin64函数，会报can't call proc if DirExists(TargetDir) then
function IsOffice64(): boolean; begin
begin // 删除所有文件和子目录
//不能使用方法,直接不行 result := LocalIsOffice64 if DelTree(TargetDir, True, True, True) then
if LocalIsOffice64 then Log('成功清空目录: ' + TargetDir)
result := true else
else Log('清空目录失败: ' + TargetDir);
result := false; end;
end; end;
var
function GetDefaultDir(Param: String): String; LocalIsOffice64 :boolean;
var //换个函数，直接使用GetExcelIsWin64函数，会报can't call proc
OldPath,NewDrive:String; function IsOffice64(): boolean;
C_FreeMB, C_TotalMB,T_FreeMB:Cardinal; begin
i:integer; //不能使用方法,直接不行 result := LocalIsOffice64
begin if LocalIsOffice64 then
if RegQueryStringValue(HKEY_USERS, '.default\software\'+ExpandConstant('{#MyAppRegName6}'),'Path', OldPath) then result := true
begin //如果安装过,覆盖安装 else
Result := OldPath; result := false;
end else end;
begin
T_FreeMB:=0; NewDrive:='C:\'; function GetDefaultDir(Param: String): String;
C_FreeMB:=0; C_TotalMB:=0; var
for i:=67 to 77 do //c:~K:\ 哪个盘空间大,就默认选择哪个盘 OldPath,NewDrive:String;
begin C_FreeMB, C_TotalMB,T_FreeMB:Cardinal;
GetSpaceOnDisk(Chr(i)+':\', True, C_FreeMB, C_TotalMB); i:integer;
if C_FreeMB>T_FreeMB then begin
begin if RegQueryStringValue(HKEY_USERS, '.default\software\'+ExpandConstant('{#MyAppRegName6}'),'Path', OldPath) then
T_FreeMB:=C_FreeMB; begin //如果安装过,覆盖安装
NewDrive:=Chr(i)+':\'; Result := OldPath;
end; end else
end; begin
result:=NewDrive+ExpandConstant('{#MyAppEnName6}'); T_FreeMB:=0; NewDrive:='C:\';
end; C_FreeMB:=0; C_TotalMB:=0;
for i:=67 to 77 do //c:~K:\ 哪个盘空间大,就默认选择哪个盘
end; begin
function HasInstallOld():boolean; GetSpaceOnDisk(Chr(i)+':\', True, C_FreeMB, C_TotalMB);
var if C_FreeMB>T_FreeMB then
aExeName:string ; begin
begin T_FreeMB:=C_FreeMB;
result:= false; NewDrive:=Chr(i)+':\';
aExeName := GetDefaultDir('')+'\'+ExpandConstant('{#MyAppExeName6}') ; end;
result:=FileExists(aExeName) ; end;
if not result then result:=NewDrive+ExpandConstant('{#MyAppEnName6}');
MsgBox('不能安装更新,本机未安装审计软件。',mbInformation, MB_OK); end;
end;
end;
function InitializeSetup (): Boolean; function HasInstallOld():boolean;
begin var
LocalIsOffice64 := GetExcelIsWin64(); aExeName:string ;
result:=HasInstallOld(); begin
end; result:= false;
function GetSQLClientIsInstall():boolean; aExeName := GetDefaultDir('')+'\'+ExpandConstant('{#MyAppExeName6}') ;
begin result:=FileExists(aExeName) ;
result:= RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Classes\CLSID\{8F4A6B68-4F36-4e3c-BE81-BC7CA4E9C45C}\ProgID'); if not result then
MsgBox('不能安装更新,本机未安装审计软件。',mbInformation, MB_OK);
end; end;
//默认安装路径
function InitializeSetup (): Boolean;
begin
procedure CurPageChanged ( CurPageID : Integer); LocalIsOffice64 := GetExcelIsWin64();
begin result:=HasInstallOld();
end;
end; function GetSQLClientIsInstall():boolean;
//安装完成时 begin
procedure CurStepChanged(CurStep: TSetupStep);//设置日期格式,生效,日期格式是在 [Registry] 段设置的 result:= RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Classes\CLSID\{8F4A6B68-4F36-4e3c-BE81-BC7CA4E9C45C}\ProgID');
var ResultCode:integer;
workdir:string; end;
begin //默认安装路径
if CurStep = ssPostInstall then
begin
PostMessage (HWND_BROADCAST,$001A, 0,0);//$001A=WM_SETTINGCHANGE SendMessage hui si ji procedure CurPageChanged ( CurPageID : Integer);
end begin
else
if CurStep=ssInstall then end;
begin //安装完成时
Exec('net', ExpandConstant('stop {#SQL_INSTANCE}'), '', SW_Hide,ewWaitUntilTerminated, ResultCode) procedure CurStepChanged(CurStep: TSetupStep);//设置日期格式,生效,日期格式是在 [Registry] 段设置的
DelTree(ExpandConstant('{app}\AppData\Files\询证函模板'), False, True, True); //询证函模板 需清楚旧模板 var ResultCode:integer;
end else workdir:string;
if CurStep=ssDone then begin
begin //暂时不行,找不到bpl if CurStep = ssPostInstall then
workdir := ExpandConstant('{app}\SysBpl'); begin
ShellExec('',ExpandConstant('{app}\{#MyAppExeName6}'),'',workdir, SW_Show,ewNoWait, ResultCode) PostMessage (HWND_BROADCAST,$001A, 0,0);//$001A=WM_SETTINGCHANGE SendMessage hui si ji
end
else
end; if CurStep=ssInstall then
begin
end; Exec('net', ExpandConstant('stop {#SQL_INSTANCE}'), '', SW_Hide,ewWaitUntilTerminated, ResultCode)
DelTree(ExpandConstant('{app}\AppData\Files\询证函模板'), False, True, True); //询证函模板 需清楚旧模板
//非法字符可能引起SQLServer语句出现问题 add by csb 2017-10-30 end else
function ExistsInvalidChar(str:string):boolean; if CurStep=ssDone then
begin begin //暂时不行,找不到bpl
result := (pos('''', str) >0 ) workdir := ExpandConstant('{app}\SysBpl');
or (pos('!', str) >0 ) ShellExec('',ExpandConstant('{app}\{#MyAppExeName6}'),'',workdir, SW_Show,ewNoWait, ResultCode)
or (pos('*', str) >0 )
or (pos('?', str) >0 )
or (pos('"', str) >0 ) end;
or (pos('<', str) >0 )
or (pos('>', str) >0 ) ; end;
//非法字符可能引起SQLServer语句出现问题 add by csb 2017-10-30
end; function ExistsInvalidChar(str:string):boolean;
begin
function NextButtonClick ( CurPageID : Integer): Boolean; result := (pos('''', str) >0 )
var or (pos('!', str) >0 )
aProcessIsRun:boolean; or (pos('*', str) >0 )
begin or (pos('?', str) >0 )
//MsgBox(IntToStr(CurPageID), mbInformation, MB_OK); or (pos('"', str) >0 )
if (CurPageID = wpSelectDir) then//选择路径的界面,点击下一步时执行 add by csb 2017-10-30 or (pos('<', str) >0 )
begin or (pos('>', str) >0 ) ;
//MsgBox('1',mbInformation, MB_OK);
result :=not ExistsInvalidChar(ExpandConstant('{app}'));
if not result then end;
MsgBox('文件夹名不能包含下列任何字符:'+#13#10+#13#10+'/ : * ? " < > | '' ! ', mbCriticalError, MB_OK);
end function NextButtonClick ( CurPageID : Integer): Boolean;
else if CurPageID = wpWelcome then var
begin aProcessIsRun:boolean;
result := true; begin
aProcessIsRun := ProcessIsRun('{#MyAppExeName6}') or ProcessIsRun('UFCPAS4.exe') or ProcessIsRun('CpasCloudSvr.exe') //MsgBox(IntToStr(CurPageID), mbInformation, MB_OK);
or ProcessIsRun('ProjectManager.exe') ; if (CurPageID = wpSelectDir) then//选择路径的界面,点击下一步时执行 add by csb 2017-10-30
if aProcessIsRun then begin
begin //MsgBox('1',mbInformation, MB_OK);
result := ( MsgBox('必须关闭正在运行的审计软件才能继续，是否关闭正在运行的软件？', mbConfirmation, MB_YESNO) = IDYES ); result :=not ExistsInvalidChar(ExpandConstant('{app}'));
if result then if not result then
begin MsgBox('文件夹名不能包含下列任何字符:'+#13#10+#13#10+'/ : * ? " < > | '' ! ', mbCriticalError, MB_OK);
KillExe('{#MyAppExeName6}'); end
KillExe('UFCPAS4.exe'); else if CurPageID = wpWelcome then
KillExe('ProjectManager.exe'); begin
KillExe('CpasCloudSvr.exe'); result := true;
end aProcessIsRun := ProcessIsRun('{#MyAppExeName6}') or ProcessIsRun('UFCPAS4.exe') or ProcessIsRun('CpasCloudSvr.exe')
end; or ProcessIsRun('ProjectManager.exe') ;
end if aProcessIsRun then
else begin begin
//MsgBox('3',mbInformation, MB_OK); result := ( MsgBox('必须关闭正在运行的审计软件才能继续，是否关闭正在运行的软件？', mbConfirmation, MB_YESNO) = IDYES );
result := true; if result then
end; begin
KillExe('{#MyAppExeName6}');
KillExe('UFCPAS4.exe');
KillExe('ProjectManager.exe');
KillExe('CpasCloudSvr.exe');
end
end;
end
else begin
//MsgBox('3',mbInformation, MB_OK);
result := true;
end;
end; end;
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment