PROSAGA码农传奇-pascal-Inno Setup - 将字符串数组转换为Unicode并返回ANSI

<div class =“post-text”itemprop =“text”>
  
    将以特定Ansi编码编码的文件转换为Unicode
     <code>
 string
 </code>
     （UTF-16 LE），使用
    <a href="https://docs.microsoft.com/en-us/windows/desktop/api/stringapiset/nf-stringapiset-multibytetowidechar" rel="nofollow noreferrer">
       <code>
 MultiByteToWideChar
 </code>
       功能
    </A>
    ：
  
   <pre class="lang-pascal prettyprint-override">
 <code>
 function MultiByteToWideChar(
 CodePage: UINT; dwFlags: DWORD; const lpMultiByteStr: AnsiString;
 cchMultiByte: Integer; lpWideCharStr: string; cchWideChar: Integer): Integer;
 external 'MultiByteToWideChar@kernel32.dll stdcall';

function LoadStringFromFileInCP(FileName: string; var S: string; CP: Integer): Boolean;
var
  Ansi: AnsiString;
  Len: Integer;
begin
  Result := LoadStringFromFile(FileName, Ansi);
  if Result then
  begin
    Len := MultiByteToWideChar(CP, 0, Ansi, Length(Ansi), S, 0);
    SetLength(S, Len);
    MultiByteToWideChar(CP, 0, Ansi, Length(Ansi), S, Len);
  end;
end;

function LoadStringsFromFileInCP(
  FileName: string; Strings: TStrings; CP: Integer): Boolean;
var
  S: string;
begin
  Result := LoadStringFromFileInCP(FileName, S, CP);
  if Result then Strings.Text := S;
end;

</code>
 </pre>
  
    
      （注意我正在使用
      <a href="http://www.jrsoftware.org/ishelp/index.php?topic=scriptclasses&anchor=TStrings" rel="nofollow noreferrer">
         <code>
 TStrings
 </code>
      </A>
       存储字符串/行集合而不是
       <code>
 TArrayOfString
 </code>
      ，作为
       <code>
 TStrings
 </code>
       更容易使用）
    
  
  <HR />
  
    转换Unicode
     <code>
 string
 </code>
     回到安西，使用
    <a href="https://docs.microsoft.com/en-us/windows/desktop/api/stringapiset/nf-stringapiset-widechartomultibyte" rel="nofollow noreferrer">
       <code>
 WideCharToMultiByte
 </code>
       功能
    </A>
    ：
  
   <pre class="lang-pascal prettyprint-override">
 <code>
 function WideCharToMultiByte(CodePage: UINT; dwFlags: DWORD;
 lpWideCharStr: string; cchWideChar: Integer; lpMultiByteStr: AnsiString;
 cchMultiByte: Integer; lpDefaultCharFake: Integer;
 lpUsedDefaultCharFake: Integer): Integer;
 external 'WideCharToMultiByte@kernel32.dll stdcall';

function SaveStringToFileInCP(FileName: string; S: string; CP: Integer): Boolean;
var
  Ansi: AnsiString;
  Len: Integer;
begin
  Len := WideCharToMultiByte(CP, 0, S, Length(S), Ansi, 0, 0, 0);
  SetLength(Ansi, Len);
  WideCharToMultiByte(CP, 0, S, Length(S), Ansi, Len, 0, 0);
  Result := SaveStringToFile(FileName, Ansi, False);
end;

function SaveStringsToFileInCP(
  FileName: string; Strings: TStrings; CP: Integer): Boolean;
begin
  Result := SaveStringToFileInCP(FileName, Strings.Text, CP);
end;

</code>
 </pre>
  <HR />
  
    使用如下功能：
  
   <pre class="lang-pascal prettyprint-override">
 <code>
 const
 CP_EUC_KOREAN = 51949;

var
  I: Integer;
  Strings: TStrings;
begin
  Strings := TStringList.Create;
  if LoadStringsFromFileInCP('korean.txt', Strings, CP_EUC_KOREAN) then
  begin
    for I := 0 to Strings.Count - 1 do
    begin
      MsgBox(Strings[I], mbInformation, MB_OK);
    end;
  end;

SaveStringsToFileInCP('korean_out.txt', Strings, CP_EUC_KOREAN);
end;

</code>
 </pre>
  <HR />
  
    在我的英文系统上正常工作：
  
  
    <a href="https://i.stack.imgur.com/VeadY.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/VeadY.png”alt =“在此处输入图片说明”/>
    </A>
    <a href="https://i.stack.imgur.com/2Hp2F.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/2Hp2F.png”alt =“在此处输入图片说明”/>
    </A>
  
</DIV>