本文整理自网络,侵删。
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 一组数据,按由大到小进行排序,并输出最大值与最小值
Delphi 最全_日期格式_dateutils时间单元说明
Delphi 进程通讯之wm_copydata 发送程序(senddata.exe)
更多相关阅读请进入《Delphi》频道 >>