读取文件系统信息
2010-01-17 21:06
435 查看
//声明: 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;
相关文章推荐
- 在Linux DeviceTree增添dtsi文件并在驱动中读取节点信息写入sys文件系统
- WinAPI: GetVolumeInformation - 读取文件系统信息
- C#读取系统文件信息(二)——调API读取系统文件及系统盘Icon图标
- python下学生管理系统:从文件中读取30位学生的信息(含邮箱),并实现简单的增、删、查找、统计(邮箱使用人数)。---附程序哦!
- 使用statvfs读取文件系统信息
- Android 调用系统相机拍照(适配7.0)、从图库选择图片、从数据库读取联系人信息、相册图片、扫描文件
- GetVolumeInformation - 读取文件系统信息
- WinAPI: GetVolumeInformation - 读取文件系统信息
- Web系统通过EXE文件实现读取客户电脑MAC等硬件信息且兼容非IE浏览器
- C下学生管理系统:从文件中读取30位学生的信息(含邮箱),并实现简单的增、删、查找、统计(邮箱使用人数)。---附程序哦!
- Web系统通过EXE文件实现读取客户电脑MAC等硬件信息且兼容非IE浏览器
- Linux 使用statvfs读取文件系统信息
- WinAPI: GetVolumeInformation - 读取文件系统信息
- 在Linux DeviceTree添加dtsi文件并在驱动中读取节点信息写入sys文件系统
- WinAPI: GetVolumeInformation - 读取文件系统信息
- 使用statvfs读取文件系统信息
- C#读取系统文件信息(一)——调API读取文件类型
- 基于/proc伪文件系统的读取系统常见内核状态信息
- 读取配置文件的信息
- linux 读取文件信息并且输出