本文整理自网络,侵删。
var
VolumeName,FileSystemName:array[0..255]of char;
size1,size2:cardinal;
VolumeSerialNumber:DWORD;
begin
GetVolumeInformation('c:\',VolumeName,256,@VolumeSerialNumber,size1,size2,FileSystemName,256);
ShowMessage(FileSystemName);
end;
相关阅读 >>
Delphi 如何得到 winrar 处理解压缩文件的返回值 ?
Delphi的idhttp报iohandler value is not valid错误的原因
更多相关阅读请进入《Delphi》频道 >>