inno-setup - 使用 Inno Setup 完成安装后如何将安装路径写入注册表

Question

安装完成后如何将安装路径写入注册表？
提前致谢!

Answer 1

就像 TLama 说的，你可以通过 ssPostInstall 实现它如果您希望在安装过程完成后添加 key 。

[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;