安装完成后如何使用Inno Setup编写安装路径到注册表

Question

安装完成后如何使用Inno安装程序将安装路径写入注册表？提前致谢！

Answer 1

如同TLama所说，如果您希望在安装过程完成后添加密钥，则可以通过ssPostInstall实现。

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep=ssPostInstall then begin
     RegWriteStringValue(HKEY_LOCAL_MACHINE, 'Software\HHSTECH',
    'InstallPath', ExpandConstant('{app}'));
  end;
end;

或者您可以使用在安装（复制）最后一个文件后调用的AfterInstall。

[Files]
Source: ".\THEVERYLASTFILE.XXX"; DestDir: "{app}"; AfterInstall: MyAfterInstall

[Code]
procedure MyAfterInstall();
begin
     RegWriteStringValue(HKEY_LOCAL_MACHINE, 'Software\HHSTECH',
    'InstallPath', ExpandConstant('{app}'));
end;

Answer 2

[Registry]
Root: HKLM; Subkey: Software\HHSTECH; ValueType: string; ValueName: InstallPath; ValueData: {app}