【推荐】GetVolumeInformation-读取文件系统信息(硬盘分区序列号,分区格式)等

阿杰

//声明:GetVolumeInformation(<br/>　　lpRootPathName: PChar;　　　　　　　 {磁盘驱动器代码字符串}<br/>　　lpVolumeNameBuffer: PChar;　　　　　 {磁盘驱动器卷标名称}<br/>　　nVolumeNameSize: DWORD;　　　　　　　{磁盘驱动器卷标名称长度}<br/>　　lpVolumeSerialNumber: PDWORD;　　　　{磁盘驱动器卷标序列号}<br/>　　var lpMaximumComponentLength: DWORD; {系统允许的最大文件名长度}<br/>　　var lpFileSystemFlags: DWORD;　　　　{文件系统标识}<br/>　　lpFileSystemNameBuffer: PChar;　　　 {文件操作系统名称}<br/>　　nFileSystemNameSize: DWORD　　　　　 {文件操作系统名称长度}<br/>　　): BOOL;//中国考试网举例:procedure TForm1.FormCreate(Sender: TObject);<br/>　　var<br/>　　RootPath: array[0..20] of Char;<br/>　　VolName: array[0..255] of Char;<br/>　　SerialNumber: DWORD;<br/>　　MaxCLength: DWORD;<br/>　　FileSysFlag: DWORD;<br/>　　FileSysName: array[0..255] of Char;<br/>　　begin<br/>　　RootPath := 'C:';<br/>　　GetVolumeInformation(<br/>　　RootPath,<br/>　　VolName,<br/>　　255,<br/>　　@SerialNumber,<br/>　　MaxCLength,<br/>　　FileSysFlag,<br/>　　FileSysName,<br/>　　255<br/>　　);<br/>　　Memo1.Clear;<br/>　　with Memo1.Lines do<br/>　　begin<br/>　　Add(Format('磁盘驱动器代码字符串:'+ #9#9 +'%s',[RootPath]));<br/>　　Add(Format('磁盘驱动器卷标名称:'+ #9#9 +'%s',[VolName]));<br/>　　Add(Format('磁盘驱动器卷标序列号:'+ #9#9 +'%s',[IntToHex(SerialNumber,8)]));<br/>　　Add(Format('系统允许的最大文件名长度:'+ #9 +'%d',[MaxCLength]));<br/>　　Add(Format('文件系统标识:'+ #9#9#9 +'%d',[FileSysFlag]));<br/>　　Add(Format('文件系统名称:'+ #9#9#9 +'%s',[FileSysName]));<br/>　　end;<br/>　　end;//效果图:<br/>