Странности с получением имени диска

[свр]

Через GetVolumeInformation пытаюсь получить имя диска. Но выдавает он мне его не всегда. Причем я заметил, что если вручную переименовать диск, то программа все-таки выдает требуемое имя. В чем может быть проблема?

    Disks: DWORD;
    I, j: Integer;
    N: Integer;
    li: TListItem;
    buf: array [0..499] of WideChar;
    DrvStr: array [0..9] of char;
 SerialNum, MaxFNameLength, FileSysFlags: DWORD;
 VolName, FSName: Array [0..255] Of Char;

  lpVolumeNameBuffer,
    lpFileSystemNameBuffer: array[0..MAX_PATH] of Char;

  nVolumeNameSize, lpVolumeSerialNumber,
    lpMaximumComponentLength, lpFileSystemFlags,
    nFileSystemNameSize: DWord;
begin
  if Form2.ListView1.Items.Count>0 then begin
    Form2.ListView1.Items.Clear();
  end;
    Disks:= GetLogicalDrives;
    I:= 1; N:= Ord('A');
    Form2.ListView1.Items.BeginUpdate();
    WHILE I > 0 DO Begin
        IF (Disks AND I) <> 0 THEN begin
          li := Form2.listView1.Items.Add();
  nVolumeNameSize:=255;
          if not GetVolumeInformation(
    PWideChar(chr(n) + ':\'),
    lpVolumeNameBuffer,
    nVolumeNameSize,
    @lpVolumeSerialNumber,
    lpMaximumComponentLength,
    lpFileSystemFlags,
    lpFileSystemNameBuffer,
    nFileSystemNameSize) then begin
            ShowMessage(SysErrorMessage(GetLastError));
            Form2.Edit1.Text:=chr(n);
          end;
          li.Caption := lpVolumeNameBuffer;
          li.Caption:=li.Caption + ' (' + chr(n) + ')';
          ShGetFileInfo(PChar(chr(n) + ':\'), 0, fi, SizeOf(fi), SHGFI_SYSICONINDEX or SHGFI_LARGEICON);
          li.ImageIndex := fi.iIcon;
        end;
        Inc(N);
        I:= I SHL 1;
    End;
    Form2.ListView1.Items.EndUpdate;

Пора бы уже и прочесть правила раздела...
А пока - штраф за неправильное оформление кода, за нежелание эти правила соблюдать.

[mihali4]

По теме.
Это не имя диска. Это называется метка тома.

procedure TForm1.Button2Click(Sender: TObject);
var
  VolumeName,
  FileSystemName : array [0..MAX_PATH-1] of Char;
  VolumeSerialNo : DWord;
  MaxComponentLength,FileSystemFlags: Cardinal;
begin
  GetVolumeInformation('C:\',VolumeName,MAX_PATH,@VolumeSerialNo,
  MaxComponentLength,FileSystemFlags, FileSystemName,MAX_PATH);
  Memo1.Lines.Add('VolumeName = '+VolumeName);
  Memo1.Lines.Add('SerialNo = $'+IntToHex(VolumeSerialNo,8));
  Memo1.Lines.Add('CompLen = '+IntToStr(MaxComponentLength));
  Memo1.Lines.Add('Flags = $'+IntToHex(FileSystemFlags,4));
  Memo1.Lines.Add('FSName = '+FileSystemName);
end;

[свр]

Не получается

VolumeName =
SerialNo = $6C2BB082
CompLen = 255
Flags = $3E700FF
FSName = NTFS

[Пепел Феникса]

дык а у диска есть метка?
Локальный диск это не метка, а то что проводник пишет вместе нее.

[свр]

А-а. То есть, у диска вполне может не быть метки?

[Пепел Феникса]

ну да, это дополнительный аттрибут, не более.
Локальный диск это отсутствие метки(так же сьемный диск и тп)

[свр]

Хорошо. Тогда 2 вопроса:
1) Как узнать тип диска (CD-ROM, сетевой и т.д.)
2) Как узнать имя сетевого диска (если возможно)

[Пепел Феникса]

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[Stilet]

http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx
подойдет?