Как определить имя тома

Тема в разделе "Delphi", создана пользователем WinHack, 24 ноя 2016.

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

    Код:
    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;