399 lines
17 KiB
Plaintext
399 lines
17 KiB
Plaintext
|
; Script generated by the Inno Setup Script Wizard.
|
||
|
|
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
|
||
|
|
|
||
|
|
#define MyAppName "Envi3D Design System 中广核"
|
||
|
|
#define MyAppPublisher "ShangHuaSoft, Inc."
|
||
|
|
#define MyAppURL "http://www.shanghuasoft.com/"
|
||
|
|
#define MyAppExeName "Envi3D.exe"
|
||
|
|
#define DateTime GetDateTimeString('(yyyy.mm.dd-hh.nn)', '-', ':')
|
||
|
|
#define INIDateTime GetDateTimeString('yyyymmddhhnn', '', '')
|
||
|
|
|
||
|
|
#define PROFILES "SHS-ENVI"
|
||
|
|
#define VERSION "2026"
|
||
|
|
#define APPVER "V7.0"
|
||
|
|
#define PACKAGE_PATH "..\Original-File\environment"
|
||
|
|
#define ENAME "Envi3D"
|
||
|
|
|
||
|
|
;一定是这种格式 {#ENAME} + "-" + {#VERSION}
|
||
|
|
#define APPDATA "\ShangHuaSoft\Envi3D-2026"
|
||
|
|
|
||
|
|
#define REG_KEY "Software\Autodesk\AutoCAD\R"
|
||
|
|
; 64bit 操作系统 安装了 R17平台的32bitCAD 用下面的key
|
||
|
|
#define REG_KEY2 "Software\WOW6432Node\Autodesk\AutoCAD\R"
|
||
|
|
|
||
|
|
[Setup]
|
||
|
|
AppId={{2A58973C-CB12-4D30-896A-2F7D5A4FE35B}
|
||
|
|
AppName={#MyAppName}
|
||
|
|
AppVersion={#APPVER}
|
||
|
|
AppPublisher={#MyAppPublisher}
|
||
|
|
AppPublisherURL={#MyAppURL}
|
||
|
|
AppSupportURL={#MyAppURL}
|
||
|
|
AppUpdatesURL={#MyAppURL}
|
||
|
|
DefaultDirName={sd}{#APPDATA}
|
||
|
|
DisableProgramGroupPage=yes
|
||
|
|
OutputDir=..\Output-File
|
||
|
|
OutputBaseFilename=中广核专版-Envi3D{#VERSION}{#DateTime}
|
||
|
|
SetupIconFile={#PACKAGE_PATH}\sys\poolplant.ico
|
||
|
|
Compression=lzma
|
||
|
|
SolidCompression=yes
|
||
|
|
DisableDirPage=no
|
||
|
|
;Uninstallable=no
|
||
|
|
PrivilegesRequired=admin
|
||
|
|
ArchitecturesInstallIn64BitMode=x64
|
||
|
|
;修改左侧图片（大）
|
||
|
|
;WizardImageFile=dh.bmp
|
||
|
|
;修改右上角图片（小）
|
||
|
|
;WizardSmallImageFile=xx.bmp
|
||
|
|
UsePreviousTasks=no
|
||
|
|
|
||
|
|
|
||
|
|
[Languages]
|
||
|
|
;Name: "Chinese"; MessagesFile: "compiler:Languages\ChineseSimplified.isl"
|
||
|
|
|
||
|
|
[Tasks]
|
||
|
|
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: checkablealone
|
||
|
|
Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked; OnlyBelowVersion: 0,6.1
|
||
|
|
Name: "remote" ; Description:"集团授权";GroupDescription: "选择授权"; Flags: exclusive;
|
||
|
|
Name: "local" ; Description:"单机授权";GroupDescription: "选择授权"; Flags: exclusive
|
||
|
|
Name: "overwriteDB" ; Description:"覆盖当前用户数据";GroupDescription: "安装选项"; Flags: unchecked
|
||
|
|
|
||
|
|
[Files]
|
||
|
|
Source: "{#PACKAGE_PATH}\StartApp.exe"; DestDir: "{app}\"; DestName: "{#MyAppExeName}"; Flags: ignoreversion
|
||
|
|
Source: "{#PACKAGE_PATH}\INIFileParser.dll"; DestDir: "{app}\"; Flags: ignoreversion
|
||
|
|
Source: "{#PACKAGE_PATH}\上华软件-集团服务器设置工具.exe"; DestDir: "{app}\"; Flags: ignoreversion;Tasks: remote
|
||
|
|
Source: "{#PACKAGE_PATH}\上华软件-授权管理工具.exe"; DestDir: "{app}\"; Flags: ignoreversion;Tasks: local
|
||
|
|
Source: "{#PACKAGE_PATH}\demo\*"; DestDir: "{app}\demo\"; Flags: ignoreversion recursesubdirs createallsubdirs onlyifdoesntexist
|
||
|
|
Source: "{#PACKAGE_PATH}\AsdkHlrDbx\*"; DestDir: "{app}\AsdkHlrDbx\"; Flags: ignoreversion recursesubdirs createallsubdirs onlyifdoesntexist
|
||
|
|
Source: "{#PACKAGE_PATH}\drawframe\*"; DestDir: "{app}\drawframe\"; Flags: ignoreversion recursesubdirs createallsubdirs onlyifdoesntexist
|
||
|
|
Source: "{#PACKAGE_PATH}\temp\*"; DestDir: "{app}\temp\"; Flags: ignoreversion recursesubdirs createallsubdirs onlyifdoesntexist
|
||
|
|
Source: "{#PACKAGE_PATH}\mdlapps\*"; DestDir: "{app}\mdlapps\"; Flags: ignoreversion recursesubdirs createallsubdirs onlyifdoesntexist
|
||
|
|
Source: "{#PACKAGE_PATH}\Equipment2D\*"; DestDir: "{app}\Equipment2D\"; Flags: ignoreversion recursesubdirs createallsubdirs onlyifdoesntexist
|
||
|
|
Source: "{#PACKAGE_PATH}\help\*"; DestDir: "{app}\help\"; Flags: ignoreversion recursesubdirs createallsubdirs onlyifdoesntexist uninsneveruninstall
|
||
|
|
|
||
|
|
Source: "{#PACKAGE_PATH}\Support\*"; DestDir: "{app}\Support\"; Flags: ignoreversion recursesubdirs createallsubdirs uninsneveruninstall; Tasks: overwriteDB
|
||
|
|
Source: "{#PACKAGE_PATH}\dwb\*"; DestDir: "{app}\dwb\"; Flags: ignoreversion recursesubdirs createallsubdirs uninsneveruninstall; Tasks: overwriteDB
|
||
|
|
Source: "{#PACKAGE_PATH}\tk\*"; DestDir: "{app}\tk\"; Flags: ignoreversion recursesubdirs createallsubdirs uninsneveruninstall; Tasks: overwriteDB
|
||
|
|
|
||
|
|
Source: "{#PACKAGE_PATH}\Support\*"; DestDir: "{app}\Support\"; Flags: ignoreversion recursesubdirs createallsubdirs onlyifdoesntexist uninsneveruninstall; Tasks: not overwriteDB
|
||
|
|
Source: "{#PACKAGE_PATH}\dwb\*"; DestDir: "{app}\dwb\"; Flags: ignoreversion recursesubdirs createallsubdirs onlyifdoesntexist uninsneveruninstall; Tasks: not overwriteDB
|
||
|
|
Source: "{#PACKAGE_PATH}\tk\*"; DestDir: "{app}\tk\"; Flags: ignoreversion recursesubdirs createallsubdirs onlyifdoesntexist uninsneveruninstall; Tasks: not overwriteDB
|
||
|
|
|
||
|
|
;sys目录下文件比较复杂，在此一一说明
|
||
|
|
;*.db文件为用户数据文件，不要求覆盖
|
||
|
|
;dict.xml文件专版用户需要使用，不要求覆盖
|
||
|
|
|
||
|
|
;拷贝所有sys内的文件，覆盖
|
||
|
|
Source: "{#PACKAGE_PATH}\sys\*"; DestDir: "{app}\sys\";Flags: ignoreversion recursesubdirs createallsubdirs;Excludes: "pp3d-*.mnu,*pp3d-.dll,*.db,shs-zw.cuix,shs-zw.dll,poolplant_zw.ico"
|
||
|
|
|
||
|
|
;单独处里以下类型文件，不覆盖原有文件
|
||
|
|
Source: "{#PACKAGE_PATH}\sys\*.db"; DestDir: "{app}\sys\"; Flags: ignoreversion recursesubdirs createallsubdirs uninsneveruninstall; Tasks: overwriteDB
|
||
|
|
Source: "{#PACKAGE_PATH}\sys\*.db"; DestDir: "{app}\sys\"; Flags: ignoreversion recursesubdirs createallsubdirs uninsneveruninstall onlyifdoesntexist; Tasks: not overwriteDB
|
||
|
|
|
||
|
|
;arx文件
|
||
|
|
Source: "{#PACKAGE_PATH}\[v90][x64]\*"; DestDir: "{app}\sys18x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64
|
||
|
|
;Source: "{#PACKAGE_PATH}\[v100][x64]\*"; DestDir: "{app}\sys19x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64
|
||
|
|
;Source: "{#PACKAGE_PATH}\[v110][x64]\*"; DestDir: "{app}\sys20x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64
|
||
|
|
;Source: "{#PACKAGE_PATH}\[v140][x64]\*"; DestDir: "{app}\sys21x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64
|
||
|
|
;Source: "{#PACKAGE_PATH}\[v140R22][x64]\*"; DestDir: "{app}\sys22x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64
|
||
|
|
;Source: "{#PACKAGE_PATH}\[v141][x64]\*"; DestDir: "{app}\sys23x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64
|
||
|
|
;Source: "{#PACKAGE_PATH}\[v142][x64]\*"; DestDir: "{app}\sys24x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64
|
||
|
|
;Source: "{#PACKAGE_PATH}\[v143][x64]\*"; DestDir: "{app}\sys25x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64
|
||
|
|
|
||
|
|
;arx加密文件
|
||
|
|
Source: "{#PACKAGE_PATH}\BAL_REMOTE\[v90][x64]\*"; DestDir: "{app}\sys18x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64; Tasks: remote
|
||
|
|
;Source: "{#PACKAGE_PATH}\BAL_REMOTE\[v100][x64]\*"; DestDir: "{app}\sys19x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64; Tasks: remote
|
||
|
|
;Source: "{#PACKAGE_PATH}\BAL_REMOTE\[v110][x64]\*"; DestDir: "{app}\sys20x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64; Tasks: remote
|
||
|
|
;Source: "{#PACKAGE_PATH}\BAL_REMOTE\[v140][x64]\*"; DestDir: "{app}\sys21x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64; Tasks: remote
|
||
|
|
;Source: "{#PACKAGE_PATH}\BAL_REMOTE\[v140R22][x64]\*"; DestDir: "{app}\sys22x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64; Tasks: remote
|
||
|
|
;Source: "{#PACKAGE_PATH}\BAL_REMOTE\[v141][x64]\*"; DestDir: "{app}\sys23x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64; Tasks: remote
|
||
|
|
;Source: "{#PACKAGE_PATH}\BAL_REMOTE\[v142][x64]\*"; DestDir: "{app}\sys24x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64; Tasks: remote
|
||
|
|
;Source: "{#PACKAGE_PATH}\BAL_REMOTE\[v143][x64]\*"; DestDir: "{app}\sys25x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64; Tasks: remote
|
||
|
|
|
||
|
|
Source: "{#PACKAGE_PATH}\BAL_LOCAL\[v90][x64]\*"; DestDir: "{app}\sys18x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64; Tasks: local
|
||
|
|
;Source: "{#PACKAGE_PATH}\BAL_LOCAL\[v100][x64]\*"; DestDir: "{app}\sys19x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64; Tasks: local
|
||
|
|
;Source: "{#PACKAGE_PATH}\BAL_LOCAL\[v110][x64]\*"; DestDir: "{app}\sys20x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64; Tasks: local
|
||
|
|
;Source: "{#PACKAGE_PATH}\BAL_LOCAL\[v140][x64]\*"; DestDir: "{app}\sys21x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64; Tasks: local
|
||
|
|
;Source: "{#PACKAGE_PATH}\BAL_LOCAL\[v140R22][x64]\*"; DestDir: "{app}\sys22x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64; Tasks: local
|
||
|
|
;Source: "{#PACKAGE_PATH}\BAL_LOCAL\[v141][x64]\*"; DestDir: "{app}\sys23x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64; Tasks: local
|
||
|
|
;Source: "{#PACKAGE_PATH}\BAL_LOCAL\[v142][x64]\*"; DestDir: "{app}\sys24x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64; Tasks: local
|
||
|
|
;Source: "{#PACKAGE_PATH}\BAL_LOCAL\[v143][x64]\*"; DestDir: "{app}\sys25x64\"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsWin64; Tasks: local
|
||
|
|
|
||
|
|
;拷贝 programData内的数据到{commonappdata}内,只有不存在时，并且不卸载
|
||
|
|
Source: "{#PACKAGE_PATH}\programdata\*"; DestDir: "{userappdata}{#APPDATA}\";Flags: ignoreversion recursesubdirs createallsubdirs uninsneveruninstall
|
||
|
|
|
||
|
|
[Registry]
|
||
|
|
Root: HKLM; Subkey: "Software\ShangHuaSoft\Environment"; ValueType: string; ValueName: "InstallPath"; ValueData: "{app}"; Flags: uninsdeletekey
|
||
|
|
|
||
|
|
[Icons]
|
||
|
|
Name: "{commonprograms}\{#MyAppName} {#APPVER}"; Filename: "{app}\{#MyAppExeName}"
|
||
|
|
Name: "{commondesktop}\{#MyAppName} {#APPVER}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
|
||
|
|
|
||
|
|
[Run]
|
||
|
|
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
|
||
|
|
|
||
|
|
[LangOptions]
|
||
|
|
LanguageID=$0804
|
||
|
|
|
||
|
|
[INI]
|
||
|
|
Filename: "{app}\sys\product.ini"; Section: "Product"; Key: "CName"; String: "Envi3D"
|
||
|
|
Filename: "{app}\sys\product.ini"; Section: "Product"; Key: "EName"; String: {#ENAME}
|
||
|
|
Filename: "{app}\sys\product.ini"; Section: "Product"; Key: "ProfilesName"; String: {#PROFILES};
|
||
|
|
Filename: "{app}\sys\product.ini"; Section: "Product"; Key: "Version"; String: {#VERSION};
|
||
|
|
Filename: "{app}\sys\product.ini"; Section: "Product"; Key: "APPVer"; String: {#APPVER};
|
||
|
|
Filename: "{app}\sys\product.ini"; Section: "Product"; Key: "SubVer"; String: Build{#INIDateTime};
|
||
|
|
Filename: "{app}\sys\product.ini"; Section: "MENUS"; Key: "env-pid"; String: "工艺流程";
|
||
|
|
Filename: "{app}\sys\product.ini"; Section: "MENUS"; Key: "env-plot-plan"; String: "总图设计";
|
||
|
|
Filename: "{app}\sys\product.ini"; Section: "MENUS"; Key: "env-arch"; String: "土建设计";
|
||
|
|
Filename: "{app}\sys\product.ini"; Section: "MENUS"; Key: "env-pipe"; String: "工艺管道";
|
||
|
|
Filename: "{app}\sys\product.ini"; Section: "MENUS"; Key: "env-hvac-elec"; String: "暖通电气";
|
||
|
|
Filename: "{app}\sys\product.ini"; Section: "MENUS"; Key: "env-statistic-plot"; String: "统计出图";
|
||
|
|
Filename: "{app}\sys\product.ini"; Section: "MENUS"; Key: "env-digital-collaboration"; String: "数字协同";
|
||
|
|
Filename: "{app}\sys\product.ini"; Section: "Product"; Key: "CADVer"; String: "18:18";
|
||
|
|
Filename: "{app}\sys\product.ini"; Section: "Product"; Key: "IconFile"; String: "poolplant.ico";
|
||
|
|
|
||
|
|
[Messages]
|
||
|
|
ButtonFinish=完成(&F)
|
||
|
|
|
||
|
|
[InstallDelete]
|
||
|
|
Type: files; Name: "{userappdata}{#APPDATA}\*.dat"
|
||
|
|
;确保efeTemplete.dt ewnode2d.db 两个文件不在 水处理 安装目录下
|
||
|
|
Type: files; Name: "{app}\sys\efeTemplete.db"
|
||
|
|
Type: files; Name: "{app}\sys\ewnode2d.db"
|
||
|
|
|
||
|
|
[Registry]
|
||
|
|
|
||
|
|
[code]
|
||
|
|
function hasCADVersion(ver:string):boolean;
|
||
|
|
var
|
||
|
|
s:string;
|
||
|
|
begin
|
||
|
|
s := '{#REG_KEY}' + ver + '\';
|
||
|
|
Log(s);
|
||
|
|
if RegKeyExists(HKCU, s) then
|
||
|
|
begin
|
||
|
|
Result := true;
|
||
|
|
Log('exists');
|
||
|
|
end
|
||
|
|
else
|
||
|
|
begin
|
||
|
|
Result := false;
|
||
|
|
Log('no exists');
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function getRoamableRootFolder(ver:string; name:string):string;
|
||
|
|
var
|
||
|
|
key:string;
|
||
|
|
I: Integer;
|
||
|
|
S: String;
|
||
|
|
value:string;
|
||
|
|
begin
|
||
|
|
key := '{#REG_KEY}' + ver + '\' + name + '\';
|
||
|
|
Log(key);
|
||
|
|
if RegKeyExists(HKCU, key) then
|
||
|
|
begin
|
||
|
|
if RegValueExists(HKCU, key, 'RoamableRootFolder') then
|
||
|
|
begin
|
||
|
|
RegQueryStringValue(HKCU, key, 'RoamableRootFolder', value);
|
||
|
|
Result := value;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function getDefaultACADContent(ver:string; name:string):string;
|
||
|
|
var
|
||
|
|
key:string;
|
||
|
|
Names: TArrayOfString;
|
||
|
|
I: Integer;
|
||
|
|
S: String;
|
||
|
|
acad:string;
|
||
|
|
insDir:string;
|
||
|
|
RoamableRoot:string;
|
||
|
|
begin
|
||
|
|
RoamableRoot := getRoamableRootFolder(ver,name);
|
||
|
|
Log(RoamableRoot);
|
||
|
|
|
||
|
|
if IsWin64 then
|
||
|
|
if (ver='17.0') or (ver='17.1') or (ver='17.2')then
|
||
|
|
key := '{#REG_KEY2}' + ver + '\' + name + '\'
|
||
|
|
else
|
||
|
|
key := '{#REG_KEY}' + ver + '\' + name + '\'
|
||
|
|
else
|
||
|
|
key := '{#REG_KEY}' + ver + '\' + name + '\';
|
||
|
|
|
||
|
|
Log(key);
|
||
|
|
if RegKeyExists(HKLM, key) then
|
||
|
|
begin
|
||
|
|
if RegValueExists(HKLM, key, 'AcadLocation') then
|
||
|
|
begin
|
||
|
|
RegQueryStringValue(HKLM, key, 'AcadLocation', insDir);
|
||
|
|
acad := insDir + '\SUPPORT;'
|
||
|
|
acad := acad + insDir + '\FONTS;'
|
||
|
|
acad := acad + insDir + '\HELP;'
|
||
|
|
acad := acad + insDir + '\SUPPORT\zh-cn;'
|
||
|
|
acad := acad + RoamableRoot + 'SUPPORT;'
|
||
|
|
Log(acad);
|
||
|
|
Result := acad;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function setCADProfilesKey(verM:string; verS:string):boolean;
|
||
|
|
var
|
||
|
|
key:string;
|
||
|
|
subkey:string;
|
||
|
|
Names: TArrayOfString;
|
||
|
|
I: Integer;
|
||
|
|
S: String;
|
||
|
|
pfsKey: String;
|
||
|
|
ver:String;
|
||
|
|
sApp:String;
|
||
|
|
str1:String;
|
||
|
|
str2:String;
|
||
|
|
intM:Integer;
|
||
|
|
begin
|
||
|
|
ver := verM+'.'+verS;
|
||
|
|
sApp := ExpandConstant('{app}');
|
||
|
|
intM := StrToInt(verM);
|
||
|
|
|
||
|
|
if (hasCADVersion(ver)) then
|
||
|
|
begin
|
||
|
|
key := '{#REG_KEY}' + ver + '\';
|
||
|
|
Log(key);
|
||
|
|
if RegGetSubkeyNames(HKCU, key, Names) then
|
||
|
|
begin
|
||
|
|
S := '';
|
||
|
|
for I := 0 to GetArrayLength(Names)-1 do
|
||
|
|
begin
|
||
|
|
subkey := key + Names[I] + '\Profiles\';
|
||
|
|
Log(subkey);
|
||
|
|
if RegKeyExists(HKEY_CURRENT_USER, subkey) then
|
||
|
|
begin
|
||
|
|
pfsKey := subkey + '{#PROFILES}{#VERSION}' + '\Drawing Window';
|
||
|
|
RegWriteDWordValue(HKCU, pfsKey, 'Parallel background', $00e1e1e1);
|
||
|
|
RegWriteDWordValue(HKCU, pfsKey, 'Parallel grid minor lines color', $00d2d2d2);
|
||
|
|
RegWriteDWordValue(HKCU, pfsKey, 'Background', $00000000);
|
||
|
|
RegWriteDWordValue(HKCU, pfsKey, 'XhairPickboxEtc', $00ffffff);
|
||
|
|
pfsKey := subkey + '{#PROFILES}{#VERSION}' + '\General';
|
||
|
|
str1 := sApp + '\sys' + verM + 'x64;' + sApp + '\sys' + verM + ';' + sApp + '\sys;' + sApp + '\dwb;';
|
||
|
|
str2 := getDefaultACADContent(ver, Names[I]);
|
||
|
|
RegWriteStringValue(HKCU, pfsKey, 'ACAD', str1 + str2);
|
||
|
|
if intM > 18 then
|
||
|
|
begin
|
||
|
|
pfsKey := subkey + '{#PROFILES}{#VERSION}' + '\Variables';
|
||
|
|
RegWriteStringValue(HKCU, pfsKey, 'TRUSTEDPATHS', str1);
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function addARX2RXFile(ver:string):boolean;
|
||
|
|
var
|
||
|
|
fileName: String;
|
||
|
|
svArray: TArrayOfString;
|
||
|
|
bExist: Boolean;
|
||
|
|
begin
|
||
|
|
fileName := ExpandConstant('{app}\sys' + ver + 'x64\acad.rx'); //得到httpd.conf的路径
|
||
|
|
bExist := FileExists(fileName); //判断文件是否存在
|
||
|
|
if (bExist = True) then
|
||
|
|
begin
|
||
|
|
SetArrayLength(svArray, 2);
|
||
|
|
svArray[0] := 'ArchCmd.arx';
|
||
|
|
svArray[1] := 'PlumbingCmd.arx';
|
||
|
|
SaveStringsToFile(fileName, svArray, true);
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function IsVC2008RuntimeInstalled: boolean;
|
||
|
|
var
|
||
|
|
Version, KeyPath
|
||
|
|
, VC2008_guid1, VC2008_guid2
|
||
|
|
, VC2008_guid3, VC2008_guid4 :string;
|
||
|
|
begin
|
||
|
|
Result := False;
|
||
|
|
KeyPath := 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\';
|
||
|
|
VC2008_guid1 := KeyPath + '{350AA351-21FA-3270-8B7A-835434E766AD}';
|
||
|
|
VC2008_guid2 := KeyPath + '{8220EEFE-38CD-377E-8595-13398D740ACE}';
|
||
|
|
VC2008_guid3 := KeyPath + '{4B6C7001-C7D6-3710-913E-5BC23FCE91E6}';
|
||
|
|
VC2008_guid4 := KeyPath + '{5FCE6D76-F5DC-37AB-B2B8-22AB8CEDB1D4}';
|
||
|
|
if RegKeyExists(HKLM, vc2008_guid1)
|
||
|
|
or RegKeyExists(HKLM, vc2008_guid2)
|
||
|
|
or RegKeyExists(HKLM, vc2008_guid3)
|
||
|
|
or RegKeyExists(HKLM, vc2008_guid4) then
|
||
|
|
begin
|
||
|
|
Result := True;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure CurStepChanged(CurStep: TSetupStep);
|
||
|
|
var
|
||
|
|
ResultCode:Integer;
|
||
|
|
begin
|
||
|
|
if CurStep=ssinstall then
|
||
|
|
//MsgBox('准备写入文件了', mbInformation, MB_OK);
|
||
|
|
begin
|
||
|
|
setCADProfilesKey('18','0');
|
||
|
|
setCADProfilesKey('18','1');
|
||
|
|
setCADProfilesKey('18','2');
|
||
|
|
|
||
|
|
|
||
|
|
end;
|
||
|
|
if CurStep=ssPostinstall then
|
||
|
|
begin
|
||
|
|
|
||
|
|
end;
|
||
|
|
if CurStep=ssDone then
|
||
|
|
begin
|
||
|
|
addARX2RXFile('18');
|
||
|
|
|
||
|
|
if IsVC2008RuntimeInstalled()=False then
|
||
|
|
begin
|
||
|
|
Exec(ExpandConstant('{app}\sys\' + '2008-vcredist_x64.exe'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
//MsgBox('软件成功安装', mbInformation, MB_OK);
|
||
|
|
end;
|
||
|
|
|
||
|
|
function deleteKey(ver:string):boolean;
|
||
|
|
var
|
||
|
|
key:string;
|
||
|
|
subkey:string;
|
||
|
|
Names: TArrayOfString;
|
||
|
|
I: Integer;
|
||
|
|
S: String;
|
||
|
|
begin
|
||
|
|
if not hasCADVersion(ver) then
|
||
|
|
begin
|
||
|
|
Result := false;
|
||
|
|
exit;
|
||
|
|
end;
|
||
|
|
|
||
|
|
key := '{#REG_KEY}' + ver + '\';
|
||
|
|
Log(key);
|
||
|
|
if RegGetSubkeyNames(HKCU, key, Names) then
|
||
|
|
begin
|
||
|
|
S := '';
|
||
|
|
for I := 0 to GetArrayLength(Names)-1 do
|
||
|
|
begin
|
||
|
|
subkey := key + Names[I] + '\Profiles\' + '{#PROFILES}{#VERSION}';
|
||
|
|
Log(subkey);
|
||
|
|
if RegKeyExists(HKCU, subkey) then
|
||
|
|
RegDeleteKeyIncludingSubkeys(HKCU, subkey);
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
|
||
|
|
var
|
||
|
|
key:string;
|
||
|
|
begin
|
||
|
|
// 把新建的注册表删除
|
||
|
|
|
||
|
|
deleteKey('18.0');
|
||
|
|
deleteKey('18.1');
|
||
|
|
deleteKey('18.2');
|
||
|
|
|
||
|
|
|
||
|
|
end;
|