WinAPI: GetVolumeInformation - 读取文件系统信息

最新推荐文章于 2024-11-20 11:53:41 发布

转载最新推荐文章于 2024-11-20 11:53:41 发布 · 884 阅读

文章标签：

#winapi #磁盘 #c

Delphi学习专栏收录该内容

10 篇文章

订阅专栏

本文介绍如何使用GetVolumeInformation函数来获取指定磁盘的详细信息，包括磁盘驱动器代码字符串、卷标名称、序列号、系统允许的最大文件名长度、文件系统标识及名称等。

//声明:
GetVolumeInformation(
  lpRootPathName: PChar;               {磁盘驱动器代码字符串}
  lpVolumeNameBuffer: PChar;           {磁盘驱动器卷标名称}
  nVolumeNameSize: DWORD;              {磁盘驱动器卷标名称长度}
  lpVolumeSerialNumber: PDWORD;        {磁盘驱动器卷标序列号}
  var lpMaximumComponentLength: DWORD; {系统允许的最大文件名长度}
  var lpFileSystemFlags: DWORD;        {文件系统标识}
  lpFileSystemNameBuffer: PChar;       {文件操作系统名称}
  nFileSystemNameSize: DWORD           {文件操作系统名称长度}
): BOOL;
--------------------------------------------------------------------------------

//举例:
procedure TForm1.FormCreate(Sender: TObject);
var
  RootPath: array[0..20] of Char;
  VolName: array[0..255] of Char;
  SerialNumber: DWORD;
  MaxCLength: DWORD;
  FileSysFlag: DWORD;
  FileSysName: array[0..255] of Char;
begin
  RootPath := 'C:/';

  GetVolumeInformation(
    RootPath,
    VolName,
    255,
    @SerialNumber,
    MaxCLength,
    FileSysFlag,
    FileSysName,
    255
  );

  Memo1.Clear;
  with Memo1.Lines do
  begin
    Add(Format('磁盘驱动器代码字符串:'+ #9#9 +'%s',[RootPath]));
    Add(Format('磁盘驱动器卷标名称:'+ #9#9 +'%s',[VolName]));
    Add(Format('磁盘驱动器卷标序列号:'+ #9#9 +'%s',[IntToHex(SerialNumber,8)]));
    Add(Format('系统允许的最大文件名长度:'+ #9 +'%d',[MaxCLength]));
    Add(Format('文件系统标识:'+ #9#9#9 +'%d',[FileSysFlag]));
    Add(Format('文件系统名称:'+ #9#9#9 +'%s',[FileSysName]));
  end;
end;
 
//效果图: