【基本环境】安装
This commit is contained in:
yuejiajun
parent
097b00a5a5
commit
efb43a8edc
@ -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及以上）
|
||||
|
||||
|
||||
257
base/install_usr.iss
Normal file
257
base/install_usr.iss
Normal file
@ -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]
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user