From efb43a8edceaa09b7d0cf64bc50d81c454495016 Mon Sep 17 00:00:00 2001
From: yuejiajun <1530620364@qq.com>
Date: Mon, 18 Aug 2025 15:07:06 +0800
Subject: [PATCH] =?UTF-8?q?=E3=80=90=E5=9F=BA=E6=9C=AC=E7=8E=AF=E5=A2=83?=
 =?UTF-8?q?=E3=80=91=E5=AE=89=E8=A3=85?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 base/install_base.iss |   2 +-
 base/install_usr.iss  | 257 ++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 258 insertions(+), 1 deletion(-)
 create mode 100644 base/install_usr.iss

diff --git a/base/install_base.iss b/base/install_base.iss
index 5a04a1b..a77dfd8 100644
--- a/base/install_base.iss
+++ b/base/install_base.iss
@@ -31,7 +31,7 @@ UninstallFilesDir={app}
 UninstallDisplayIcon={app}\{#MyAppExeName}.exe
 VersionInfoCompany=
 VersionInfoCopyright=CopyRight © 2025
-VersionInfoDescription=
+VersionInfoDescription=装配DB、IO、MQ、Command等
 VersionInfoProductVersion=1.0.0
 VersionInfoProductName=基础环境（支持Windows7及以上）
 
diff --git a/base/install_usr.iss b/base/install_usr.iss
new file mode 100644
index 0000000..b971c47
--- /dev/null
+++ b/base/install_usr.iss
@@ -0,0 +1,257 @@
+;iss
+
+#define MyAppName "基础环境"
+#define MyAppVersion "v1.0.0"
+#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', '', '')
+
+
+; 默认配置
+[Setup]
+; 不得复用，每个应用必须有唯一AppId
+AppId={{517C2278-C7C9-43D0-8E94-BFD2039C7BB8}
+; 默认安装路径
+DefaultDirName={autopf}\{#MyAppFirstPath}
+; 是否加密
+;Encryption=yes
+; 安装密码
+;Password={#InstallPassword}
+; ICO图标
+; SetupIconFile=Resources\startup.ico
+UninstallFilesDir={app}
+UninstallDisplayIcon={app}\{#MyAppExeName}.exe
+VersionInfoCompany=
+VersionInfoCopyright=CopyRight © 2025
+VersionInfoDescription=基本命令扩充（sed、awk、grep等）
+VersionInfoProductVersion=1.0.0
+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={#MyAppExeNameHump}Setup-{#MyAppVersion}
+
+
+; 语言选择
+[Languages]
+Name: "Chinese"; MessagesFile: "compiler:Languages\Chinese.isl";
+
+
+;; 任务
+[Tasks]
+; 是否创建桌面图标
+; checkablealone 默认选中
+; unchecked 默认不选中
+;Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
+
+
+;; 程序 ICO
+[Icons]
+;Name: "{autoprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}.exe"
+;Name: "{autodesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}.exe"; 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;
+
+
+;; 引入文件列表
+[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;
+;; 文件夹
+; recursesubdirs createallsubdirs 递归复制整个目录
+Source: "{#MyAppResources}\usr\*"; DestDir: "{app}\usr\"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: MainApp;
+
+
+;; 创建必要目录
+[Dirs]
+
+
+;; 安装前后删除文件
+[InstallDelete]
+
+
+;; 安装时注册表与环境变量列表
+[Registry]
+; uninsdeletevalue 卸载时删除值
+; uninsdeletekey 卸载时删除键
+; preservestringtype 保留原值类型
+;; ============================================== Path 禁止使用任何 *delete*、*remove* 作为 Flags 运行 ==============================================
+
+;; 【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'); 
+
+
+
+;; 自定义函数
+[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}';
+
+
+// 获取安装密码
+function GetInstallPassword(): string;
+begin
+  Result := GetDateTimeString('yyyymmdd', '', '');
+end;
+
+
+function SendMessageTimeout(
+  hWnd: Integer;
+  Msg: Integer;
+  wParam: Integer;
+  lParamStr: String;
+  fuFlags: Integer;
+  uTimeout: Integer;
+  var lpdwResult: Integer
+): Integer;
+external 'SendMessageTimeoutW@user32.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;
+
+
+// 在安装前检查
+function InitializeSetup: Boolean;
+begin
+  // do somethings ...
+  // 默认允许安装继续
+  Result := True;
+end;
+
+
+// 在安装完成后执行
+procedure CurStepChanged(CurStep: TSetupStep);
+begin  
+  // 仅在安装完成后执行
+  if CurStep = ssPostInstall then
+  begin
+    // do somethings ...
+  end;
+end;
+
+
+// 卸载前先停止程序运行
+procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
+begin
+  if CurUninstallStep = usUninstall then begin
+    // do somethings ...
+  end;
+end;
+
+
+[UninstallRun]
+;; 卸载前运行
+
+
+
+;; 卸载时删除的文件
+[UninstallDelete]
+