请赐教！delphi中API GETVOLUMEINFORMATION 的使用。

[jearry_zhou]

最好写上源码。

[Kingron]

来自我主页(http://kingron.myetang.com)的那个Winapi全家福里面的一个帮助文件!
procedure TForm1.Button1Click(Sender: TObject);
var
RootPath: array[0..20] of Char; // holds the root directory name
VolName: array[0..255] of Char; // holds the volume name
SerialNumber: DWORD; // holds the serial number
MaxCLength: DWORD; // holds the maximum file component length
FileSysFlag: DWORD; // holds file system flags

FileSysName: array[0..255] of Char; // holds the name of the file system
begin
{indicate information is to be retrieved from the C drive}
RootPath := 'C:\';

{retrieve the volume information}
GetVolumeInformation(RootPath, VolName, 255, @SerialNumber, MaxCLength,
FileSysFlag, FileSysName, 255);

{display the information}
Panel2.Caption := VolName;
Panel3.Caption := IntToHex(SerialNumber,8);

Panel4.Caption := FileSysName;
end;