本文整理自网络,侵删。
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;
相关阅读 >>
在xp/2k 下实现 win+ctrl+del 等键的屏蔽的方法
Delphi [函数] unicode 检查字符串是否含中文字
Delphi ifileoperation替换shfileoperation
更多相关阅读请进入《Delphi》频道 >>