本文整理自网络,侵删。
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 如何把一个exe做为res加入到dll中,并在运行时生成exe文件执行
Delphi firedac 下的 sqlite 创建数据库
更多相关阅读请进入《Delphi》频道 >>