inno-setup - 如何在安装过程中记录用户输入，以便在卸载过程中使用？

Question

在安装过程中，我记录了用户的输入，例如正在创建的 Windows 服务的名称。卸载此服务时，我需要知道用户最初输入的服务名称是什么。

在卸载期间获取服务名称的最佳方法是什么？

Answer 1

最适合您的要求似乎是处理RegisterPreviousData事件方法并从其内部调用SetPreviousData函数，您可以在其中将字符串值存储在自定义键下。要恢复以前存储的数据，您可以调用GetPreviousData函数。

下面是一个简单的用法示例：

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Code]
var
  UserPage: TInputQueryWizardPage;

procedure InitializeWizard;
begin
  UserPage := CreateInputQueryPage(wpWelcome, 'Caption', 'Description', '');
  UserPage.Add('Service name:', False);
end;

procedure RegisterPreviousData(PreviousDataKey: Integer);
begin
  SetPreviousData(PreviousDataKey, 'ServiceName', UserPage.Values[0]);
end;

function InitializeUninstall: Boolean;
var
  ServiceName: string;
begin
  ServiceName := GetPreviousData('ServiceName', '');
  if ServiceName <> '' then
    MsgBox('The value entered before: ' + ServiceName, mbInformation, MB_OK);
end;