install_all upgrade

base/Resources/rocketmq/sbin/rocketmq.bat

@@ -72,16 +72,16 @@ if exist "%ROCKETMQ_HOME%\bin\rocketmq-dashboard.jar" (
   start "RocketMQ Dashboard" /B cmd /c ""%JAVA_HOME%\bin\java" -jar -Dserver.port=8088 "%ROCKETMQ_HOME%\bin\rocketmq-dashboard.jar""
 )
 
-echo.
+:: echo.
-echo ========================================
+:: echo ========================================
-echo  RocketMQ Services Status
+:: echo  RocketMQ Services Status
-echo ========================================
+:: echo ========================================
-echo - NameServer (Port: 9876)
+:: echo - NameServer (Port: 9876)
-echo - Broker (Port: 10911)
+:: echo - Broker (Port: 10911)
-echo - Proxy (Port: 8081)
+:: echo - Proxy (Port: 8081)
-echo - Dashboard (Port: 8080)
+:: echo - Dashboard (Port: 8080)
-echo ========================================
+:: echo ========================================
-echo.
+:: echo.
 
 exit /b 0
 

base/install_all.iss

@@ -1,7 +1,7 @@
 ;iss
 
 #define MyAppName "基础环境"
-#define MyAppVersion "1.0.8"
+#define MyAppVersion "1.0.12"
 #define MyAppPublisher "X"
 #define MyAppURL "~"
 #define MyAppExeName "command"
@@ -54,7 +54,7 @@ PrivilegesRequired=admin
 ArchitecturesAllowed=x64compatible
 ArchitecturesInstallIn64BitMode=x64compatible
 OutputDir=Release\
-OutputBaseFilename=Setup-{#MyAppVersion}
+OutputBaseFilename=RuntimeSetup-{#MyAppVersion}
 
 
 ; 语言选择
@@ -73,7 +73,7 @@ Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{
 ;; 程序 ICO
 [Icons]
 ;Name: "{autoprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}.exe"
-Name: "{autodesktop}\Quick Start Environment"; Filename: "{app}\quick.bat"; Tasks: desktopicon
+Name: "{autodesktop}\Quick Start Environment"; Filename: "{app}\quick.bat"; Comment: "一键启动 Redis、MinIO、Home、RocketMQ 服务"; Tasks: desktopicon
 
 
 ;; 组件安装方式
@@ -125,7 +125,7 @@ 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";
@@ -164,36 +164,45 @@ Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environmen
       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'); 
       
+;; 【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; \
+;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; \
+;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; \
+;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; \
+;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%'); 
+;
+; 关闭注册到环境变量，整体由一键启动脚本代为执行
+
 
 
 
@@ -206,11 +215,15 @@ Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environmen
       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 变量
+; 追加到 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'); 
 
@@ -220,6 +233,7 @@ Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environmen
 [Code]
 
 const
+  // 系统环境变量
   WM_SETTINGCHANGE = 26;         // 0x001A 的十进制
   SMTO_ABORTIFHUNG = 2;          // 0x0002 的十进制
 
@@ -227,6 +241,12 @@ const
   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;
@@ -243,6 +263,12 @@ begin
 end;
 
 
+// 导入 Windows API 函数，作用于 延迟函数
+function GetTickCount: DWord;
+  external 'GetTickCount@kernel32.dll stdcall';
+
+  
+// 导入 Windows API 函数，作用于 环境变量更新
 function SendMessageTimeout(
   hWnd: Integer;
   Msg: Integer;
@@ -255,6 +281,41 @@ function SendMessageTimeout(
 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
@@ -345,10 +406,37 @@ begin
 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
@@ -367,7 +455,7 @@ var
   ReplaceCount: Integer;
 begin
 
-  // generate my.ini
+  // 生成 my.ini
   TemplateIniPath := ExpandConstant('{app}\mysql\template.ini');
   TargetIniPath := ExpandConstant('{app}\mysql\my.ini');
   
@@ -385,7 +473,7 @@ begin
   
   
 
-  // generate initialize-and-start-mysql.bat
+  // 生成 initialize-and-start-mysql.bat
   TemplateInitialPath := ExpandConstant('{app}\mysql\template-initialize-and-start-mysql.bat');
   TargetInitialPath := ExpandConstant('{app}\mysql\initialize-and-start-mysql.bat');
   
@@ -401,7 +489,7 @@ begin
   
   
 
-  // generate register-mysql-with-data.bat
+  // 生成 register-mysql-with-data.bat
   TemplateRegisterPath := ExpandConstant('{app}\mysql\template-register-mysql-with-data.bat');
   TargetRegisterPath := ExpandConstant('{app}\mysql\register-mysql-with-data.bat');
   
@@ -427,6 +515,7 @@ function InitializeSetup: Boolean;
 begin
   // 默认允许安装继续
   Result := True;
+  
   // 如果 VC++ 2019 未安装
   if not IsVC2019Installed then
   begin
@@ -434,18 +523,31 @@ begin
     // 中止安装
     Result := False;
   end;
+  
 end;
 
 
 // 在安装完成后执行
 procedure CurStepChanged(CurStep: TSetupStep);
+var
+  ResultCode: Integer;
+  Cmd: string;
+  MySQLPath: string;
+  UsrPath: string;
 begin  
+
+
   // 仅在安装完成后执行
   if CurStep = ssPostInstall then
   begin
+
+
     // 创建配置文件
     CreateConfigFromTemplate;
 
+    // DeleteFile
+    // DelTree
+
     // 删除模版文件
     if FileExists(ExpandConstant('{app}\mysql\template.ini')) then
       DeleteFile(ExpandConstant('{app}\mysql\template.ini'));
@@ -458,16 +560,104 @@ begin
       
     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);
-  end;
+
+
+    // 删除默认 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'));
+
+
+
+    // 通过 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);
+        // 初始化
+        // 同步 ewWaitUntilTerminated
+        // 异步 ewNoWait
+        
+        Cmd := '/C "' + ExpandConstant('{app}') + '\mysql\initialize-and-start-mysql.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'));
+        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);
+          
+          // 判断是否安装了 usr 基础环境
+          if FileExists(ExpandConstant('{app}\usr\rar.exe')) then
+          begin
+            // 这个时候 `环境变量` 还没开始注册，所以 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('初始化 MySQL 脚本失败', mbError, MB_OK);
+              end;
+              DelayMS(1000);
+            end;
+          end;
+          
+        end;
+      end;
+    end;
+    
+  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;
 
@@ -478,11 +668,22 @@ Filename: "sc"; Parameters: "stop redis"; Flags: runascurrentuser runhidden wait
 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"
+