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

来源：互联网发布：idn域名编辑：程序博客网时间：2024/06/14 10:40
//声明: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; 
//效果图: