Inno setup中定制安装路径

我的程序修改了安装界面，所以我的界面中提供了更改安装路径的方法。

用户修改后的路径会被传回inno setup脚本，脚本中需要做的事情如下：

1，写一个函数，来返回新的安装路径，如：

function MyDestDir(SubDir:String):String;

begin

  if SubDir = '' then

    Result := RootDestFolder

  else

    Result := RootDestFolder + '\'+ SubDir;

end; 

2，把原来使用{app}的地方都改成：{code:MyDestDir},安装脚本自己能够调用MyDestDir并得到正确的路径。如：

Source: "test.xml"; DestDir: {code:MyDestDir}; 

Source: "\res\ReloadHigh\*"; DestDir: {code:MyDestDir|res\ReloadHigh}

最后记得加上：UninstallFilesDir={code:MyDestDir}， 否则卸载程序会被放到{app}.

 

注意：

如果在定制后的DLL中修改安装路径，可以让inno setup把原来的路径以TCHAR*的形式传给DLL，DLL直接修改。

但因为PASCAL的String类型并非是C语言的0结尾字符串，它会记录字符串的真实长度，所以被C语言修改后的String不能直接使用。因为长度不一定相同（实际情况是如果长度没变，就是正确的，如果长度有变化，程序安装路径中的文件名就不见了，安装不了）。

所以在从DLL返回后，需要使用Length函数重新给String设置正确的长度。