zoukankan      html  css  js  c++  java
  • WinAPI: 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;
    //效果图:

  • 相关阅读:
    解决计算机改名无法连接TFS的问题
    MysqlHelper使用反射机制智能推算数据类型以及属性名称
    Cakephp中使用JavaScriptHelper来引入js文件
    CakePHP程序员必须知道的21条技巧
    cakephp文件结构
    去掉字符串前后所有空格
    小程序 支持html富文本吗
    2018年五月博客整理
    Angular cookies
    webstorm 快捷键
  • 原文地址:https://www.cnblogs.com/del/p/1066934.html
Copyright © 2011-2022 走看看