本文整理自网络,侵删。
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 使用firedac的tfdscript组件执行文件中描述的sql语句
Delphi windows 编程[20] - 改变菜单项并换行
Delphi: ttreeview 中禁止双击事件展开或关闭节点
Delphi 文件查找findfirst,findnext,findclose
更多相关阅读请进入《Delphi》频道 >>