mirror of
https://github.com/hansjone/netx.git
synced 2026-10-09 03:10:46 +08:00
Release 0.4.5: installer DB wizard, credential key, lean offline Setup.
Choose bundled or external PostgreSQL in the Setup wizard with connection validation; optional NETX_CREDENTIAL_SECRET_KEY; single desktop shortcut; faster uninstall and tray startup for offline Windows packages. Co-authored-by: Cursor <cursoragent@cursor.com>
This commit is contained in:
parent
86dfd41f44
commit
97393cd407
20 changed files with 1531 additions and 146 deletions
|
|
@ -1,6 +1,7 @@
|
|||
; NetX Windows installer (Inno Setup 6+)
|
||||
; Compile after: packaging\build_release.ps1
|
||||
; ISCC.exe packaging\installer\netx.iss
|
||||
; Encoding: UTF-8 with BOM (required for Chinese CustomMessages)
|
||||
|
||||
#define MyAppName "NetX"
|
||||
#ifndef MyAppVersion
|
||||
|
|
@ -25,7 +26,10 @@ DefaultGroupName=NetX
|
|||
DisableProgramGroupPage=yes
|
||||
LicenseFile={#StageDir}\LICENSE
|
||||
OutputDir=..\release
|
||||
OutputBaseFilename=NetX-Setup-{#MyAppVersion}
|
||||
#ifndef OutputBaseFilename
|
||||
#define OutputBaseFilename "NetX-Setup-" + MyAppVersion
|
||||
#endif
|
||||
OutputBaseFilename={#OutputBaseFilename}
|
||||
SetupIconFile={#IconFile}
|
||||
UninstallDisplayIcon={app}\packaging\assets\netx.ico
|
||||
Compression=lzma2
|
||||
|
|
@ -34,8 +38,10 @@ WizardStyle=modern
|
|||
ArchitecturesAllowed=x64compatible
|
||||
ArchitecturesInstallIn64BitMode=x64compatible
|
||||
PrivilegesRequired=admin
|
||||
; Data lives under {commonappdata}\NetX 鈥?not overwritten by upgrades
|
||||
CloseApplications=yes
|
||||
; Data lives under {commonappdata}\NetX - not overwritten by upgrades.
|
||||
; Do NOT use CloseApplications=yes — it can freeze/beep on the Tasks/Ready
|
||||
; pages while scanning locked NetX tray/service processes with no visible dialog.
|
||||
CloseApplications=no
|
||||
ShowLanguageDialog=yes
|
||||
|
||||
[Languages]
|
||||
|
|
@ -44,26 +50,76 @@ Name: "chinesesimplified"; MessagesFile: "Languages\ChineseSimplified.isl"
|
|||
|
||||
[CustomMessages]
|
||||
english.CreateDesktopIcon=Create a desktop shortcut
|
||||
english.SetupOptions=Setup options:
|
||||
english.RunFirstSetup=Run first-time setup after install (bundled database, offline)
|
||||
english.SetupOptions=After install:
|
||||
english.StartTrayNow=Start NetX tray now
|
||||
english.EnableAutostart=Start NetX tray at Windows logon
|
||||
english.EnableAutoUpdate=Enable daily silent auto-update (needs network later)
|
||||
english.InstallService=Install as Windows Service (uses bundled WinSW, offline)
|
||||
chinesesimplified.CreateDesktopIcon=鍒涘缓妗岄潰蹇嵎鏂瑰紡
|
||||
chinesesimplified.SetupOptions=瀹夎閫夐」:
|
||||
chinesesimplified.RunFirstSetup=瀹夎鍚庤繍琛岄娆￠厤缃紙鍐呯疆鏁版嵁搴擄紝鍙绾匡級
|
||||
chinesesimplified.StartTrayNow=绔嬪嵆鍚姩 NetX 鎵樼洏
|
||||
chinesesimplified.EnableAutostart=寮€鏈烘椂鑷姩鍚姩 NetX 鎵樼洏
|
||||
chinesesimplified.EnableAutoUpdate=鍚敤姣忔棩闈欓粯鑷姩鏇存柊锛堜互鍚庨渶瑕佽仈缃戯級
|
||||
chinesesimplified.InstallService=瀹夎涓?Windows 鏈嶅姟锛堜娇鐢ㄥ凡鎹嗙粦鐨?WinSW锛屽彲绂荤嚎锛?
|
||||
english.UninstallDeleteData=Also delete NetX data (%ProgramData%\NetX)?%n%nYes = remove database, settings, and secrets%nNo = keep data for a later reinstall
|
||||
english.DbPageCaption=Database
|
||||
english.DbPageDescription=Choose built-in or external PostgreSQL. Optional credential key: paste from an existing install, or leave empty to auto-generate.
|
||||
english.DbBundled=Built-in PostgreSQL (portable, offline)
|
||||
english.DbExternal=External PostgreSQL (existing server)
|
||||
english.DbHost=Host
|
||||
english.DbPort=Port
|
||||
english.DbUser=User
|
||||
english.DbPassword=Password
|
||||
english.DbName=Database
|
||||
english.CredKey=Credential key
|
||||
english.CredKeyHint=NETX_CREDENTIAL_SECRET_KEY (optional — empty = auto-generate)
|
||||
english.DbFieldsRequired=Please fill in host, port, user, password, and database name.
|
||||
english.DbTesting=Testing PostgreSQL connection, please wait…
|
||||
english.DbTestFailed=Cannot connect to PostgreSQL with these settings.%n%n%1%n%nFix the settings and try again.
|
||||
english.DbTestExtractFailed=Could not extract PostgreSQL client tools for connection test.
|
||||
english.DbSilentExternalMissing=Silent install with external DB requires /DbHost /DbUser /DbPassword /DbName (optional /DbPort).
|
||||
english.DbApplyFailed=Database configuration failed after file install (exit %1). See %ProgramData%\NetX or run Start Menu → Reconfigure database.
|
||||
english.ReconfigureDb=Reconfigure database
|
||||
chinesesimplified.CreateDesktopIcon=创建桌面快捷方式
|
||||
chinesesimplified.SetupOptions=安装完成后:
|
||||
chinesesimplified.StartTrayNow=立即启动 NetX 托盘
|
||||
chinesesimplified.EnableAutostart=开机时自动启动 NetX 托盘
|
||||
chinesesimplified.EnableAutoUpdate=启用每日静默自动更新（以后需要联网）
|
||||
chinesesimplified.InstallService=安装为 Windows 服务（使用已捆绑的 WinSW，可离线）
|
||||
chinesesimplified.UninstallDeleteData=是否同时删除 NetX 数据（%ProgramData%\NetX）？%n%n是 = 删除数据库、配置和密钥%n否 = 保留数据以便以后重装
|
||||
chinesesimplified.DbPageCaption=数据库
|
||||
chinesesimplified.DbPageDescription=选择内置或外置 PostgreSQL。可选粘贴已有 NETX_CREDENTIAL_SECRET_KEY；留空则自动生成。
|
||||
chinesesimplified.DbBundled=内置 PostgreSQL（便携，可离线）
|
||||
chinesesimplified.DbExternal=外置 PostgreSQL（已有服务器）
|
||||
chinesesimplified.DbHost=主机
|
||||
chinesesimplified.DbPort=端口
|
||||
chinesesimplified.DbUser=用户
|
||||
chinesesimplified.DbPassword=密码
|
||||
chinesesimplified.DbName=数据库名
|
||||
chinesesimplified.CredKey=凭据密钥
|
||||
chinesesimplified.CredKeyHint=NETX_CREDENTIAL_SECRET_KEY（可选，留空=自动生成）
|
||||
chinesesimplified.DbFieldsRequired=请填写主机、端口、用户、密码和数据库名。
|
||||
chinesesimplified.DbTesting=正在测试 PostgreSQL 连接，请稍候…
|
||||
chinesesimplified.DbTestFailed=无法用当前设置连接 PostgreSQL。%n%n%1%n%n请改正后重试。
|
||||
chinesesimplified.DbTestExtractFailed=无法解压 PostgreSQL 客户端以测试连接。
|
||||
chinesesimplified.DbSilentExternalMissing=静默安装外置库需要参数 /DbHost /DbUser /DbPassword /DbName（可选 /DbPort）。
|
||||
chinesesimplified.DbApplyFailed=文件安装后数据库配置失败（退出码 %1）。请查看 %ProgramData%\NetX，或运行开始菜单 → 重新配置数据库。
|
||||
chinesesimplified.ReconfigureDb=重新配置数据库
|
||||
|
||||
[Tasks]
|
||||
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: checkedonce
|
||||
Name: "firstrun"; Description: "{cm:RunFirstSetup}"; GroupDescription: "{cm:SetupOptions}"; Flags: checkedonce
|
||||
|
||||
[Files]
|
||||
; Entire release stage 鈫?{app}. Exclude .portable so installed builds use ProgramData.
|
||||
; Entire release stage -> {app}. Exclude .portable so installed builds use ProgramData.
|
||||
Source: "{#StageDir}\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Excludes: ".portable"
|
||||
; Connection-test tools (wizard Next / silent PrepareToInstall only)
|
||||
Source: "test_pg_conn.ps1"; Flags: dontcopy
|
||||
Source: "{#StageDir}\postgres\pgsql\bin\psql.exe"; Flags: dontcopy
|
||||
Source: "{#StageDir}\postgres\pgsql\bin\libpq.dll"; Flags: dontcopy
|
||||
Source: "{#StageDir}\postgres\pgsql\bin\libssl-3-x64.dll"; Flags: dontcopy
|
||||
Source: "{#StageDir}\postgres\pgsql\bin\libcrypto-3-x64.dll"; Flags: dontcopy
|
||||
Source: "{#StageDir}\postgres\pgsql\bin\libintl-9.dll"; Flags: dontcopy
|
||||
Source: "{#StageDir}\postgres\pgsql\bin\libiconv-2.dll"; Flags: dontcopy
|
||||
Source: "{#StageDir}\postgres\pgsql\bin\libwinpthread-1.dll"; Flags: dontcopy
|
||||
Source: "{#StageDir}\postgres\pgsql\bin\zlib1.dll"; Flags: dontcopy
|
||||
Source: "{#StageDir}\postgres\pgsql\bin\liblz4.dll"; Flags: dontcopy
|
||||
Source: "{#StageDir}\postgres\pgsql\bin\libzstd.dll"; Flags: dontcopy
|
||||
Source: "{#StageDir}\postgres\pgsql\bin\libxml2.dll"; Flags: dontcopy
|
||||
Source: "{#StageDir}\postgres\pgsql\bin\libxslt.dll"; Flags: dontcopy
|
||||
|
||||
[Dirs]
|
||||
Name: "{commonappdata}\NetX"
|
||||
|
|
@ -73,31 +129,656 @@ Name: "{commonappdata}\NetX\data\runtime"
|
|||
Name: "{commonappdata}\NetX\pgdata"
|
||||
Name: "{commonappdata}\NetX\backups"
|
||||
|
||||
[InstallDelete]
|
||||
; Remove legacy desktop shortcuts from older Setup builds (keep a single NetX icon).
|
||||
Type: files; Name: "{commondesktop}\NetX Start.lnk"
|
||||
Type: files; Name: "{commondesktop}\NetX First-time setup.lnk"
|
||||
Type: files; Name: "{commondesktop}\首次配置（内置或外置数据库）.lnk"
|
||||
|
||||
[Icons]
|
||||
; Prefer .cmd targets so Server 2012 / classic Start Menu shows normal program entries.
|
||||
; Also pin First-time setup + Start to common desktop (always), not only optional tray icon.
|
||||
Name: "{group}\NetX Tray"; Filename: "{app}\NetX-Tray.cmd"; WorkingDir: "{app}"; IconFilename: "{app}\packaging\assets\netx.ico"
|
||||
Name: "{group}\Start NetX"; Filename: "{app}\NetX-Start.cmd"; WorkingDir: "{app}"; IconFilename: "{app}\packaging\assets\netx.ico"
|
||||
Name: "{group}\Stop NetX"; Filename: "powershell.exe"; Parameters: "-NoProfile -ExecutionPolicy Bypass -File ""{app}\packaging\launch_shortcut.ps1"" -Action stop -ProgramRoot ""{app}"" -DataRoot ""{commonappdata}\NetX"""; WorkingDir: "{app}"; IconFilename: "{app}\packaging\assets\netx.ico"
|
||||
Name: "{group}\Stop NetX"; Filename: "{app}\NetX-Stop.cmd"; WorkingDir: "{app}"; IconFilename: "{app}\packaging\assets\netx.ico"
|
||||
Name: "{group}\Check for updates"; Filename: "powershell.exe"; Parameters: "-NoProfile -ExecutionPolicy Bypass -File ""{app}\packaging\launch_shortcut.ps1"" -Action update -ProgramRoot ""{app}"" -DataRoot ""{commonappdata}\NetX"""; WorkingDir: "{app}"; IconFilename: "{app}\packaging\assets\netx.ico"
|
||||
Name: "{group}\Open NetX UI"; Filename: "http://127.0.0.1:8890/"; IconFilename: "{app}\packaging\assets\netx.ico"
|
||||
Name: "{group}\First-time setup"; Filename: "{app}\NetX-FirstRun.cmd"; WorkingDir: "{app}"; IconFilename: "{app}\packaging\assets\netx.ico"
|
||||
Name: "{group}\{cm:ReconfigureDb}"; Filename: "{app}\NetX-FirstRun.cmd"; WorkingDir: "{app}"; IconFilename: "{app}\packaging\assets\netx.ico"
|
||||
Name: "{group}\Install Windows Service (admin)"; Filename: "powershell.exe"; Parameters: "-ExecutionPolicy Bypass -File ""{app}\packaging\install_service.ps1"" -ProgramRoot ""{app}"" -DataRoot ""{commonappdata}\NetX"" -Start"; WorkingDir: "{app}"; IconFilename: "{app}\packaging\assets\netx.ico"
|
||||
Name: "{group}\Enable silent auto-update (daily)"; Filename: "powershell.exe"; Parameters: "-ExecutionPolicy Bypass -File ""{app}\packaging\install_update_task.ps1"" -ProgramRoot ""{app}"" -DataRoot ""{commonappdata}\NetX"""; WorkingDir: "{app}"; IconFilename: "{app}\packaging\assets\netx.ico"
|
||||
Name: "{group}\Enable start at logon"; Filename: "powershell.exe"; Parameters: "-ExecutionPolicy Bypass -File ""{app}\packaging\install_autostart.ps1"" -ProgramRoot ""{app}"""; WorkingDir: "{app}"; IconFilename: "{app}\packaging\assets\netx.ico"
|
||||
Name: "{commondesktop}\NetX First-time setup"; Filename: "{app}\NetX-FirstRun.cmd"; WorkingDir: "{app}"; IconFilename: "{app}\packaging\assets\netx.ico"
|
||||
Name: "{commondesktop}\NetX Start"; Filename: "{app}\NetX-Start.cmd"; WorkingDir: "{app}"; IconFilename: "{app}\packaging\assets\netx.ico"
|
||||
; One desktop shortcut only (tray = start + tray UI). Start Menu keeps Start/Stop entries.
|
||||
Name: "{commondesktop}\NetX"; Filename: "{app}\NetX-Tray.cmd"; WorkingDir: "{app}"; IconFilename: "{app}\packaging\assets\netx.ico"; Tasks: desktopicon
|
||||
|
||||
[Run]
|
||||
; First-run is NonInteractive + bundled DB so offline machines succeed without prompts or downloads.
|
||||
Filename: "powershell.exe"; Parameters: "-ExecutionPolicy Bypass -File ""{app}\packaging\setup_first_run.ps1"" -ProgramRoot ""{app}"" -DataRoot ""{commonappdata}\NetX"" -NonInteractive -DbMode bundled"; WorkingDir: "{app}"; Flags: postinstall skipifsilent; Tasks: firstrun
|
||||
Filename: "powershell.exe"; Parameters: "-NoProfile -WindowStyle Hidden -ExecutionPolicy Bypass -File ""{app}\packaging\netx_tray.ps1"" -ProgramRoot ""{app}"" -DataRoot ""{commonappdata}\NetX"" -StartOnLaunch"; WorkingDir: "{app}"; Description: "{cm:StartTrayNow}"; Flags: postinstall nowait skipifsilent unchecked
|
||||
Filename: "powershell.exe"; Parameters: "-ExecutionPolicy Bypass -File ""{app}\packaging\install_autostart.ps1"" -ProgramRoot ""{app}"""; WorkingDir: "{app}"; Description: "{cm:EnableAutostart}"; Flags: postinstall skipifsilent unchecked
|
||||
Filename: "powershell.exe"; Parameters: "-ExecutionPolicy Bypass -File ""{app}\packaging\install_update_task.ps1"" -ProgramRoot ""{app}"" -DataRoot ""{commonappdata}\NetX"""; WorkingDir: "{app}"; Description: "{cm:EnableAutoUpdate}"; Flags: postinstall skipifsilent unchecked
|
||||
Filename: "powershell.exe"; Parameters: "-ExecutionPolicy Bypass -File ""{app}\packaging\install_service.ps1"" -ProgramRoot ""{app}"" -DataRoot ""{commonappdata}\NetX"" -Start"; WorkingDir: "{app}"; Description: "{cm:InstallService}"; Flags: postinstall skipifsilent unchecked
|
||||
Filename: "powershell.exe"; Parameters: "-NoProfile -WindowStyle Hidden -ExecutionPolicy Bypass -File ""{app}\packaging\netx_tray.ps1"" -ProgramRoot ""{app}"" -DataRoot ""{commonappdata}\NetX"" -StartOnLaunch"; WorkingDir: "{app}"; Description: "{cm:StartTrayNow}"; Flags: postinstall runhidden nowait skipifsilent
|
||||
Filename: "powershell.exe"; Parameters: "-NoProfile -WindowStyle Hidden -ExecutionPolicy Bypass -File ""{app}\packaging\install_autostart.ps1"" -ProgramRoot ""{app}"""; WorkingDir: "{app}"; Description: "{cm:EnableAutostart}"; Flags: postinstall runhidden skipifsilent unchecked
|
||||
Filename: "powershell.exe"; Parameters: "-NoProfile -WindowStyle Hidden -ExecutionPolicy Bypass -File ""{app}\packaging\install_update_task.ps1"" -ProgramRoot ""{app}"" -DataRoot ""{commonappdata}\NetX"""; WorkingDir: "{app}"; Description: "{cm:EnableAutoUpdate}"; Flags: postinstall runhidden skipifsilent unchecked
|
||||
Filename: "powershell.exe"; Parameters: "-NoProfile -WindowStyle Hidden -ExecutionPolicy Bypass -File ""{app}\packaging\install_service.ps1"" -ProgramRoot ""{app}"" -DataRoot ""{commonappdata}\NetX"" -Start"; WorkingDir: "{app}"; Description: "{cm:InstallService}"; Flags: postinstall runhidden skipifsilent unchecked
|
||||
|
||||
; Stop runtime BEFORE files are deleted. Do not also Exec prepare from
|
||||
; InitializeUninstall (that previously raced/killed unins000 or hung the UI).
|
||||
[UninstallRun]
|
||||
Filename: "powershell.exe"; Parameters: "-NoProfile -WindowStyle Hidden -ExecutionPolicy Bypass -File ""{app}\packaging\uninstall_prepare.ps1"" -ProgramRoot ""{app}"" -DataRoot ""{commonappdata}\NetX"""; WorkingDir: "{app}"; RunOnceId: "StopNetX"; Flags: runhidden waituntilterminated
|
||||
|
||||
[UninstallDelete]
|
||||
; Do NOT delete {commonappdata}\NetX 鈥?preserves DB and secrets across reinstall
|
||||
; Program files always removed. Data dir only when user chose Yes in InitializeUninstall.
|
||||
Type: filesandordirs; Name: "{app}"
|
||||
|
||||
[Code]
|
||||
var
|
||||
GDeleteNetxData: Boolean;
|
||||
GTempDeleteDataScript: String;
|
||||
DbPage: TWizardPage;
|
||||
RbBundled: TNewRadioButton;
|
||||
RbExternal: TNewRadioButton;
|
||||
LblHost: TNewStaticText;
|
||||
LblPort: TNewStaticText;
|
||||
LblUser: TNewStaticText;
|
||||
LblPassword: TNewStaticText;
|
||||
LblDbName: TNewStaticText;
|
||||
EdHost: TNewEdit;
|
||||
EdPort: TNewEdit;
|
||||
EdUser: TNewEdit;
|
||||
EdPassword: TNewEdit;
|
||||
EdDbName: TNewEdit;
|
||||
LblCredKey: TNewStaticText;
|
||||
LblCredHint: TNewStaticText;
|
||||
EdCredKey: TNewEdit;
|
||||
GDbMode: String;
|
||||
GDbUrl: String;
|
||||
GDbHost: String;
|
||||
GDbPort: String;
|
||||
GDbUser: String;
|
||||
GDbPassword: String;
|
||||
GDbName: String;
|
||||
GCredKey: String;
|
||||
GSkipDbPage: Boolean;
|
||||
GDbConfigured: Boolean;
|
||||
GPgToolsReady: Boolean;
|
||||
GDbConnOk: Boolean;
|
||||
GNextBtnCaption: String;
|
||||
|
||||
function EnvHasDbMode(): Boolean;
|
||||
var
|
||||
Lines: TArrayOfString;
|
||||
i: Integer;
|
||||
Line: String;
|
||||
begin
|
||||
Result := False;
|
||||
if not LoadStringsFromFile(ExpandConstant('{commonappdata}\NetX\.env'), Lines) then
|
||||
Exit;
|
||||
for i := 0 to GetArrayLength(Lines) - 1 do
|
||||
begin
|
||||
Line := Trim(Lines[i]);
|
||||
if Pos('NETX_DB_MODE=', Line) = 1 then
|
||||
begin
|
||||
if Length(Line) > Length('NETX_DB_MODE=') then
|
||||
begin
|
||||
Result := True;
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure UpdateDbFieldState();
|
||||
var
|
||||
Ext: Boolean;
|
||||
begin
|
||||
Ext := RbExternal.Checked;
|
||||
LblHost.Enabled := Ext;
|
||||
LblPort.Enabled := Ext;
|
||||
LblUser.Enabled := Ext;
|
||||
LblPassword.Enabled := Ext;
|
||||
LblDbName.Enabled := Ext;
|
||||
EdHost.Enabled := Ext;
|
||||
EdPort.Enabled := Ext;
|
||||
EdUser.Enabled := Ext;
|
||||
EdPassword.Enabled := Ext;
|
||||
EdDbName.Enabled := Ext;
|
||||
end;
|
||||
|
||||
procedure DbModeClick(Sender: TObject);
|
||||
begin
|
||||
UpdateDbFieldState();
|
||||
end;
|
||||
|
||||
function ExtractPgClientTools(): Boolean;
|
||||
begin
|
||||
if GPgToolsReady and FileExists(ExpandConstant('{tmp}\psql.exe')) and
|
||||
FileExists(ExpandConstant('{tmp}\test_pg_conn.ps1')) then
|
||||
begin
|
||||
Result := True;
|
||||
Exit;
|
||||
end;
|
||||
Result := False;
|
||||
try
|
||||
ExtractTemporaryFile('test_pg_conn.ps1');
|
||||
ExtractTemporaryFile('psql.exe');
|
||||
ExtractTemporaryFile('libpq.dll');
|
||||
ExtractTemporaryFile('libssl-3-x64.dll');
|
||||
ExtractTemporaryFile('libcrypto-3-x64.dll');
|
||||
ExtractTemporaryFile('libintl-9.dll');
|
||||
ExtractTemporaryFile('libiconv-2.dll');
|
||||
ExtractTemporaryFile('libwinpthread-1.dll');
|
||||
ExtractTemporaryFile('zlib1.dll');
|
||||
ExtractTemporaryFile('liblz4.dll');
|
||||
ExtractTemporaryFile('libzstd.dll');
|
||||
ExtractTemporaryFile('libxml2.dll');
|
||||
ExtractTemporaryFile('libxslt.dll');
|
||||
Result := FileExists(ExpandConstant('{tmp}\psql.exe')) and
|
||||
FileExists(ExpandConstant('{tmp}\test_pg_conn.ps1'));
|
||||
GPgToolsReady := Result;
|
||||
except
|
||||
Result := False;
|
||||
GPgToolsReady := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SetWizardBusy(const Busy: Boolean; const StatusText: String);
|
||||
begin
|
||||
if Busy then
|
||||
begin
|
||||
if GNextBtnCaption = '' then
|
||||
GNextBtnCaption := WizardForm.NextButton.Caption;
|
||||
WizardForm.NextButton.Caption := StatusText;
|
||||
WizardForm.NextButton.Enabled := False;
|
||||
WizardForm.BackButton.Enabled := False;
|
||||
WizardForm.CancelButton.Enabled := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
if GNextBtnCaption <> '' then
|
||||
WizardForm.NextButton.Caption := GNextBtnCaption;
|
||||
WizardForm.NextButton.Enabled := True;
|
||||
WizardForm.BackButton.Enabled := True;
|
||||
WizardForm.CancelButton.Enabled := True;
|
||||
end;
|
||||
WizardForm.Refresh;
|
||||
end;
|
||||
|
||||
function TestExternalDb(const Host, Port, User, Password, DbName: String; var ErrMsg: String): Boolean;
|
||||
var
|
||||
ResultCode: Integer;
|
||||
UrlFile: String;
|
||||
ErrFile: String;
|
||||
PwFile: String;
|
||||
Params: String;
|
||||
Lines: TArrayOfString;
|
||||
i: Integer;
|
||||
begin
|
||||
Result := False;
|
||||
ErrMsg := '';
|
||||
if not ExtractPgClientTools() then
|
||||
begin
|
||||
ErrMsg := ExpandConstant('{cm:DbTestExtractFailed}');
|
||||
Exit;
|
||||
end;
|
||||
|
||||
UrlFile := ExpandConstant('{tmp}\netx_db_url.txt');
|
||||
ErrFile := ExpandConstant('{tmp}\netx_db_test_err.txt');
|
||||
PwFile := ExpandConstant('{tmp}\netx_db_pw.txt');
|
||||
DeleteFile(UrlFile);
|
||||
DeleteFile(ErrFile);
|
||||
SaveStringToFile(PwFile, Password, False);
|
||||
|
||||
Params :=
|
||||
'-NoProfile -ExecutionPolicy Bypass -File "' + ExpandConstant('{tmp}\test_pg_conn.ps1') + '"' +
|
||||
' -PgHost "' + Host + '"' +
|
||||
' -Port ' + Port +
|
||||
' -User "' + User + '"' +
|
||||
' -PasswordFile "' + PwFile + '"' +
|
||||
' -Database "' + DbName + '"' +
|
||||
' -PsqlPath "' + ExpandConstant('{tmp}\psql.exe') + '"' +
|
||||
' -OutUrlFile "' + UrlFile + '"' +
|
||||
' -OutErrFile "' + ErrFile + '"';
|
||||
|
||||
if not Exec('powershell.exe', Params, ExpandConstant('{tmp}'), SW_HIDE, ewWaitUntilTerminated, ResultCode) then
|
||||
begin
|
||||
ErrMsg := 'powershell_exec_failed';
|
||||
DeleteFile(PwFile);
|
||||
Exit;
|
||||
end;
|
||||
DeleteFile(PwFile);
|
||||
if ResultCode <> 0 then
|
||||
begin
|
||||
ErrMsg := 'psql/test exit ' + IntToStr(ResultCode);
|
||||
if LoadStringsFromFile(ErrFile, Lines) then
|
||||
begin
|
||||
ErrMsg := '';
|
||||
for i := 0 to GetArrayLength(Lines) - 1 do
|
||||
begin
|
||||
if ErrMsg <> '' then
|
||||
ErrMsg := ErrMsg + #13#10;
|
||||
ErrMsg := ErrMsg + Lines[i];
|
||||
end;
|
||||
if ErrMsg = '' then
|
||||
ErrMsg := 'psql/test exit ' + IntToStr(ResultCode);
|
||||
end;
|
||||
Exit;
|
||||
end;
|
||||
if not LoadStringsFromFile(UrlFile, Lines) or (GetArrayLength(Lines) < 1) or (Trim(Lines[0]) = '') then
|
||||
begin
|
||||
ErrMsg := 'url_file_missing';
|
||||
Exit;
|
||||
end;
|
||||
GDbUrl := Trim(Lines[0]);
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
function SaveExternalFieldsFromControls(var ErrMsg: String): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
GDbHost := Trim(EdHost.Text);
|
||||
GDbPort := Trim(EdPort.Text);
|
||||
GDbUser := Trim(EdUser.Text);
|
||||
GDbPassword := EdPassword.Text;
|
||||
GDbName := Trim(EdDbName.Text);
|
||||
GDbConnOk := False;
|
||||
GDbUrl := '';
|
||||
if (GDbHost = '') or (GDbPort = '') or (GDbUser = '') or
|
||||
(GDbPassword = '') or (GDbName = '') then
|
||||
begin
|
||||
ErrMsg := ExpandConstant('{cm:DbFieldsRequired}');
|
||||
Exit;
|
||||
end;
|
||||
GDbMode := 'external';
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
function ValidateExternalDbSaved(var ErrMsg: String): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
if GDbConnOk and (GDbUrl <> '') then
|
||||
begin
|
||||
Result := True;
|
||||
Exit;
|
||||
end;
|
||||
if not TestExternalDb(GDbHost, GDbPort, GDbUser, GDbPassword, GDbName, ErrMsg) then
|
||||
begin
|
||||
if ErrMsg = '' then
|
||||
ErrMsg := 'connection_failed';
|
||||
ErrMsg := FmtMessage(ExpandConstant('{cm:DbTestFailed}'), [ErrMsg]);
|
||||
GDbConnOk := False;
|
||||
Exit;
|
||||
end;
|
||||
GDbConnOk := True;
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
function ApplySilentDbParams(var ErrMsg: String): Boolean;
|
||||
var
|
||||
Mode, Host, Port, User, Password, DbName: String;
|
||||
begin
|
||||
Result := False;
|
||||
GCredKey := Trim(ExpandConstant('{param:CredentialSecretKey|}'));
|
||||
Mode := LowerCase(ExpandConstant('{param:DbMode|bundled}'));
|
||||
if Mode = '' then
|
||||
Mode := 'bundled';
|
||||
if Mode = 'bundled' then
|
||||
begin
|
||||
GDbMode := 'bundled';
|
||||
GDbUrl := '';
|
||||
Result := True;
|
||||
Exit;
|
||||
end;
|
||||
if Mode <> 'external' then
|
||||
begin
|
||||
ErrMsg := 'invalid DbMode (use bundled or external)';
|
||||
Exit;
|
||||
end;
|
||||
Host := ExpandConstant('{param:DbHost|}');
|
||||
Port := ExpandConstant('{param:DbPort|5432}');
|
||||
User := ExpandConstant('{param:DbUser|}');
|
||||
Password := ExpandConstant('{param:DbPassword|}');
|
||||
DbName := ExpandConstant('{param:DbName|}');
|
||||
if (Host = '') or (User = '') or (Password = '') or (DbName = '') then
|
||||
begin
|
||||
ErrMsg := ExpandConstant('{cm:DbSilentExternalMissing}');
|
||||
Exit;
|
||||
end;
|
||||
if not TestExternalDb(Host, Port, User, Password, DbName, ErrMsg) then
|
||||
begin
|
||||
if ErrMsg = '' then
|
||||
ErrMsg := 'connection_failed';
|
||||
ErrMsg := FmtMessage(ExpandConstant('{cm:DbTestFailed}'), [ErrMsg]);
|
||||
Exit;
|
||||
end;
|
||||
GDbMode := 'external';
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
procedure CaptureCredKeyFromControls();
|
||||
begin
|
||||
if EdCredKey <> nil then
|
||||
GCredKey := Trim(EdCredKey.Text)
|
||||
else
|
||||
GCredKey := '';
|
||||
end;
|
||||
|
||||
procedure InitializeWizard();
|
||||
var
|
||||
TopPos: Integer;
|
||||
begin
|
||||
GDbMode := 'bundled';
|
||||
GDbUrl := '';
|
||||
GDbHost := '';
|
||||
GDbPort := '5432';
|
||||
GDbUser := '';
|
||||
GDbPassword := '';
|
||||
GDbName := '';
|
||||
GCredKey := '';
|
||||
GDbConfigured := False;
|
||||
GPgToolsReady := False;
|
||||
GDbConnOk := False;
|
||||
GSkipDbPage := EnvHasDbMode();
|
||||
|
||||
DbPage := CreateCustomPage(wpSelectDir,
|
||||
ExpandConstant('{cm:DbPageCaption}'),
|
||||
ExpandConstant('{cm:DbPageDescription}'));
|
||||
|
||||
RbBundled := TNewRadioButton.Create(DbPage);
|
||||
RbBundled.Parent := DbPage.Surface;
|
||||
RbBundled.Caption := ExpandConstant('{cm:DbBundled}');
|
||||
RbBundled.Checked := True;
|
||||
RbBundled.Top := ScaleY(8);
|
||||
RbBundled.Left := ScaleX(0);
|
||||
RbBundled.Width := DbPage.SurfaceWidth;
|
||||
RbBundled.OnClick := @DbModeClick;
|
||||
|
||||
RbExternal := TNewRadioButton.Create(DbPage);
|
||||
RbExternal.Parent := DbPage.Surface;
|
||||
RbExternal.Caption := ExpandConstant('{cm:DbExternal}');
|
||||
RbExternal.Top := RbBundled.Top + ScaleY(28);
|
||||
RbExternal.Left := ScaleX(0);
|
||||
RbExternal.Width := DbPage.SurfaceWidth;
|
||||
RbExternal.OnClick := @DbModeClick;
|
||||
|
||||
TopPos := RbExternal.Top + ScaleY(36);
|
||||
|
||||
LblHost := TNewStaticText.Create(DbPage);
|
||||
LblHost.Parent := DbPage.Surface;
|
||||
LblHost.Caption := ExpandConstant('{cm:DbHost}');
|
||||
LblHost.Top := TopPos;
|
||||
LblHost.Left := ScaleX(16);
|
||||
|
||||
EdHost := TNewEdit.Create(DbPage);
|
||||
EdHost.Parent := DbPage.Surface;
|
||||
EdHost.Top := TopPos;
|
||||
EdHost.Left := ScaleX(120);
|
||||
EdHost.Width := ScaleX(220);
|
||||
EdHost.Text := '127.0.0.1';
|
||||
|
||||
TopPos := TopPos + ScaleY(28);
|
||||
LblPort := TNewStaticText.Create(DbPage);
|
||||
LblPort.Parent := DbPage.Surface;
|
||||
LblPort.Caption := ExpandConstant('{cm:DbPort}');
|
||||
LblPort.Top := TopPos;
|
||||
LblPort.Left := ScaleX(16);
|
||||
|
||||
EdPort := TNewEdit.Create(DbPage);
|
||||
EdPort.Parent := DbPage.Surface;
|
||||
EdPort.Top := TopPos;
|
||||
EdPort.Left := ScaleX(120);
|
||||
EdPort.Width := ScaleX(80);
|
||||
EdPort.Text := '5432';
|
||||
|
||||
TopPos := TopPos + ScaleY(28);
|
||||
LblUser := TNewStaticText.Create(DbPage);
|
||||
LblUser.Parent := DbPage.Surface;
|
||||
LblUser.Caption := ExpandConstant('{cm:DbUser}');
|
||||
LblUser.Top := TopPos;
|
||||
LblUser.Left := ScaleX(16);
|
||||
|
||||
EdUser := TNewEdit.Create(DbPage);
|
||||
EdUser.Parent := DbPage.Surface;
|
||||
EdUser.Top := TopPos;
|
||||
EdUser.Left := ScaleX(120);
|
||||
EdUser.Width := ScaleX(220);
|
||||
EdUser.Text := 'netx';
|
||||
|
||||
TopPos := TopPos + ScaleY(28);
|
||||
LblPassword := TNewStaticText.Create(DbPage);
|
||||
LblPassword.Parent := DbPage.Surface;
|
||||
LblPassword.Caption := ExpandConstant('{cm:DbPassword}');
|
||||
LblPassword.Top := TopPos;
|
||||
LblPassword.Left := ScaleX(16);
|
||||
|
||||
EdPassword := TNewEdit.Create(DbPage);
|
||||
EdPassword.Parent := DbPage.Surface;
|
||||
EdPassword.Top := TopPos;
|
||||
EdPassword.Left := ScaleX(120);
|
||||
EdPassword.Width := ScaleX(220);
|
||||
EdPassword.PasswordChar := '*';
|
||||
|
||||
TopPos := TopPos + ScaleY(28);
|
||||
LblDbName := TNewStaticText.Create(DbPage);
|
||||
LblDbName.Parent := DbPage.Surface;
|
||||
LblDbName.Caption := ExpandConstant('{cm:DbName}');
|
||||
LblDbName.Top := TopPos;
|
||||
LblDbName.Left := ScaleX(16);
|
||||
|
||||
EdDbName := TNewEdit.Create(DbPage);
|
||||
EdDbName.Parent := DbPage.Surface;
|
||||
EdDbName.Top := TopPos;
|
||||
EdDbName.Left := ScaleX(120);
|
||||
EdDbName.Width := ScaleX(220);
|
||||
EdDbName.Text := 'netx';
|
||||
|
||||
TopPos := TopPos + ScaleY(36);
|
||||
LblCredKey := TNewStaticText.Create(DbPage);
|
||||
LblCredKey.Parent := DbPage.Surface;
|
||||
LblCredKey.Caption := ExpandConstant('{cm:CredKey}');
|
||||
LblCredKey.Top := TopPos;
|
||||
LblCredKey.Left := ScaleX(0);
|
||||
|
||||
EdCredKey := TNewEdit.Create(DbPage);
|
||||
EdCredKey.Parent := DbPage.Surface;
|
||||
EdCredKey.Top := TopPos;
|
||||
EdCredKey.Left := ScaleX(120);
|
||||
EdCredKey.Width := DbPage.SurfaceWidth - ScaleX(120);
|
||||
EdCredKey.Text := '';
|
||||
|
||||
TopPos := TopPos + ScaleY(24);
|
||||
LblCredHint := TNewStaticText.Create(DbPage);
|
||||
LblCredHint.Parent := DbPage.Surface;
|
||||
LblCredHint.Caption := ExpandConstant('{cm:CredKeyHint}');
|
||||
LblCredHint.Top := TopPos;
|
||||
LblCredHint.Left := ScaleX(120);
|
||||
LblCredHint.Width := DbPage.SurfaceWidth - ScaleX(120);
|
||||
LblCredHint.AutoSize := False;
|
||||
|
||||
UpdateDbFieldState();
|
||||
|
||||
if WizardSilent then
|
||||
begin
|
||||
{ Params applied in PrepareToInstall }
|
||||
end;
|
||||
end;
|
||||
|
||||
function ShouldSkipPage(PageID: Integer): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
if (DbPage <> nil) and (PageID = DbPage.ID) then
|
||||
Result := GSkipDbPage;
|
||||
end;
|
||||
|
||||
function NextButtonClick(CurPageID: Integer): Boolean;
|
||||
var
|
||||
ErrMsg: String;
|
||||
begin
|
||||
Result := True;
|
||||
{ Only the DB page runs validation. Other pages must always proceed
|
||||
(Tasks/Ready used to appear "dead" when CloseApplications hung). }
|
||||
if (DbPage = nil) or (CurPageID <> DbPage.ID) or GSkipDbPage then
|
||||
Exit;
|
||||
|
||||
CaptureCredKeyFromControls();
|
||||
if RbBundled.Checked then
|
||||
begin
|
||||
GDbMode := 'bundled';
|
||||
GDbUrl := '';
|
||||
GDbConnOk := True;
|
||||
Result := True;
|
||||
Exit;
|
||||
end;
|
||||
|
||||
if not SaveExternalFieldsFromControls(ErrMsg) then
|
||||
begin
|
||||
MsgBox(ErrMsg, mbError, MB_OK);
|
||||
Result := False;
|
||||
Exit;
|
||||
end;
|
||||
|
||||
{ Connection test here so bad settings never reach Tasks/Ready.
|
||||
Show busy state — ExtractTemporaryFile + psql can take a few seconds. }
|
||||
SetWizardBusy(True, ExpandConstant('{cm:DbTesting}'));
|
||||
try
|
||||
Result := ValidateExternalDbSaved(ErrMsg);
|
||||
finally
|
||||
SetWizardBusy(False, '');
|
||||
end;
|
||||
if not Result then
|
||||
MsgBox(ErrMsg, mbError, MB_OK);
|
||||
end;
|
||||
|
||||
function PrepareToInstall(var NeedsRestart: Boolean): String;
|
||||
var
|
||||
ErrMsg: String;
|
||||
begin
|
||||
Result := '';
|
||||
NeedsRestart := False;
|
||||
if GSkipDbPage then
|
||||
Exit;
|
||||
|
||||
if WizardSilent then
|
||||
begin
|
||||
if not ApplySilentDbParams(ErrMsg) then
|
||||
Result := ErrMsg;
|
||||
Exit;
|
||||
end;
|
||||
|
||||
if GDbMode = '' then
|
||||
GDbMode := 'bundled';
|
||||
|
||||
{ Re-check only if user never got a successful test (should be rare). }
|
||||
if (GDbMode = 'external') and (not GDbConnOk) then
|
||||
begin
|
||||
if not ValidateExternalDbSaved(ErrMsg) then
|
||||
Result := ErrMsg;
|
||||
end;
|
||||
end;
|
||||
|
||||
function ApplyDatabaseConfig(): Boolean;
|
||||
var
|
||||
ResultCode: Integer;
|
||||
Params: String;
|
||||
UrlFile: String;
|
||||
KeyFile: String;
|
||||
begin
|
||||
Result := True;
|
||||
if GSkipDbPage then
|
||||
Exit;
|
||||
|
||||
Params :=
|
||||
'-NoProfile -ExecutionPolicy Bypass -File "' +
|
||||
ExpandConstant('{app}\packaging\setup_first_run.ps1') + '"' +
|
||||
' -ProgramRoot "' + ExpandConstant('{app}') + '"' +
|
||||
' -DataRoot "' + ExpandConstant('{commonappdata}\NetX') + '"' +
|
||||
' -NonInteractive -DbMode ' + GDbMode;
|
||||
|
||||
if GDbMode = 'external' then
|
||||
begin
|
||||
UrlFile := ExpandConstant('{tmp}\netx_db_url.txt');
|
||||
if GDbUrl <> '' then
|
||||
SaveStringToFile(UrlFile, GDbUrl, False);
|
||||
Params := Params + ' -ExternalDatabaseUrlFile "' + UrlFile + '" -SkipExternalProbe';
|
||||
end;
|
||||
|
||||
if GCredKey <> '' then
|
||||
begin
|
||||
KeyFile := ExpandConstant('{tmp}\netx_cred_key.txt');
|
||||
SaveStringToFile(KeyFile, GCredKey, False);
|
||||
Params := Params + ' -CredentialSecretKeyFile "' + KeyFile + '"';
|
||||
end;
|
||||
|
||||
if not Exec(
|
||||
'powershell.exe', Params, ExpandConstant('{app}'),
|
||||
SW_HIDE, ewWaitUntilTerminated, ResultCode) then
|
||||
begin
|
||||
Result := False;
|
||||
Exit;
|
||||
end;
|
||||
if ResultCode <> 0 then
|
||||
begin
|
||||
MsgBox(FmtMessage(ExpandConstant('{cm:DbApplyFailed}'), [IntToStr(ResultCode)]), mbError, MB_OK);
|
||||
Result := False;
|
||||
Exit;
|
||||
end;
|
||||
GDbConfigured := True;
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
function InitializeUninstall(): Boolean;
|
||||
var
|
||||
DeleteSrc: String;
|
||||
begin
|
||||
Result := True;
|
||||
GDeleteNetxData := False;
|
||||
GTempDeleteDataScript := ExpandConstant('{tmp}\netx_uninstall_delete_data.ps1');
|
||||
|
||||
// Copy data-wipe helper to TEMP before program files are removed.
|
||||
DeleteSrc := ExpandConstant('{app}\packaging\uninstall_delete_data.ps1');
|
||||
if FileExists(DeleteSrc) then
|
||||
CopyFile(DeleteSrc, GTempDeleteDataScript, False);
|
||||
|
||||
if UninstallSilent then
|
||||
begin
|
||||
// Settings often uses QuietUninstallString; keep data by default.
|
||||
GDeleteNetxData := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
GDeleteNetxData :=
|
||||
MsgBox(ExpandConstant('{cm:UninstallDeleteData}'), mbConfirmation, MB_YESNO) = IDYES;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
|
||||
var
|
||||
ResultCode: Integer;
|
||||
DataRoot: String;
|
||||
begin
|
||||
if (CurUninstallStep = usPostUninstall) and GDeleteNetxData then
|
||||
begin
|
||||
DataRoot := ExpandConstant('{commonappdata}\NetX');
|
||||
if FileExists(GTempDeleteDataScript) then
|
||||
begin
|
||||
Exec(
|
||||
'powershell.exe',
|
||||
'-NoProfile -WindowStyle Hidden -ExecutionPolicy Bypass -File "' +
|
||||
GTempDeleteDataScript + '" -DataRoot "' + DataRoot + '"',
|
||||
ExpandConstant('{tmp}'),
|
||||
SW_HIDE,
|
||||
ewWaitUntilTerminated,
|
||||
ResultCode
|
||||
);
|
||||
end;
|
||||
if DirExists(DataRoot) then
|
||||
DelTree(DataRoot, True, True, True);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure CurStepChanged(CurStep: TSetupStep);
|
||||
var
|
||||
UninstallKey: String;
|
||||
begin
|
||||
if CurStep = ssPostInstall then
|
||||
begin
|
||||
ApplyDatabaseConfig();
|
||||
|
||||
UninstallKey :=
|
||||
'Software\Microsoft\Windows\CurrentVersion\Uninstall\{A7E3C2D1-9F40-4B8E-9C1A-NETXWIN64001}_is1';
|
||||
RegDeleteValue(HKLM, UninstallKey, 'QuietUninstallString');
|
||||
end;
|
||||
end;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue