使用 Inno Setup 将序列号写入文件

Question

我正在尝试让以下 Inno Setup 代码工作：

[Setup]
UserInfoPage=yes

[Code]
function CheckSerial(Serial: String): Boolean;
begin
  Result := true;
  SaveStringToFile('c:\Registration.txt', Serial, False);
end;

当文件路径为UserInfoPage 时，代码非常简单。但是，当我需要在我的应用程序旁边编写此文件时，它变得异常复杂。两者都没有：

WizardDirValue();

也没有

ExpandConstant('{app}');

工作。第一个调用太早时是空的，第二个甚至没有运行，我得到：

内部错误：试图扩展“app”常量 在初始化之前。

如何将Serial 值存储到需要驻留在应用程序旁边的文件（.exe 文件）中？

Answer 1

您可以扩展{userinfoserial} 常量以获取用户在选择应用程序目录后触发的某些事件中在信息页面中输入的序列号，例如：

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

[Code]
function CheckSerial(Serial: String): Boolean;
begin
  Result := True;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    SaveStringToFile(ExpandConstant('{app}\Serial.txt'),
      ExpandConstant('{userinfoserial}'), False);
  end;
end;