正如其他人所说的，您需要使用 GetFileInformationByHandleEx ，但是看起来您需要使用 FILE_STANDARD_INFO 或 FILE_ID_BOTH_DIR_INFO 。您想要的信息在每个目录的 AllocationSize 成员中返回，但第二个是目录句柄，用于列出目录内的文件，而不是目录本身(注意:不是递归的，只是顶层的)。为了使它更简单， FILE_STANDARD_INFO 有一个 Directory 布尔值，所以如果您不确定，就先调用它。根据 FILE_ID_BOTH_DIR_INFO 的文档，

AllocationSize包含指定为文件分配多少空间(以字节为单位)的值。此值通常是基础物理设备扇区或群集大小的倍数。

这似乎为您提供了 Size on Disk 信息。

我还没有找到 FILE_ID_BOTH_DIR_INFO 结构的Delphi翻译。困难似乎是最终成员 WCHAR FileName[1] ，它被描述为：

FileName1 包含文件名字符串的第一个字符。在内存中，后面跟着字符串的其余部分。

我不知道德尔菲会怎么处理这件事。