Delphi7下如何转换ANSI字符串文件名解决Windows XP文件创建乱码问题

你的问题核心在于Delphi7默认使用ANSI字符串处理文件操作，而你传入的是UTF-8编码的字符串，直接用AssignFile这类ANSI版API会把UTF-8字节错误解析成系统默认的ANSI编码（比如中文XP的GBK），导致文件名乱码。下面是具体的解决方案：

问题原因拆解 #

Delphi7的String类型是AnsiString，对应系统当前的ANSI代码页；而Windows XP的文件系统内核是支持Unicode文件名的，但需要用宽字符（WideString）版本的API来操作。你传入的"a:/7/40/pěkný"是UTF-8编码的字节序列，直接交给ANSI版API处理时，会被错误转码，最终生成乱码文件名。

解决方案：改用宽字符API处理文件操作 #

我们需要把UTF-8字符串转成WideString，然后调用Windows原生的宽字符API来创建文件和目录，具体代码如下：

1. 完整修改后的函数 #

uses
  Windows, SysUtils, ShellAPI; // 需引用这些单元

procedure TGrammar.AddFile(var filename: string);
var
  WideFileName: WideString;
  DirName: WideString;
  PosSlash: Integer;
  hFile: THandle;
begin
  // 步骤1：将UTF-8编码的AnsiString转成WideString
  WideFileName := UTF8Decode(filename);

  // 步骤2：确保文件所在目录存在（递归创建多级目录）
  PosSlash := LastDelimiter('/:\', WideFileName);
  if PosSlash > 0 then
  begin
    DirName := Copy(WideFileName, 1, PosSlash);
    // 使用SHCreateDirectoryExW创建目录（支持XP及以上）
    SHCreateDirectoryExW(0, PWideChar(DirName), nil);
  end;

  // 步骤3：用宽字符API检查文件是否存在，避免ANSI版的编码问题
  if not FileExistsW(PWideChar(WideFileName)) then
  begin
    // 用CreateFileW创建空文件（替代AssignFile+Rewrite）
    hFile := CreateFileW(
      PWideChar(WideFileName),  // 宽字符文件名
      GENERIC_WRITE,            // 写入权限
      0,                        // 不共享
      nil,                      // 默认安全属性
      CREATE_NEW,               // 仅当文件不存在时创建
      FILE_ATTRIBUTE_NORMAL,    // 普通文件属性
      0                         // 无模板文件
    );
    if hFile <> INVALID_HANDLE_VALUE then
    begin
      CloseHandle(hFile); // 创建成功后关闭文件句柄
    end;
  end;
end;

2. 关键细节说明 #

• UTF-8转WideString：UTF8Decode是Delphi7自带的函数，能正确把UTF-8编码的AnsiString转成WideString（对应Windows的WCHAR类型）。
• 目录创建：SHCreateDirectoryExW是Shell32.dll提供的宽字符API，支持递归创建多级目录，完美适配Windows XP。如果不想依赖ShellAPI，也可以自己实现递归创建目录的函数（用CreateDirectoryW）。
• 文件操作：FileExistsW和CreateFileW都是Windows原生的宽字符API，直接和系统内核交互，不会出现编码转换错误，能正确识别Unicode文件名。

3. 替代方案：自定义递归创建目录 #

如果不想引用ShellAPI，可以用下面的递归函数创建目录：

procedure CreateWideDirectory(const DirName: WideString);
var
  PosSlash: Integer;
  ParentDir: WideString;
begin
  if DirectoryExistsW(PWideChar(DirName)) then Exit;
  // 提取父目录路径
  PosSlash := LastDelimiter('/:\', DirName);
  if PosSlash > 0 then
  begin
    ParentDir := Copy(DirName, 1, PosSlash - 1);
    CreateWideDirectory(ParentDir); // 递归创建父目录
  end;
  CreateDirectoryW(PWideChar(DirName), nil); // 创建当前目录
end;

然后把原函数中的SHCreateDirectoryExW调用替换为CreateWideDirectory(DirName)即可。

验证效果 #

修改后，传入UTF-8编码的"a:/7/40/pěkný"会被正确转成Unicode的"a:/7/40/pěkný"，调用宽字符API创建的文件名将显示为正确的pěkný，不会再出现乱码。

内容的提问来源于stack exchange，提问作者Johny Bony