Delphi Call Winapi:getvolumeinformation

Statement:GetVolumeInformation(
　lpRootPathName: PChar;　　　　　　　 {磁盘驱动器代码字符串}
　lpVolumeNameBuffer: PChar;　　　　　 {磁盘驱动器卷标名称}
　nVolumeNameSize: DWORD;　　　　　　　{磁盘驱动器卷标名称长度}
　lpVolumeSerialNumber: PDWORD;　　　　{磁盘驱动器卷标序列号}
　var lpMaximumComponentLength: DWORD; {系统允许的最大文件名长度}
　var lpFileSystemFlags: DWORD;　　　　{文件系统标识}
　lpFileSystemNameBuffer: PChar;　　　 {文件操作系统名称}
　nFileSystemNameSize: DWORD　　　　　 {文件操作系统名称长度}
): BOOL;

Example:

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;

Effect Chart: