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;//效果图:
//声明:GetVolumeInformation(
lproot pathname:pchar；{磁盘驱动器代码字符串}
lpvolumename buffer:pchar；{磁盘驱动器卷标名称}
nvolumename size:DWORD；{磁盘驱动器卷标名称长度}
lpvolumeserial number:PD word；{磁盘驱动器卷标的序列号}
var lpmaximumcomponentlength:dword；{系统允许的文件名长度}
var lpfilesystemflags:dword；{文件系统标识}
lpfilesystemname buffer:pchar；{文件操作系统名称}
nfilesystemname:dword {文件操作系统名称长度}
):BOOL；//考试示例:procedure tform1.formcreate(发送方:to object)；
var
root path:array[0..20]的Char
VolName: array[0..255]的Char
serial number:DWORD；
maxc length:DWORD；
FileSysFlag:DWORD；
FileSysName: array[0..255]的Char
begin
root path:= ' C:'；
GetVolumeInformation(
root path，
VolName，
255，
@SerialNumber，
MaxCLength，
FileSysFlag，
FileSysName，
255
)；
Memo1。清晰；
with memo 1 . lines do
begin
add(format('磁盘驱动器代码字符串:'+#9#9 +'%s '，[root path]))；
Add(格式('磁盘驱动器卷标名:'+#9#9 +'%s '，[VolName]))；
Add(格式('磁盘驱动器卷标序列号:'+# 9 # 9+'%s '，[inttohex(序列号，8)])；
Add(Format('系统允许的文件长度:'+#9 +'%d '，[maxc length])；
Add(格式('文件系统ID:'+# 9 # 9+'%d '，[filesys标志])；
Add(格式('文件系统名:'+# 9 # 9+'%s '，[文件系统名])；
end；
end；//渲染: