使用 Inno sSetup 安装完成后如何将安装路径写入注册表?</p>
提前致谢!
ssPostInstall
就像 TLama 说的,如果你想在安装过程完成后添加密钥,你可以通过它来实现。
[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;
[Registry]
Root: HKLM; Subkey: Software\HHSTECH; ValueType: string; ValueName: InstallPath; ValueData: {app}