Inno Setup：以 UTF8 录制/恢复文件路径

Question

我们正在使用 Inno Setup（unicode 版本）为我们的产品创建资源包（或“示例”）。我们产品的程序部分通过示例安装程序编写的文件知道示例的位置。目前，它以简单的方式实现：

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if ( CurStep = ssPostInstall) then
  begin
    ForceDirectories(ExpandConstant('{userappdata}\MyCompany\MyApp'))
    SaveStringToFile(ExpandConstant('{userappdata}\MyCompany\MyApp\SamplePath.txt'), ExpandConstant('{app}'), False);
  end;
end;

这种简单的方式有一个致命的问题：安装程序是在中文 Windows 下运行的，整个东西都是 GBK 编码的，但我们的产品是建立在 UTF8 基础上的。

经过一番搜索，我通过在 Pascal 代码中调用 Windows WideCharToMultiByte 得到了一些解决方案。但是这行不通，因为它需要 UTF16 作为输入，但我拥有的是 GBK。

此外，Inno 安装程序也不适用于我的 SamplePath.txt 中现有的 UTF8 文件名。如果我手动编辑 SamplePath.txt 文件以填充 UTF8 编码的中文字母，并使用以下代码初始化 app 内置，它会在 dir 选择页面中显示杂乱的字符：

[Setup]
DefaultDirName={code:GetPreviousSampleDir}

[code]
function GetPreviousSampleDir(Param: String): String;
var
    tmp: AnsiString;
begin
    if FileExists( ExpandConstant('{userappdata}\MyCompany\MyApp\SamplePath.txt') ) then
    begin
        LoadStringFromFile(ExpandConstant('{userappdata}\MyCompany\MyApp\SamplePath.txt'), tmp)
        Result := tmp
    end
    else
    begin
        Result := 'D:\MyApp_samples'
    end;
end;

那么有什么方法可以在 UTF8 中加载/存储带有 i18n 个字符的文件名吗？

Answer 1

要从 UTF-8 文件加载字符串，请使用 LoadStringFromFileInCP from
Inno Setup - Convert array of string to Unicode and back to ANSI

const
  CP_UTF8 = 65001;

{ ... }
var
  FileName: string;
  S: string;
begin
  FileName := 'test.txt';
  if not LoadStringFromFileInCP(FileName, S, CP_UTF8) then
  begin
    Log('Error reading the file');
  end
    else
  begin
    Log('Read: ' + S);
  end;
end;

---

要保存没有 BOM 的 UTF-8 文件：

• 在同一个问题中使用SaveStringsToFileInCP
• 或见Create a UTF8 file without BOM with Inno Setup (Unicode version)