Программирование Delphi

Определяем имя тома определенного диска:

var
  nombre, unidad: String;
  NumeroSerie: LongWord;
  FSFlag, MaxLongitud: Cardinal;
begin
  Unidad:= 'D:\'; // Имя диска
  SetLength(nombre, MAX_PATH);
  GetVolumeInformation(PChar(Unidad), PChar(nombre), MAX_PATH,
  @NumeroSerie, MaxLongitud, FSFlag, Nil, 0);
  showmessage(trim(nombre));
end;