LanMountainDesktop/LanMountainDesktop/installer/LanMountainDesktop.iss

#define MyAppName "LanMountainDesktop"
#define MyAppPublisher "LanMountainDesktop Team"
#define MyAppExeName "LanMountainDesktop.Launcher.exe"
#define MyAppId "{{5A058B0D-F95D-4A18-B9A0-93F843655DDB}"
#define MyAppRegistryId "{5A058B0D-F95D-4A18-B9A0-93F843655DDB}"

#ifndef MyAppVersion
  #define MyAppVersion "0.0.0"
#endif

#ifndef PublishDir
  #define PublishDir "..\artifacts\publish\win-x64"
#endif

#ifndef MyOutputDir
  #define MyOutputDir "..\artifacts\installer"
#endif

#ifndef MyAppArch
  #define MyAppArch "x64"
#endif

#ifndef MyAppSuffix
  #define MyAppSuffix ""
#endif

[Setup]
AppId={#MyAppId}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppPublisher={#MyAppPublisher}
DefaultDirName={autopf}\{#MyAppName}
DisableDirPage=no
UsePreviousAppDir=no
; 语言对话框行为：
; - 全新安装：显示语言选择对话框
; - 升级安装：自动沿用之前选择的语言，不弹出对话框
; - 用户可以在欢迎页面点击语言按钮手动切换
ShowLanguageDialog=auto
UsePreviousLanguage=yes
LanguageDetectionMethod=uilanguage
DefaultGroupName={cm:AppShortcutName}
UninstallDisplayIcon={app}\{#MyAppExeName}
OutputDir={#MyOutputDir}
OutputBaseFilename={#MyAppName}-Setup-{#MyAppVersion}-{#MyAppArch}{#MyAppSuffix}
Compression=lzma2/ultra64
SolidCompression=yes
WizardStyle=modern
; Leave PrivilegesRequiredOverridesAllowed unset so users cannot downgrade
; installation mode via dialog or /ALLUSERS /CURRENTUSER command-line switches.
PrivilegesRequired=admin
CloseApplications=yes
CloseApplicationsFilter={#MyAppExeName}
RestartApplications=no
DisableProgramGroupPage=yes

#if MyAppArch == "x64"
ArchitecturesAllowed=x64compatible
ArchitecturesInstallIn64BitMode=x64compatible
#else
#if MyAppArch == "x86"
ArchitecturesAllowed=x86compatible
#endif
#endif

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
Name: "chinesesimplified"; MessagesFile: "{#SourcePath}\ChineseSimplified.isl"

[CustomMessages]
english.StartupTaskDescription=Launch LanMountainDesktop when you sign in to Windows
chinesesimplified.StartupTaskDescription=登录 Windows 时启动 LanMountainDesktop
english.AppShortcutName=LanMountainDesktop
chinesesimplified.AppShortcutName=阑山桌面
english.WebView2MissingMessage=Microsoft Edge WebView2 Runtime is required for the browser component.
chinesesimplified.WebView2MissingMessage=浏览器组件需要 Microsoft Edge WebView2 Runtime。
english.WebView2MissingAction=Click "Yes" to open the official download page. Install it first, then run this installer again.
chinesesimplified.WebView2MissingAction=单击“是”打开官方下载页面。请先完成安装，然后重新运行此安装程序。
english.WebView2OpenFailedMessage=Unable to open the download page automatically.
chinesesimplified.WebView2OpenFailedMessage=无法自动打开下载页面。
english.WebView2OpenFailedAction=Please open this URL manually:
chinesesimplified.WebView2OpenFailedAction=请手动打开以下链接：
english.UpgradePageCaption=Upgrade Existing Installation
chinesesimplified.UpgradePageCaption=升级现有安装
english.UpgradePageDescription=LanMountainDesktop is already installed on this computer. Choose how to upgrade it.
chinesesimplified.UpgradePageDescription=此计算机上已安装 LanMountainDesktop。请选择升级方式。
english.UpgradeDetectedVersionLabel=Detected version:
chinesesimplified.UpgradeDetectedVersionLabel=检测到的版本：
english.UpgradeCurrentLocationLabel=Current location:
chinesesimplified.UpgradeCurrentLocationLabel=当前安装位置：
english.UpgradePageSubCaption=Choose "Upgrade existing installation" to reuse the current location, or choose "Change installation location and migrate installation" to move the app without leaving a duplicate copy behind.
chinesesimplified.UpgradePageSubCaption=选择“升级现有安装”可复用当前安装位置；选择“更改安装位置并迁移安装”可移动应用，同时避免留下重复安装。
english.UpgradeOptionInPlace=Upgrade existing installation
chinesesimplified.UpgradeOptionInPlace=升级现有安装
english.UpgradeOptionRelocate=Change installation location and migrate installation
chinesesimplified.UpgradeOptionRelocate=更改安装位置并迁移安装
english.UpgradeUnknownVersion=Unknown
chinesesimplified.UpgradeUnknownVersion=未知
english.UpgradeCleanupMissingUninstaller=Setup found an existing installation, but its uninstaller is unavailable. Please uninstall the current version manually and run this installer again.
chinesesimplified.UpgradeCleanupMissingUninstaller=安装程序发现了现有安装，但无法找到它的卸载程序。请先手动卸载当前版本，再重新运行此安装程序。
english.UpgradeCleanupFailedPrefix=Setup could not remove the existing installation automatically. Error code:
chinesesimplified.UpgradeCleanupFailedPrefix=安装程序无法自动移除现有安装。错误代码：
english.UpgradeCleanupFailedSuffix=Please close LanMountainDesktop, uninstall the current version manually, and then run this installer again.
chinesesimplified.UpgradeCleanupFailedSuffix=请关闭 LanMountain Desktop，手动卸载当前版本，然后重新运行此安装程序。
english.DotNetRuntimeMissingTitle=.NET Desktop Runtime Required
chinesesimplified.DotNetRuntimeMissingTitle=需要 .NET Desktop Runtime
english.DotNetRuntimeMissingMessage=This application requires .NET 10.0 Desktop Runtime to run.
chinesesimplified.DotNetRuntimeMissingMessage=此应用程序需要 .NET 10.0 Desktop Runtime 才能运行。
english.DotNetRuntimeMissingAction=Click "Yes" to open the official download page. Install it first, then run this installer again.
chinesesimplified.DotNetRuntimeMissingAction=单击"是"打开官方下载页面。请先完成安装，然后重新运行此安装程序。
english.DotNetRuntimeDownloadCaption=Installing .NET 10 Desktop Runtime
chinesesimplified.DotNetRuntimeDownloadCaption=Installing .NET 10 Desktop Runtime
english.DotNetRuntimeDownloadDescription=Setup is downloading the required Microsoft .NET runtime.
chinesesimplified.DotNetRuntimeDownloadDescription=Setup is downloading the required Microsoft .NET runtime.
english.DotNetRuntimeInstallFailed=Setup could not install the required .NET 10 Desktop Runtime.
chinesesimplified.DotNetRuntimeInstallFailed=Setup could not install the required .NET 10 Desktop Runtime.
english.DotNetRuntimeStillMissing=The .NET 10 Desktop Runtime is still not detected after installation.
chinesesimplified.DotNetRuntimeStillMissing=The .NET 10 Desktop Runtime is still not detected after installation.
english.DotNetRuntimeOpenFailedMessage=Unable to open the download page automatically.
chinesesimplified.DotNetRuntimeOpenFailedMessage=无法自动打开下载页面。
english.DotNetRuntimeOpenFailedAction=Please open this URL manually:
chinesesimplified.DotNetRuntimeOpenFailedAction=请手动打开以下链接：
english.LanguageButtonCaption=Language
chinesesimplified.LanguageButtonCaption=语言
english.LanguageButtonHint=Click to change the installation language
chinesesimplified.LanguageButtonHint=点击更改安装语言

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"
Name: "startup"; Description: "{cm:StartupTaskDescription}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Dirs]
Name: "{app}\log"; Permissions: users-modify

[InstallDelete]
Type: files; Name: "{app}\LanMountainDesktop.exe"
Type: files; Name: "{app}\LanMountainDesktop.dll"
Type: files; Name: "{app}\LanMountainDesktop.deps.json"
Type: files; Name: "{app}\LanMountainDesktop.runtimeconfig.json"
Type: files; Name: "{app}\LanMountainDesktop.pdb"

[Files]
Source: "{#PublishDir}\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

[Icons]
Name: "{autoprograms}\{cm:AppShortcutName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{autodesktop}\{cm:AppShortcutName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

[Registry]
Root: HKA; Subkey: "Software\Microsoft\Windows\CurrentVersion\Run"; ValueType: string; ValueName: "{#MyAppName}"; ValueData: """{app}\{#MyAppExeName}"""; Tasks: startup; Flags: uninsdeletevalue

[Run]
Filename: "powershell.exe"; Parameters: "-NoProfile -ExecutionPolicy Bypass -Command ""if (Get-Command Add-AppxPackage -ErrorAction SilentlyContinue) {{ try {{ Add-AppxPackage -Register '{app}\WindowsIdentity\AppxManifest.xml' -ExternalLocation '{app}' -ForceApplicationShutdown -ErrorAction Stop }} catch {{ Write-Host $_.Exception.Message }} }}"""; Flags: runhidden
Filename: "{app}\{#MyAppExeName}"; Parameters: "--launch-source postinstall"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent

[UninstallRun]
Filename: "powershell.exe"; Parameters: "-NoProfile -ExecutionPolicy Bypass -Command ""if (Get-Command Get-AppxPackage -ErrorAction SilentlyContinue) {{ Get-AppxPackage -Name 'LanMountainDesktop.NotificationIdentity' | Remove-AppxPackage -ErrorAction SilentlyContinue }}"""; Flags: runhidden

[Code]
const
  UninstallRegSubkey = 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{#MyAppRegistryId}_is1';
  WebView2RuntimeKeyPath = 'SOFTWARE\Microsoft\EdgeUpdate\Clients\{F3017226-FE2A-4295-8BDF-00C3A9A7E4C5}';
  WebView2RuntimeDownloadUrl = 'https://go.microsoft.com/fwlink/p/?LinkId=2124703';
  DotNetRuntimeDownloadUrlX64 = 'https://aka.ms/dotnet/10.0/windowsdesktop-runtime-win-x64.exe';
  DotNetRuntimeDownloadUrlX86 = 'https://aka.ms/dotnet/10.0/windowsdesktop-runtime-win-x86.exe';
  UpgradeChoiceInPlace = 0;
  UpgradeChoiceRelocate = 1;

var
  UpgradeModePage: TInputOptionWizardPage;
  ExistingInstallFound: Boolean;
  ExistingInstallPath: String;
  ExistingInstallVersion: String;
  ExistingUninstallCommand: String;
  ExistingInstallWas64Bit: Boolean;
  ExistingInstallIsPerUser: Boolean;
  ExistingInstallRemoved: Boolean;
  LanguageButton: TNewButton;

function NormalizePathValue(const Value: String): String;
begin
  Result := RemoveBackslashUnlessRoot(Trim(Value));
end;

function CombinePath(const BasePath: String; const ChildName: String): String;
begin
  if BasePath = '' then
  begin
    Result := ChildName;
  end
  else
  begin
    Result := NormalizePathValue(BasePath) + '\' + ChildName;
  end;
end;

function SamePath(const LeftPath: String; const RightPath: String): Boolean;
begin
  Result := CompareText(NormalizePathValue(LeftPath), NormalizePathValue(RightPath)) = 0;
end;

function ExtractExecutableFromCommand(const CommandLine: String): String;
var
  CommandText: String;
  ClosingQuotePos: Integer;
  ExePos: Integer;
begin
  Result := '';
  CommandText := Trim(CommandLine);
  if CommandText = '' then
  begin
    exit;
  end;

  if CommandText[1] = '"' then
  begin
    Delete(CommandText, 1, 1);
    ClosingQuotePos := Pos('"', CommandText);
    if ClosingQuotePos > 0 then
    begin
      Result := Copy(CommandText, 1, ClosingQuotePos - 1);
    end
    else
    begin
      Result := CommandText;
    end;
  end
  else
  begin
    ExePos := Pos('.exe', LowerCase(CommandText));
    if ExePos > 0 then
    begin
      Result := Copy(CommandText, 1, ExePos + 3);
    end
    else
    begin
      Result := CommandText;
    end;
  end;

  Result := NormalizePathValue(RemoveQuotes(Result));
end;

function GetExistingExecutablePath(): String;
begin
  if ExistingInstallPath = '' then
  begin
    Result := '';
  end
  else
  begin
    Result := CombinePath(ExistingInstallPath, '{#MyAppExeName}');
  end;
end;

function GetDefaultInstallPath(): String;
begin
  Result := NormalizePathValue(ExpandConstant('{autopf}\{#MyAppName}'));
end;

function GetExistingInstallVersionText(): String;
begin
  Result := Trim(ExistingInstallVersion);
  if Result = '' then
  begin
    Result := CustomMessage('UpgradeUnknownVersion');
  end;
end;

procedure ShowUpgradeCleanupError(const MessageText: String);
begin
  Log(MessageText);
  if not WizardSilent then
  begin
    MsgBox(MessageText, mbError, MB_OK);
  end;
end;

function TryLoadExistingInstallation(
  const RootKey: Integer;
  const Is64BitView: Boolean;
  const IsPerUser: Boolean): Boolean;
var
  InstallLocation: String;
  AppPath: String;
  UninstallString: String;
  DisplayVersion: String;
  ResolvedPath: String;
begin
  Result := False;
  InstallLocation := '';
  AppPath := '';
  UninstallString := '';
  DisplayVersion := '';

  if not RegKeyExists(RootKey, UninstallRegSubkey) then
  begin
    exit;
  end;

  RegQueryStringValue(RootKey, UninstallRegSubkey, 'InstallLocation', InstallLocation);
  RegQueryStringValue(RootKey, UninstallRegSubkey, 'Inno Setup: App Path', AppPath);
  RegQueryStringValue(RootKey, UninstallRegSubkey, 'UninstallString', UninstallString);
  RegQueryStringValue(RootKey, UninstallRegSubkey, 'DisplayVersion', DisplayVersion);

  ResolvedPath := NormalizePathValue(InstallLocation);
  if ResolvedPath = '' then
  begin
    ResolvedPath := NormalizePathValue(AppPath);
  end;
  if (ResolvedPath = '') and (UninstallString <> '') then
  begin
    ResolvedPath := NormalizePathValue(ExtractFileDir(ExtractExecutableFromCommand(UninstallString)));
  end;

  if (ResolvedPath = '') or
     (not DirExists(ResolvedPath)) or
     (not FileExists(CombinePath(ResolvedPath, '{#MyAppExeName}'))) then
  begin
    exit;
  end;

  ExistingInstallFound := True;
  ExistingInstallPath := ResolvedPath;
  ExistingInstallVersion := Trim(DisplayVersion);
  ExistingUninstallCommand := Trim(UninstallString);
  ExistingInstallWas64Bit := Is64BitView;
  ExistingInstallIsPerUser := IsPerUser;
  Result := True;
end;

procedure DetectExistingInstallation;
begin
  ExistingInstallFound := False;
  ExistingInstallPath := '';
  ExistingInstallVersion := '';
  ExistingUninstallCommand := '';
  ExistingInstallWas64Bit := False;
  ExistingInstallIsPerUser := False;
  ExistingInstallRemoved := False;

  if IsWin64 then
  begin
    if TryLoadExistingInstallation(HKLM64, True, False) then
    begin
      exit;
    end;
    if TryLoadExistingInstallation(HKCU64, True, True) then
    begin
      exit;
    end;
  end;

  if TryLoadExistingInstallation(HKLM32, False, False) then
  begin
    exit;
  end;

  TryLoadExistingInstallation(HKCU32, False, True);
end;

{ 语言切换按钮点击处理 }
{ 注意：Inno Setup 不支持运行时切换语言，所以我们显示一个简单对话框，
  让用户选择语言，然后重启安装程序以应用新语言 }
procedure LanguageButtonClick(Sender: TObject);
var
  NewLanguage: String;
  Params: String;
  ResultCode: Integer;
begin
  { 根据当前语言显示对应的提示 }
  if ActiveLanguage = 'chinesesimplified' then
  begin
    { 当前是中文，询问是否切换到英文 }
    if MsgBox('当前语言：简体中文' + #13#10#13#10 + '是否切换到 English？' + #13#10 + '(安装程序将重新启动以应用新语言)', mbConfirmation, MB_YESNO) = IDYES then
    begin
      NewLanguage := 'english';
    end
    else
    begin
      exit;
    end;
  end
  else
  begin
    { 当前是英文，询问是否切换到中文 }
    if MsgBox('Current language: English' + #13#10#13#10 + 'Switch to 简体中文？' + #13#10 + '(The setup will restart to apply the new language)', mbConfirmation, MB_YESNO) = IDYES then
    begin
      NewLanguage := 'chinesesimplified';
    end
    else
    begin
      exit;
    end;
  end;
  
  { 构建重启参数，带上新语言设置 }
  Params := '/LANG="' + NewLanguage + '"';
  if WizardSilent then
  begin
    Params := Params + ' /SILENT';
  end;
  
  { 重启安装程序并退出当前实例 }
  if Exec(ExpandConstant('{srcexe}'), Params, '', SW_SHOWNORMAL, ewNoWait, ResultCode) then
  begin
    WizardForm.Close;
  end;
end;

function SelectedUpgradeChoice(): Integer;
begin
  if UpgradeModePage <> nil then
  begin
    Result := UpgradeModePage.SelectedValueIndex;
  end
  else
  begin
    Result := UpgradeChoiceInPlace;
  end;
end;

procedure ApplySelectedInstallDirectory;
var
  CurrentDir: String;
begin
  if not ExistingInstallFound then
  begin
    exit;
  end;

  if SelectedUpgradeChoice() = UpgradeChoiceInPlace then
  begin
    WizardForm.DirEdit.Text := ExistingInstallPath;
    exit;
  end;

  CurrentDir := NormalizePathValue(WizardDirValue);
  if (CurrentDir = '') or SamePath(CurrentDir, GetDefaultInstallPath()) then
  begin
    WizardForm.DirEdit.Text := ExistingInstallPath;
  end;
end;

function GetSelectedInstallPath(): String;
begin
  Result := NormalizePathValue(ExpandConstant('{app}'));
  if Result = '' then
  begin
    Result := NormalizePathValue(WizardDirValue);
  end;
  if Result = '' then
  begin
    Result := ExistingInstallPath;
  end;
end;

function ExistingInstallRequiresCleanup(): Boolean;
var
  TargetPath: String;
begin
  Result := False;
  if not ExistingInstallFound or ExistingInstallRemoved then
  begin
    exit;
  end;

  TargetPath := GetSelectedInstallPath();
  Result := ExistingInstallIsPerUser or
            (not SamePath(TargetPath, ExistingInstallPath)) or
            (ExistingInstallWas64Bit <> Is64BitInstallMode);
end;

function RemoveExistingInstallation(): Boolean;
var
  UninstallerPath: String;
  ResultCode: Integer;
begin
  Result := True;

  if not ExistingInstallRequiresCleanup() then
  begin
    exit;
  end;

  UninstallerPath := ExtractExecutableFromCommand(ExistingUninstallCommand);
  if (UninstallerPath = '') or (not FileExists(UninstallerPath)) then
  begin
    ShowUpgradeCleanupError(CustomMessage('UpgradeCleanupMissingUninstaller'));
    Result := False;
    exit;
  end;

  ResultCode := -1;
  if not Exec(
    UninstallerPath,
    '/VERYSILENT /SUPPRESSMSGBOXES /NORESTART',
    ExtractFileDir(UninstallerPath),
    SW_SHOWNORMAL,
    ewWaitUntilTerminated,
    ResultCode) or (ResultCode <> 0) then
  begin
    ShowUpgradeCleanupError(
      CustomMessage('UpgradeCleanupFailedPrefix') + ' ' + IntToStr(ResultCode) + '. ' +
      CustomMessage('UpgradeCleanupFailedSuffix'));
    Result := False;
    exit;
  end;

  ExistingInstallRemoved := True;
end;

function IsWebView2RuntimeInstalled(): Boolean;
var
  VersionValue: String;
begin
  Result :=
    RegQueryStringValue(HKLM64, WebView2RuntimeKeyPath, 'pv', VersionValue) or
    RegQueryStringValue(HKLM32, WebView2RuntimeKeyPath, 'pv', VersionValue) or
    RegQueryStringValue(HKCU64, WebView2RuntimeKeyPath, 'pv', VersionValue) or
    RegQueryStringValue(HKCU32, WebView2RuntimeKeyPath, 'pv', VersionValue);
end;

// Checks whether a .NET 10.x shared framework is installed under the given
// base path by enumerating version sub-directories and looking for one that
// starts with '10.'.
function IsDotNet10RuntimePresent(const BasePath: String): Boolean;
var
  FindRec: TFindRec;
begin
  Result := False;
  if not DirExists(BasePath) then
  begin
    exit;
  end;

  if FindFirst(BasePath + '\*', FindRec) then
  begin
    try
      repeat
        if (FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY <> 0) and
           (Length(FindRec.Name) >= 3) and
           (Copy(FindRec.Name, 1, 3) = '10.') then
        begin
          Result := True;
          exit;
        end;
      until not FindNext(FindRec);
    finally
      FindClose(FindRec);
    end;
  end;
end;

function GetTargetDotNetDesktopRuntimePath(): String;
begin
  if '{#MyAppArch}' = 'x64' then
  begin
    Result := ExpandConstant('{commonpf64}\dotnet\shared\Microsoft.WindowsDesktop.App');
  end
  else
  begin
    Result := ExpandConstant('{commonpf}\dotnet\shared\Microsoft.WindowsDesktop.App');
  end;
end;

function GetPerUserDotNetDesktopRuntimePath(): String;
begin
  Result := ExpandConstant('{localappdata}\dotnet\shared\Microsoft.WindowsDesktop.App');
end;

function GetDotNetRuntimeDownloadUrl(): String;
begin
  if '{#MyAppArch}' = 'x64' then
  begin
    Result := DotNetRuntimeDownloadUrlX64;
  end
  else
  begin
    Result := DotNetRuntimeDownloadUrlX86;
  end;
end;

function GetDotNetRuntimeInstallerFileName(): String;
begin
  if '{#MyAppArch}' = 'x64' then
  begin
    Result := 'windowsdesktop-runtime-win-x64.exe';
  end
  else
  begin
    Result := 'windowsdesktop-runtime-win-x86.exe';
  end;
end;

function IsDotNetDesktopRuntimeInstalled(): Boolean;
begin
  Result := IsDotNet10RuntimePresent(GetTargetDotNetDesktopRuntimePath()) or
            IsDotNet10RuntimePresent(GetPerUserDotNetDesktopRuntimePath());
end;

function DotNetDownloadProgress(
  const Url, FileName: String;
  const Progress, ProgressMax: Int64): Boolean;
begin
  Result := True;
end;

function EnsureDotNetDesktopRuntimeInstalled(var NeedsRestart: Boolean): String;
var
  DownloadPage: TDownloadWizardPage;
  InstallerPath: String;
  ExitCode: Integer;
begin
  Result := '';

  if IsDotNetDesktopRuntimeInstalled() then
  begin
    exit;
  end;

  DownloadPage := CreateDownloadPage(
    CustomMessage('DotNetRuntimeDownloadCaption'),
    CustomMessage('DotNetRuntimeDownloadDescription'),
    @DotNetDownloadProgress);
  try
    DownloadPage.Add(GetDotNetRuntimeDownloadUrl(), GetDotNetRuntimeInstallerFileName(), '');
    DownloadPage.Show;
    try
      DownloadPage.Download;
    except
      Result := CustomMessage('DotNetRuntimeInstallFailed') + #13#10 + GetExceptionMessage;
      exit;
    end;
  finally
    DownloadPage.Hide;
  end;

  InstallerPath := ExpandConstant('{tmp}\' + GetDotNetRuntimeInstallerFileName());
  if not Exec(InstallerPath, '/install /quiet /norestart', '', SW_HIDE, ewWaitUntilTerminated, ExitCode) then
  begin
    Result := CustomMessage('DotNetRuntimeInstallFailed');
    exit;
  end;

  if (ExitCode <> 0) and (ExitCode <> 3010) then
  begin
    Result := CustomMessage('DotNetRuntimeInstallFailed') + ' Exit code: ' + IntToStr(ExitCode);
    exit;
  end;

  if ExitCode = 3010 then
  begin
    NeedsRestart := True;
  end;

  if not IsDotNetDesktopRuntimeInstalled() then
  begin
    Result := CustomMessage('DotNetRuntimeStillMissing') + #13#10 + GetTargetDotNetDesktopRuntimePath();
  end;
end;

function InitializeSetup(): Boolean;
var
  ErrorCode: Integer;
begin

  if IsWebView2RuntimeInstalled() then
  begin
    Result := True;
    exit;
  end;

  if MsgBox(
    CustomMessage('WebView2MissingMessage') + #13#10#13#10 +
    CustomMessage('WebView2MissingAction'),
    mbConfirmation,
    MB_YESNO) = IDYES then
  begin
    if not ShellExec('open', WebView2RuntimeDownloadUrl, '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode) then
    begin
      MsgBox(
        CustomMessage('WebView2OpenFailedMessage') + #13#10 +
        CustomMessage('WebView2OpenFailedAction') + #13#10 + WebView2RuntimeDownloadUrl,
        mbError,
        MB_OK);
    end;
  end;

  Result := False;
end;

function PrepareToInstall(var NeedsRestart: Boolean): String;
begin
  Result := EnsureDotNetDesktopRuntimeInstalled(NeedsRestart);
end;

procedure InitializeWizard;
var
  DetailsText: String;
begin
  DetectExistingInstallation;

  { 在欢迎页面添加语言切换按钮 }
  LanguageButton := TNewButton.Create(WizardForm);
  LanguageButton.Parent := WizardForm.WelcomePage;
  LanguageButton.Caption := CustomMessage('LanguageButtonCaption');
  LanguageButton.Hint := CustomMessage('LanguageButtonHint');
  LanguageButton.ShowHint := True;
  LanguageButton.Left := WizardForm.WelcomePage.ClientWidth - LanguageButton.Width - 20;
  LanguageButton.Top := 12;
  LanguageButton.OnClick := @LanguageButtonClick;

  if not ExistingInstallFound then
  begin
    exit;
  end;

  DetailsText :=
    CustomMessage('UpgradeDetectedVersionLabel') + ' ' + GetExistingInstallVersionText() + #13#10 +
    CustomMessage('UpgradeCurrentLocationLabel') + ' ' + ExistingInstallPath + #13#10#13#10 +
    CustomMessage('UpgradePageSubCaption');

  UpgradeModePage := CreateInputOptionPage(
    wpWelcome,
    CustomMessage('UpgradePageCaption'),
    CustomMessage('UpgradePageDescription'),
    DetailsText,
    True,
    False);
  UpgradeModePage.Add(CustomMessage('UpgradeOptionInPlace'));
  UpgradeModePage.Add(CustomMessage('UpgradeOptionRelocate'));
  UpgradeModePage.SelectedValueIndex := UpgradeChoiceInPlace;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result := True;

  if (UpgradeModePage <> nil) and (CurPageID = UpgradeModePage.ID) then
  begin
    ApplySelectedInstallDirectory;
  end;
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result := False;

  if (UpgradeModePage <> nil) and (PageID = UpgradeModePage.ID) then
  begin
    Result := not ExistingInstallFound;
    exit;
  end;

  if PageID = wpSelectDir then
  begin
    Result := ExistingInstallFound and (SelectedUpgradeChoice() = UpgradeChoiceInPlace);
  end;
end;

procedure RegisterExtraCloseApplicationsResources;
var
  ExistingExecutablePath: String;
begin
  if not ExistingInstallFound then
  begin
    exit;
  end;

  ExistingExecutablePath := GetExistingExecutablePath();
  if (ExistingExecutablePath <> '') and FileExists(ExistingExecutablePath) then
  begin
    RegisterExtraCloseApplicationsResource(False, ExistingExecutablePath);
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
  LauncherPath: String;
  AppDirPath: String;
begin
  if CurStep = ssInstall then
  begin
    if not RemoveExistingInstallation() then
    begin
      Abort;
    end;
  end;
  
  if CurStep = ssPostInstall then
  begin
    // 验证 Launcher 是否存在
    LauncherPath := ExpandConstant('{app}\{#MyAppExeName}');
    if not FileExists(LauncherPath) then
    begin
      MsgBox('安装验证失败: Launcher 可执行文件不存在。' + #13#10 + 
             '预期路径: ' + LauncherPath + #13#10 + #13#10 +
             '请联系开发者报告此问题。', mbError, MB_OK);
      Abort;
    end;
    
    // 验证至少存在一个 app-* 目录
    AppDirPath := ExpandConstant('{app}\app-{#MyAppVersion}');
    if not DirExists(AppDirPath) then
    begin
      MsgBox('安装验证失败: 应用版本目录不存在。' + #13#10 + 
             '预期路径: ' + AppDirPath + #13#10 + #13#10 +
             '请联系开发者报告此问题。', mbError, MB_OK);
      Abort;
    end;
  end;
end;