Delphi获取磁盘的文件系统名称、长度及系统标记.rar

Delphi获取磁盘的文件系统名称、长度及系统标记　　begin　　Disk:=DriveComboBox1.Drive':\';　　GetVolumeInformation(PChar(Disk),nil,20,nil,SysLength,SysTag,SysName,20);　　Edit1.text:=SysName;//文件系统名称　　Edit2.Text:=IntToStr(SysLength);//文件名长度　　Edit3.Text:=IntToStr(SysTag);//文件系统标记　　end;