delphi GetVolumeInformation获取硬盘分区信息

{//声明:

GetVolumeInformation(

lpRootPathName: PChar; {磁盘驱动器代码字符串}

lpVolumeNameBuffer: PChar; {磁盘驱动器卷标名称}

nVolumeNameSize: DWORD; {磁盘驱动器卷标名称长度}

lpVolumeSerialNumber: PDWORD; {磁盘驱动器卷标序列号}

var lpMaximumComponentLength: DWORD; {系统允许的最大文件名长度}

var lpFileSystemFlags: DWORD; {文件系统标识}

lpFileSystemNameBuffer: PChar; {文件操作系统名称}

nFileSystemNameSize: DWORD {文件操作系统名称长度}

): BOOL;

}

procedure TForm1.Button1Click(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 := 'i:\';

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;

推荐分享