【推荐】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 of Char;<br/> VolName: array of Char;<br/> SerialNumber: DWORD;<br/> MaxCLength: DWORD;<br/> FileSysFlag: DWORD;<br/> FileSysName: array 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',));<br/> Add(Format('磁盘驱动器卷标名称:'+ #9#9 +'%s',));<br/> Add(Format('磁盘驱动器卷标序列号:'+ #9#9 +'%s',));<br/> Add(Format('系统允许的最大文件名长度:'+ #9 +'%d',));<br/> Add(Format('文件系统标识:'+ #9#9#9 +'%d',));<br/> Add(Format('文件系统名称:'+ #9#9#9 +'%s',));<br/> end;<br/> end;//效果图:<br/>
页:
[1]