inno setup 修改将程序安装路径写入注册表

最新推荐文章于 2024-05-29 13:31:32 发布

驰骋疆场的蜗牛

最新推荐文章于 2024-05-29 13:31:32 发布

阅读量1.4k

点赞数

本文链接：https://blog.csdn.net/weixin_37930066/article/details/115068493

版权

// 在最后一支文件安装结束之后调用MyAfterInstall
[Files]
Source: ".\mysql2\*"; DestDir: "{app}"; Flags:  onlyifdoesntexist  recursesubdirs createallsubdirs ignoreversion;
Source: ".\API.ini"; DestDir: "{app}"; Flags:  onlyifdoesntexist
Source: ".\API2.ini"; DestDir: "{app}"; Flags:  onlyifdoesntexist
Source: ".\mysql.ini"; DestDir: "{app}"; Flags:  onlyifdoesntexist
Source: ".\service2.ini"; DestDir: "{app}"; Flags:  onlyifdoesntexist
Source: ".\service.ini"; DestDir: "{app}"; Flags:  onlyifdoesntexist
Source: ".\Web.ini"; DestDir: "{app}"; Flags:  onlyifdoesntexist
Source: ".\Web2.ini"; DestDir: "{app}"; Flags:  onlyifdoesntexist
Source: ".\if_openwebsite.ini"; DestDir: "{app}"; AfterInstall: MyAfterInstall; Flags:  onlyifdoesntexist
// 在code段中实现MyAfterInstall函数
[Code]
procedure MyAfterInstall();
begin
     RegWriteStringValue(HKEY_CURRENT_USER, 'Software\Pantum\PiPME\settings',
    'path', ExpandConstant('{app}'));
end;

结果：
在这里插入图片描述