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

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

结果：