0

我们正在使用 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 基础上的。

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

此外，Inno Setup 也不适用于我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 字符的文件名？

4

1 回答 1

1

要从 UTF-8 文件加载字符串，请使用LoadStringFromFileInCPInno
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 文件：

于 2019-05-10T08:14:51.457 回答