730 lines
26 KiB
Plaintext
730 lines
26 KiB
Plaintext
;iss
|
||
|
||
#define MyAppName "基础环境"
|
||
#define MyAppVersion "1.0.14"
|
||
#define MyAppPublisher "X"
|
||
#define MyAppURL "~"
|
||
#define MyAppExeName "command"
|
||
#define MyAppExeNameHump "Command"
|
||
#define MyAppExeNameUpper "COMMAND"
|
||
#define MyAppAssocName MyAppName + " File"
|
||
#define MyAppAssocExt ".myp"
|
||
#define MyAppAssocKey StringChange(MyAppAssocName, " ", "") + MyAppAssocExt
|
||
#define MyAppFirstPath "XManage"
|
||
#define MyAppResources "Resources"
|
||
#define InstallPassword GetDateTimeString('yyyymmdd', '', '')
|
||
#define BuildTime GetDateTimeString('yyyymmddhhnnss', '', '')
|
||
|
||
|
||
; 默认配置
|
||
[Setup]
|
||
; 不得复用，每个应用必须有唯一AppId
|
||
AppId={{517C2278-C7C9-43D0-8E94-BFD2039C1690}
|
||
; 默认安装路径
|
||
DefaultDirName={localappdata}\{#MyAppFirstPath}
|
||
; 是否加密
|
||
;Encryption=yes
|
||
; 安装密码
|
||
;Password={#InstallPassword}
|
||
; ICO图标
|
||
; SetupIconFile=Resources\startup.ico
|
||
UninstallFilesDir={app}
|
||
UninstallDisplayIcon={app}\{#MyAppExeName}.exe
|
||
VersionInfoCompany=
|
||
VersionInfoCopyright=CopyRight © 2025
|
||
VersionInfoDescription=构建于 {#BuildTime}，装配DB、IO、MQ、Command等
|
||
VersionInfoProductVersion={#MyAppVersion}
|
||
VersionInfoProductName=基础环境（支持Windows7及以上）
|
||
|
||
; 默认配置
|
||
AppName={#MyAppName}
|
||
AppVersion={#MyAppVersion}
|
||
AppPublisher={#MyAppPublisher}
|
||
AppPublisherURL={#MyAppURL}
|
||
AppSupportURL={#MyAppURL}
|
||
AppUpdatesURL={#MyAppURL}
|
||
ChangesAssociations=yes
|
||
DisableDirPage=no
|
||
DisableProgramGroupPage=yes
|
||
Compression=lzma2
|
||
SolidCompression=yes
|
||
WizardStyle=modern
|
||
ChangesEnvironment=yes
|
||
PrivilegesRequired=admin
|
||
ArchitecturesAllowed=x64compatible
|
||
ArchitecturesInstallIn64BitMode=x64compatible
|
||
OutputDir=Release\
|
||
OutputBaseFilename=RuntimeSetup-{#MyAppVersion}
|
||
|
||
|
||
; 语言选择
|
||
[Languages]
|
||
Name: "Chinese"; MessagesFile: "compiler:Languages\Chinese.isl";
|
||
|
||
|
||
;; 任务
|
||
[Tasks]
|
||
; 是否创建桌面图标
|
||
; checkablealone 默认选中
|
||
; unchecked 默认不选中
|
||
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: checkablealone
|
||
|
||
|
||
;; 程序 ICO
|
||
[Icons]
|
||
;Name: "{autoprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}.exe"
|
||
Name: "{autodesktop}\Quick Start Environment"; Filename: "{app}\quick.bat"; Comment: "一键启动 Redis、MinIO、Home、RocketMQ 服务"; Tasks: desktopicon
|
||
|
||
|
||
;; 组件安装方式
|
||
[Types]
|
||
Name: "full"; Description: "完整组件安装";
|
||
Name: "mini"; Description: "最小安装";
|
||
;; ============================================== 自定义组件 必须启用 iscustom 作为 Flags ==============================================
|
||
; iscustom 开启自定义选项
|
||
Name: "custom"; Description: "自定义组件安装"; Flags: iscustom;
|
||
|
||
|
||
;; 组件列表选择项
|
||
[Components]
|
||
;; ============================================== 自定义组件的 Types 可以不参与任何固定式 ==============================================
|
||
Name: "MainApp"; Description: "{#MyAppName}主程序"; Types: full mini; Flags: checkablealone;
|
||
Name: "JDK"; Description: "JDK"; Types: full; Flags: checkablealone;
|
||
Name: "Redis"; Description: "Redis"; Types: full; Flags: checkablealone;
|
||
Name: "MinIO"; Description: "MinIO"; Types: full; Flags: checkablealone;
|
||
Name: "RocketMQ"; Description: "RocketMQ"; Types: full; Flags: checkablealone;
|
||
Name: "Nginx"; Description: "Nginx"; Types: full; Flags: checkablealone;
|
||
Name: "MySQL"; Description: "MySQL"; Types: full; Flags: checkablealone;
|
||
|
||
|
||
;; 引入文件列表
|
||
[Files]
|
||
|
||
;; ============================================== 共享文件 禁止使用 ignoreversion 作为 Flags ==============================================
|
||
;; Readme
|
||
; 安装完的 readme 信息
|
||
;Source: "{#MyAppResources}\Readme.md"; DestDir: "{app}"; Flags: isreadme;
|
||
;; 文件
|
||
Source: "{#MyAppResources}\grep.exe"; DestDir: "{app}\usr"; DestName: "grep.exe"; Flags: ignoreversion; Components: MainApp;
|
||
Source: "{#MyAppResources}\quick.bat"; DestDir: "{app}"; DestName: "quick.bat"; Flags: ignoreversion; Components: MainApp;
|
||
;; 文件夹
|
||
; recursesubdirs createallsubdirs 递归复制整个目录
|
||
Source: "{#MyAppResources}\usr\*"; DestDir: "{app}\usr\"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: MainApp;
|
||
; onlyifdoesntexist 当文件不存在时安装
|
||
Source: "{#MyAppResources}\jdk\*"; DestDir: "{app}\jdk\"; Flags: ignoreversion recursesubdirs createallsubdirs onlyifdoesntexist; Components: JDK;
|
||
Source: "{#MyAppResources}\redis\*"; DestDir: "{app}\redis\"; Flags: onlyifdoesntexist recursesubdirs createallsubdirs; Components: Redis;
|
||
Source: "{#MyAppResources}\io\*"; DestDir: "{app}\io\"; Flags: onlyifdoesntexist recursesubdirs createallsubdirs; Components: MinIO;
|
||
Source: "{#MyAppResources}\rocketmq\*"; DestDir: "{app}\rocketmq\"; Flags: onlyifdoesntexist recursesubdirs createallsubdirs; Components: RocketMQ;
|
||
Source: "{#MyAppResources}\nginx\*"; DestDir: "{app}\nginx\"; Flags: onlyifdoesntexist recursesubdirs createallsubdirs; Components: Nginx;
|
||
Source: "{#MyAppResources}\mysql\*"; DestDir: "{app}\mysql\"; Flags: onlyifdoesntexist recursesubdirs createallsubdirs; Components: MySQL;
|
||
|
||
|
||
;; 创建必要目录
|
||
[Dirs]
|
||
Name: "{app}\nginx\logs"; Permissions: users-modify; Components: Nginx;
|
||
Name: "{app}\nginx\dist"; Permissions: users-modify; Components: Nginx;
|
||
|
||
|
||
;; 安装前后删除文件（存在不生效的可能，转为 code 实现）
|
||
[InstallDelete]
|
||
;Type: files; Name: "{app}\mysql\template.ini";
|
||
;Type: files; Name: "{app}\mysql\template-initialize-and-start-mysql.bat";
|
||
;Type: files; Name: "{app}\mysql\template-register-mysql-with-data.bat";
|
||
|
||
|
||
;; 安装时注册表与环境变量列表
|
||
[Registry]
|
||
; uninsdeletevalue 卸载时删除值
|
||
; uninsdeletekey 卸载时删除键
|
||
; preservestringtype 保留原值类型
|
||
;; ============================================== Path 禁止使用任何 *delete*、*remove* 作为 Flags 运行 ==============================================
|
||
|
||
;; 写入普通注册表项
|
||
Root: HKLM; Subkey: "Software\X\Command"; ValueType: string; ValueName: "InstallPath"; ValueData: "{app}"; Flags: uninsdeletevalue ;
|
||
Root: HKLM; Subkey: "Software\X\Command"; ValueType: string; ValueName: "Version"; ValueData: "{#SetupSetting("AppVersion")}"; Flags: uninsdeletevalue ;
|
||
|
||
;; 默认注册信息
|
||
Root: HKA; Subkey: "Software\Classes\{#MyAppAssocExt}\OpenWithProgids"; ValueType: string; ValueName: "{#MyAppAssocKey}"; ValueData: ""; Flags: uninsdeletevalue;
|
||
Root: HKA; Subkey: "Software\Classes\{#MyAppAssocKey}"; ValueType: string; ValueName: ""; ValueData: "{#MyAppAssocName}"; Flags: uninsdeletevalue;
|
||
Root: HKA; Subkey: "Software\Classes\{#MyAppAssocKey}\DefaultIcon"; ValueType: string; ValueName: ""; ValueData: "{app}\{#MyAppExeName}.exe,0"; Flags: uninsdeletevalue;
|
||
Root: HKA; Subkey: "Software\Classes\{#MyAppAssocKey}\shell\open\command"; ValueType: string; ValueName: ""; ValueData: """{app}\{#MyAppExeName}.exe"" ""%1"""; Flags: uninsdeletevalue;
|
||
|
||
|
||
|
||
;; 【grep、awk、sed、head、sort、ls、rm、xargs、rar、zip、tar、md5sum、sha1sum...】
|
||
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: string; Components: MainApp; Flags: uninsdeletevalue; \
|
||
ValueName: "X_COMMAND"; ValueData: "{app}";
|
||
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: expandsz; Components: MainApp; Flags: preservestringtype; AfterInstall: RefreshEnvironment; \
|
||
ValueName: "Path"; ValueData: "{olddata};%X_COMMAND%\usr"; Check: NeedsAddPath('%X_COMMAND%\usr');
|
||
|
||
|
||
|
||
;; 【Java】追加到 PATH 变量
|
||
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: string; Components: JDK; \
|
||
ValueName: "JAVA_HOME"; ValueData: "{app}\jdk"; Flags: uninsdeletevalue ;
|
||
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: string; Components: JDK; \
|
||
ValueName: "JDK_21"; ValueData: "{app}\jdk"; Flags: uninsdeletevalue ;
|
||
; 为了启用 java、jps、jar 命令
|
||
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: expandsz; Components: JDK; Flags: preservestringtype; AfterInstall: RefreshEnvironment; \
|
||
ValueName: "Path"; ValueData: "{olddata};%JAVA_HOME%\bin"; Check: NeedsAddPath('%JAVA_HOME%\bin');
|
||
|
||
|
||
|
||
|
||
;; 【Redis】追加到 PATH 变量
|
||
;Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: expandsz; Components: Redis; Flags: preservestringtype; AfterInstall: RefreshEnvironment; \
|
||
ValueName: "Path"; ValueData: "{olddata};%X_COMMAND%\redis"; Check: NeedsAddPath('%X_COMMAND%\redis');
|
||
;
|
||
; 关闭注册到环境变量，整体由一键启动脚本代为执行
|
||
|
||
|
||
;; 【MinIO】追加到 PATH 变量
|
||
;Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: expandsz; Components: MinIO; Flags: preservestringtype; AfterInstall: RefreshEnvironment; \
|
||
ValueName: "Path"; ValueData: "{olddata};%X_COMMAND%\io"; Check: NeedsAddPath('%X_COMMAND%\io');
|
||
;
|
||
; 关闭注册到环境变量，整体由一键启动脚本代为执行
|
||
|
||
|
||
;; 【Nginx】追加到 PATH 变量
|
||
;Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: expandsz; Components: Nginx; Flags: preservestringtype; AfterInstall: RefreshEnvironment; \
|
||
ValueName: "Path"; ValueData: "{olddata};%X_COMMAND%\nginx"; Check: NeedsAddPath('%X_COMMAND%\nginx');
|
||
;
|
||
; 关闭注册到环境变量，整体由一键启动脚本代为执行
|
||
|
||
|
||
;; 【RocketMQ】追加到 PATH 变量
|
||
; rocketmq 脚本必要参数
|
||
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: string; Components: RocketMQ; Flags: uninsdeletevalue; \
|
||
ValueName: "ROCKETMQ_HOME"; ValueData: "{app}\rocketmq"; Check: CheckRegistryPath('{app}\rocketmq');
|
||
;Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: string; Components: RocketMQ; Flags: uninsdeletevalue; \
|
||
ValueName: "ROCKETMQ_SBIN"; ValueData: "{app}\rocketmq\sbin";
|
||
;Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: expandsz; Components: RocketMQ; Flags: preservestringtype; AfterInstall: RefreshEnvironment; \
|
||
ValueName: "Path"; ValueData: "{olddata};%ROCKETMQ_SBIN%"; Check: NeedsAddPath('%ROCKETMQ_SBIN%');
|
||
;
|
||
; 关闭注册到环境变量，整体由一键启动脚本代为执行
|
||
|
||
|
||
|
||
|
||
;; 【MySQL】环境变量【注册服务使用】
|
||
; 数据库服务注册后服务名
|
||
;Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: string; Components: MySQL; Flags: uninsdeletevalue; AfterInstall: RefreshEnvironment; \
|
||
ValueName: "X_MANAGE_DB_SC"; ValueData: "x_database";
|
||
; 这两个值，将作为后续判断程序是否已经安装做依据
|
||
;Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: string; Components: MySQL; Flags: uninsdeletevalue; AfterInstall: RefreshEnvironment; \
|
||
ValueName: "X_MANAGE_DB_EXE"; ValueData: "{app}\mysql\bin\mysqld.exe";
|
||
;Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: string; Components: MySQL; Flags: uninsdeletevalue ; AfterInstall: RefreshEnvironment; \
|
||
ValueName: "X_MANAGE_DB_COF"; ValueData: "{app}\mysql\my.ini";
|
||
;
|
||
; 暂时关闭注册到环境变量，暂时由 bat 启动或直接注册到服务
|
||
; 上述环境变量是 ps1 启动时所需的必要参数，状态暂停，等待整理
|
||
|
||
|
||
; MySQL【通用服务】，导入脚本数据使用
|
||
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: string; Components: MySQL; Flags: uninsdeletevalue; \
|
||
ValueName: "X_COMMAND_MYSQL"; ValueData: "{app}\mysql\";
|
||
; 追加到 PATH 变量，where mysql 语法判定使用
|
||
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType: expandsz; Components: MySQL; Flags: preservestringtype; AfterInstall: RefreshEnvironment; \
|
||
ValueName: "Path"; ValueData: "{olddata};%X_COMMAND_MYSQL%\bin"; Check: NeedsAddPath('%X_COMMAND_MYSQL%\bin');
|
||
|
||
|
||
|
||
;; 自定义函数
|
||
[Code]
|
||
|
||
const
|
||
// 系统环境变量
|
||
WM_SETTINGCHANGE = 26; // 0x001A 的十进制
|
||
SMTO_ABORTIFHUNG = 2; // 0x0002 的十进制
|
||
|
||
// 定义 VC++ 2019 运行时的注册表检查路径
|
||
VC2019_REDIST_X64 = '{FF66E9F6-83E7-3A3E-AF14-8DE9A809A6A4}';
|
||
VC2019_REDIST_X86 = '{422B21A3-06FA-3F2F-A6C6-21BCC9B8E2F3}';
|
||
|
||
// 服务
|
||
SC_MANAGER_CONNECT = $0001;
|
||
SERVICE_STOP = $0020;
|
||
SERVICE_QUERY_STATUS = $0004;
|
||
SERVICE_CONTROL_STOP = $00000001;
|
||
|
||
|
||
// 获取安装密码
|
||
function GetInstallPassword(): string;
|
||
begin
|
||
Result := GetDateTimeString('yyyymmdd', '', '');
|
||
end;
|
||
|
||
|
||
// 获取当前时间
|
||
function GetDateTime(): String;
|
||
begin
|
||
// Result := GetDateTimeString('yyyy/mm/dd hh:nn:ss', '-', ':');
|
||
Result := GetDateTimeString('yyyymmddhhnnss', '', '');
|
||
end;
|
||
|
||
|
||
// 导入 Windows API 函数，作用于 延迟函数
|
||
function GetTickCount: DWord;
|
||
external 'GetTickCount@kernel32.dll stdcall';
|
||
|
||
|
||
// 导入 Windows API 函数，作用于 环境变量更新
|
||
function SendMessageTimeout(
|
||
hWnd: Integer;
|
||
Msg: Integer;
|
||
wParam: Integer;
|
||
lParamStr: String;
|
||
fuFlags: Integer;
|
||
uTimeout: Integer;
|
||
var lpdwResult: Integer
|
||
): Integer;
|
||
external 'SendMessageTimeoutW@user32.dll stdcall';
|
||
|
||
|
||
// 导入必要的 Windows API 函数，作用于 服务
|
||
function OpenService(
|
||
hSCManager: Longword;
|
||
lpServiceName: string;
|
||
dwDesiredAccess: Longword
|
||
): Longword;
|
||
external 'OpenServiceW@advapi32.dll stdcall';
|
||
|
||
|
||
// 导入必要的 Windows API 函数，作用于 服务
|
||
function ControlService(
|
||
hService: Longword;
|
||
dwControl: Longword;
|
||
var lpServiceStatus: Longword
|
||
): Integer;
|
||
external 'ControlService@advapi32.dll stdcall';
|
||
|
||
|
||
// 导入必要的 Windows API 函数，作用于 服务
|
||
function CloseServiceHandle(
|
||
hSCObject: Longword
|
||
): Integer;
|
||
external 'CloseServiceHandle@advapi32.dll stdcall';
|
||
|
||
|
||
// 导入必要的 Windows API 函数，作用于 服务
|
||
function OpenSCManager(
|
||
lpMachineName: string;
|
||
lpDatabaseName: string;
|
||
dwDesiredAccess: Longword
|
||
): Longword;
|
||
external 'OpenSCManagerW@advapi32.dll stdcall';
|
||
|
||
|
||
|
||
// 给 Path 系统环境变量追加环境
|
||
function NeedsAddPath(Param: string): boolean;
|
||
var
|
||
OrigPath: string;
|
||
begin
|
||
if not RegQueryStringValue(HKEY_LOCAL_MACHINE,
|
||
'SYSTEM\CurrentControlSet\Control\Session Manager\Environment',
|
||
'Path', OrigPath)
|
||
then begin
|
||
Result := True;
|
||
exit;
|
||
end;
|
||
// 检查路径是否已存在
|
||
Result := Pos(';' + Param + ';', ';' + OrigPath + ';') = 0;
|
||
if Result = True then
|
||
Result := Pos(';' + Param + '\;', ';' + OrigPath + ';') = 0;
|
||
end;
|
||
|
||
|
||
// 刷新系统环境
|
||
procedure RefreshEnvironment;
|
||
var
|
||
Res: Integer;
|
||
begin
|
||
SendMessageTimeout(
|
||
HWND_BROADCAST,
|
||
WM_SETTINGCHANGE,
|
||
0,
|
||
'Environment',
|
||
SMTO_ABORTIFHUNG,
|
||
5000,
|
||
Res
|
||
);
|
||
end;
|
||
|
||
|
||
// 检查环境变量，路径是否存在空格
|
||
function CheckRegistryPath(Path: string): Boolean;
|
||
begin
|
||
if Pos(' ', Path) > 0 then
|
||
begin
|
||
SuppressibleMsgBox('安装程序错误: 检测到无效的注册表路径 "' + Path + '"。路径不能包含空格。', mbCriticalError, MB_OK, IDOK);
|
||
Abort;
|
||
Result := False;
|
||
Exit;
|
||
end;
|
||
Result := True;
|
||
end;
|
||
|
||
|
||
// 以 UTF-8 写入文件
|
||
function SaveStringToUTF8File(const FileName, Content: String; Append: Boolean): Boolean;
|
||
var
|
||
UTF8Content: AnsiString;
|
||
begin
|
||
UTF8Content := UTF8Encode(Content);
|
||
Result := SaveStringToFile(FileName, UTF8Content, Append);
|
||
end;
|
||
|
||
|
||
// 检查是否已安装 VC++ 2019 运行时
|
||
function IsVC2019Installed: Boolean;
|
||
var
|
||
Version: String;
|
||
begin
|
||
// 检查64位版本
|
||
Result := RegQueryStringValue(
|
||
HKLM,
|
||
'SOFTWARE\Microsoft\VisualStudio\14.0\VC\Runtimes\x64',
|
||
'Version',
|
||
Version
|
||
) or RegKeyExists(
|
||
HKLM,
|
||
'SOFTWARE\Classes\Installer\Dependencies\' + VC2019_REDIST_X64
|
||
);
|
||
|
||
// 如果是32位系统或需要检查32位运行时
|
||
if not Result and (not IsWin64) then
|
||
Result := RegQueryStringValue(
|
||
HKLM,
|
||
'SOFTWARE\Microsoft\VisualStudio\14.0\VC\Runtimes\x86',
|
||
'Version',
|
||
Version
|
||
) or RegKeyExists(
|
||
HKLM,
|
||
'SOFTWARE\Classes\Installer\Dependencies\' + VC2019_REDIST_X86
|
||
);
|
||
end;
|
||
|
||
|
||
// 延迟n秒
|
||
procedure Delay(Seconds: Integer);
|
||
var
|
||
ResultCode: Integer;
|
||
begin
|
||
Exec(ExpandConstant('{cmd}'), '/C timeout /t ' + IntToStr(Seconds) + ' /nobreak > nul', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
|
||
end;
|
||
|
||
// 延迟n毫秒
|
||
procedure DelayMS(MS: Cardinal);
|
||
var
|
||
T: Cardinal;
|
||
begin
|
||
T := GetTickCount;
|
||
while (GetTickCount - T) < MS do
|
||
begin
|
||
// 处理消息队列，防止界面冻结
|
||
Sleep(10);
|
||
WizardForm.Refresh;
|
||
end;
|
||
end;
|
||
|
||
|
||
|
||
|
||
// InitializeSetup 安装程序初始化时 检查系统环境、前置条件
|
||
// InitializeWizard 向导初始化时 自定义界面、预设置
|
||
// CurStepChanged 安装步骤改变时 在特定步骤（如安装前、后）执行自定义操作
|
||
// DeinitializeSetup 安装结束时（无论成功与否） 清理临时文件、最终配置
|
||
|
||
|
||
// 从模板创建配置文件
|
||
procedure CreateConfigFromTemplate;
|
||
var
|
||
// ini
|
||
TemplateIniPath: String;
|
||
TargetIniPath: String;
|
||
// initial
|
||
TemplateInitialPath: String;
|
||
TargetInitialPath: String;
|
||
// register
|
||
TemplateRegisterPath: String;
|
||
TargetRegisterPath: String;
|
||
// handle params
|
||
ConfigLines: TArrayOfString;
|
||
I: Integer;
|
||
ReplaceCount: Integer;
|
||
begin
|
||
|
||
// 生成 my.ini
|
||
TemplateIniPath := ExpandConstant('{app}\mysql\template.ini');
|
||
TargetIniPath := ExpandConstant('{app}\mysql\my.ini');
|
||
|
||
if LoadStringsFromFile(TemplateIniPath, ConfigLines) then
|
||
begin
|
||
for I := 0 to GetArrayLength(ConfigLines)-1 do
|
||
begin
|
||
StringChangeEx(ConfigLines[I], '%INSTALLPATH%', ExpandConstant('{app}\mysql'), True);
|
||
StringChangeEx(ConfigLines[I], '%DATAPATH%', ExpandConstant('{app}\mysql\data'), True);
|
||
StringChangeEx(ConfigLines[I], '\', '\\', True);
|
||
end;
|
||
|
||
SaveStringsToFile(TargetIniPath, ConfigLines, False);
|
||
end;
|
||
|
||
|
||
|
||
// 生成 initialize-and-start-mysql.bat
|
||
TemplateInitialPath := ExpandConstant('{app}\mysql\template-initialize-and-start-mysql.bat');
|
||
TargetInitialPath := ExpandConstant('{app}\mysql\initialize-and-start-mysql.bat');
|
||
|
||
if LoadStringsFromFile(TemplateInitialPath, ConfigLines) then
|
||
begin
|
||
for I := 0 to GetArrayLength(ConfigLines)-1 do
|
||
begin
|
||
StringChangeEx(ConfigLines[I], '%INSTALLPATH%', ExpandConstant('{app}\mysql'), True);
|
||
end;
|
||
|
||
SaveStringsToFile(TargetInitialPath, ConfigLines, False);
|
||
end;
|
||
|
||
|
||
|
||
// 生成 register-mysql-with-data.bat
|
||
TemplateRegisterPath := ExpandConstant('{app}\mysql\template-register-mysql-with-data.bat');
|
||
TargetRegisterPath := ExpandConstant('{app}\mysql\register-mysql-with-data.bat');
|
||
|
||
if LoadStringsFromFile(TemplateRegisterPath, ConfigLines) then
|
||
begin
|
||
for I := 0 to GetArrayLength(ConfigLines)-1 do
|
||
begin
|
||
StringChangeEx(ConfigLines[I], '%INSTALLPATH%', ExpandConstant('{app}\mysql'), True);
|
||
end;
|
||
|
||
SaveStringsToFile(TargetRegisterPath, ConfigLines, False);
|
||
end;
|
||
end;
|
||
|
||
|
||
|
||
// 删除过程文件
|
||
procedure RemoveTempFile;
|
||
begin
|
||
// DeleteFile
|
||
// DelTree
|
||
|
||
// 删除模版文件
|
||
if FileExists(ExpandConstant('{app}\mysql\template.ini')) then
|
||
DeleteFile(ExpandConstant('{app}\mysql\template.ini'));
|
||
|
||
if FileExists(ExpandConstant('{app}\mysql\template-initialize-and-start-mysql.bat')) then
|
||
DelTree(ExpandConstant('{app}\mysql\template-initialize-and-start-mysql.bat'), False, True, False);
|
||
|
||
if FileExists(ExpandConstant('{app}\mysql\template-register-mysql-with-data.bat')) then
|
||
DelTree(ExpandConstant('{app}\mysql\template-register-mysql-with-data.bat'), False, True, False);
|
||
|
||
if FileExists(ExpandConstant('{app}\mysql\import-data-into-mysql-v2.bat')) then
|
||
DelTree(ExpandConstant('{app}\mysql\import-data-into-mysql-v2.bat'), False, True, False);
|
||
|
||
|
||
// 删除默认 Readme.md
|
||
if FileExists(ExpandConstant('{app}\io\Readme.md')) then
|
||
DeleteFile(ExpandConstant('{app}\io\Readme.md'));
|
||
|
||
if FileExists(ExpandConstant('{app}\jdk\Readme.md')) then
|
||
DeleteFile(ExpandConstant('{app}\jdk\Readme.md'));
|
||
|
||
if FileExists(ExpandConstant('{app}\mysql\Readme.md')) then
|
||
DeleteFile(ExpandConstant('{app}\mysql\Readme.md'));
|
||
|
||
if FileExists(ExpandConstant('{app}\nginx\Readme.md')) then
|
||
DeleteFile(ExpandConstant('{app}\nginx\Readme.md'));
|
||
|
||
end;
|
||
|
||
|
||
|
||
// 初始化并启动MySQL
|
||
procedure InitializeAndStartMySQL;
|
||
var
|
||
ResultCode: Integer;
|
||
Cmd: string;
|
||
begin
|
||
|
||
// 通过 mysql 初始化生成的唯一 uuid 判断 mysql 是否已经完成初始化
|
||
if not FileExists(ExpandConstant('{app}\mysql\data\auto.cnf')) then
|
||
begin
|
||
// 如果没有完成初始化，则判断是否存在 readme.md 文件 即完全没有初始化
|
||
if FileExists(ExpandConstant('{app}\mysql\data\Readme.md')) then
|
||
begin
|
||
// 如果没有初始化，则删除 readme
|
||
DelTree(ExpandConstant('{app}\mysql\data\Readme.md'), False, True, False);
|
||
DelayMS(200);
|
||
end;
|
||
|
||
|
||
// 存在默认库SQL压缩包
|
||
if FileExists(ExpandConstant('{app}\mysql\database.rar')) then
|
||
begin
|
||
// 解压
|
||
if not Exec('cmd.exe', '/C " cd ' + ExpandConstant('{app}') + '\mysql && %cd%\..\usr\unrar.exe x database.rar script\demo\"', '', SW_HIDE, ewNoWait, ResultCode) then
|
||
begin
|
||
MsgBox('解压 MySQL 默认库失败', mbError, MB_OK);
|
||
end;
|
||
|
||
// 删除 database.rar 默认库SQL压缩包
|
||
DelayMS(1000);
|
||
DelTree(ExpandConstant('{app}\mysql\database.rar'), False, True, False);
|
||
end;
|
||
DelayMS(1000);
|
||
|
||
|
||
// 初始化
|
||
// 同步 ewWaitUntilTerminated
|
||
// 异步 ewNoWait
|
||
|
||
// 初始化并启动 MySQL
|
||
// Cmd := '/C "' + ExpandConstant('{app}') + '\mysql\initialize-and-start-mysql.bat"';
|
||
Cmd := '/C " cd ' + ExpandConstant('{app}') + '\mysql && initialize.bat"';
|
||
if not Exec('cmd.exe', Cmd, '', SW_HIDE, ewNoWait, ResultCode) then
|
||
begin
|
||
MsgBox('初始化 MySQL 脚本失败', mbError, MB_OK);
|
||
end else begin
|
||
DelayMS(3000);
|
||
// DeleteFile(ExpandConstant('{app}\mysql\initialize-and-start-mysql.bat'));
|
||
DeleteFile(ExpandConstant('{app}\mysql\register-mysql-with-data.bat'));
|
||
// DeleteFile(ExpandConstant('{app}\mysql\initialize.bat'));
|
||
end;
|
||
DelayMS(1000);
|
||
|
||
|
||
end; // mysql auto.conf 初始化判定
|
||
end;
|
||
|
||
|
||
|
||
// 导入默认数据库到 MySQL
|
||
// procedure ImportDefaultDatabase2MySQL;
|
||
// var
|
||
// ResultCode: Integer;
|
||
// Cmd: string;
|
||
// MySQLPath: string;
|
||
// UsrPath: string;
|
||
// begin
|
||
//
|
||
// // 判断是否安装了 usr 基础环境
|
||
// if FileExists(ExpandConstant('{app}\usr\rar.exe')) then
|
||
// begin
|
||
//
|
||
// // 等待 MySQL 服务启动完成
|
||
// DelayMS(3000);
|
||
// // 这个时候 `环境变量` 还没开始注册，所以 bat 导入脚本不生效，因此需要指定临时Path环境变量
|
||
// // 导出默认库和用户
|
||
// if FileExists(ExpandConstant('{app}\mysql\import-data-into-mysql.bat')) then
|
||
// begin
|
||
//
|
||
// // 临时设置 PATH 并执行脚本
|
||
// MySQLPath := ExpandConstant('{app}') + '\mysql\bin';
|
||
// UsrPath := ExpandConstant('{app}') + '\usr';
|
||
// Cmd := '/C "set PATH=' + MySQLPath + '; ' + UsrPath + ';%PATH%' +
|
||
// ' && cd ' + ExpandConstant('{app}') + '\mysql' +
|
||
// ' && import-data-into-mysql.bat"' +
|
||
// ' && exit"';
|
||
//
|
||
// if not Exec('cmd.exe', Cmd, '', SW_HIDE, ewNoWait, ResultCode) then
|
||
// begin
|
||
// MsgBox('初始化默认库脚本失败', mbError, MB_OK);
|
||
// end;
|
||
// DelayMS(1000);
|
||
// end;
|
||
// end; // 是否安装了 usr 环境
|
||
//
|
||
// end;
|
||
|
||
|
||
|
||
|
||
|
||
|
||
// 在安装前检查
|
||
function InitializeSetup: Boolean;
|
||
begin
|
||
// 默认允许安装继续
|
||
Result := True;
|
||
|
||
// 如果 VC++ 2019 未安装
|
||
if not IsVC2019Installed then
|
||
begin
|
||
MsgBox('本程序需要 Microsoft Visual C++ 2019 运行时才能继续（1001）', mbError, MB_OK)
|
||
// 中止安装
|
||
Result := False;
|
||
end;
|
||
|
||
end;
|
||
|
||
|
||
// 在安装完成后执行
|
||
procedure CurStepChanged(CurStep: TSetupStep);
|
||
begin
|
||
|
||
// 仅在安装完成后执行
|
||
if CurStep = ssPostInstall then
|
||
begin
|
||
// 创建配置文件
|
||
CreateConfigFromTemplate;
|
||
|
||
// 删除过程文件
|
||
RemoveTempFile;
|
||
|
||
// 初始化并启动 MySQL
|
||
InitializeAndStartMySQL;
|
||
|
||
// 导入默认数据库到 MySQL
|
||
// ImportDefaultDatabase2MySQL;
|
||
end; // 安装完成后的执行
|
||
|
||
|
||
end;
|
||
|
||
|
||
// 卸载前先停止程序运行
|
||
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
|
||
var
|
||
hSCManager, hService: Longword;
|
||
ServiceStatus: Longword;
|
||
ResultCode: Integer;
|
||
DataDir: string;
|
||
begin
|
||
if CurUninstallStep = usUninstall then begin
|
||
// 在这里执行你的脚本或程序
|
||
// Exec(ExpandConstant('{cmd}'), '/C "uninstall_script.bat"', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
|
||
|
||
end;
|
||
end;
|
||
|
||
|
||
[UninstallRun]
|
||
;; 卸载前运行
|
||
Filename: "sc"; Parameters: "stop redis"; Flags: runascurrentuser runhidden waituntilterminated
|
||
Filename: "sc"; Parameters: "delete redis"; Flags: runascurrentuser runhidden waituntilterminated
|
||
Filename: "sc"; Parameters: "stop x_database"; Flags: runascurrentuser runhidden waituntilterminated
|
||
Filename: "sc"; Parameters: "delete x_database"; Flags: runascurrentuser runhidden waituntilterminated
|
||
Filename: "taskkill"; Parameters: "-f -im home-web.exe"; Flags: runascurrentuser runhidden waituntilterminated
|
||
|
||
|
||
;; 卸载时删除的文件
|
||
[UninstallDelete]
|
||
; 删除 mysql 相关内容（停止服务可能需要一定时间，因此删除mysql时可能存在占用问题导致删除失败，需要转到 code 实现）
|
||
Type: files; Name: "{app}\mysql\my.ini"
|
||
Type: files; Name: "{app}\mysql\*.bat"
|
||
Type: filesandordirs; Name: "{app}\mysql\data"
|
||
Type: filesandordirs; Name: "{app}\mysql\lib"
|
||
Type: filesandordirs; Name: "{app}\mysql\bin"
|
||
; 删除 minio 数据
|
||
Type: filesandordirs; Name: "{app}\io"
|
||
Type: filesandordirs; Name: "{app}\io\data"
|
||
; 删除 nginx log
|
||
Type: filesandordirs; Name: "{app}\nginx\logs"
|
||
; 删除 rocketmq 数据
|
||
Type: filesandordirs; Name: "{app}\rocketmq\sbin\store"
|
||
|