-----------------------------------------------------------------------
            "Delphi X-Files" <www.DelphiXFiles.narod.ru>"
                      "Определение метки диска"
-----------------------------------------------------------------------
function GetVolumeName(Drive: Byte): String;
var
  DriveLetter: Char;
  NoMatter   : Integer;
  FileSysName: Array [0..MAX_PATH] of Char;
begin
  DriveLetter := Char(Drive + $41);
  GetVolumeInformation(PChar(DriveLetter + ':\'), VolumeName,
                       SizeOf(VolumeName), nil, NoMatter, NoMatter,
                       Nil, 0);
  Result := VolumeName;
end;
-----------------------------------------------------------------------