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

Question

来自我主页(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;