Este exemplo mostra como obter diversas informações sobre um volume (unidade de disco ou equivalente).

• Inclua na seção uses: Windows, SysUtils, Dialogs
• Coloque um botão no formulário.
• Progreme o evento OnClick deste botão como abaixo.

procedure TForm1.Button1Click(Sender: TObject);
var
  NomeVolume, NomeSistemaArquivo: PChar;
  Serial, NomeArquivoMax, Flags: DWORD;
begin
  GetMem(NomeVolume, MAX_PATH);
  GetMem(NomeSistemaArquivo, MAX_PATH);
  try
    GetVolumeInformation('C:\', NomeVolume, MAX_PATH, @Serial,
      NomeArquivoMax, Flags, NomeSistemaArquivo, MAX_PATH);
    ShowMessage(
      'Nome do volume (label): ' + string(NomeVolume) + #13 +
      'Número serial: ' + IntToHex(Serial, 8) + #13 +
      'Nome arquivo máximo: ' + IntToStr(NomeArquivoMax) + #13 +
      'Sistema de arquivos: ' + string(NomeSistemaArquivo));
  finally
    FreeMem(NomeVolume, MAX_PATH);
    FreeMem(NomeSistemaArquivo, MAX_PATH);
  end;
end;