Как вывести метку диска? Опции

[Билли Боб]

На TP вот так работает:

var s: searchrec;
findfirst ('c:\*.*',VolumeID,s);
if doserror=0 then writeln(s.name);

на фри сделал так:

var s: tsearchrec;
if findfirst ('c:\*.*',faVolumeID,s)=0 then writeln(s.name);
findclose(s);

не работает.
Как надо?

[IUnknown]

Ну, например, вот так:

function GetVolumeLabel(const DriveLetter: Char): string;
var
   VolumeName: array [0 .. MAX_PATH - 1] of Char;
   VolumeSerialNo : DWORD;
   MaxComponentLength, FileSystemFlags : Cardinal;
begin
   GetVolumeInformation(PChar(DriveLetter + ':\'),
      VolumeName, MAX_PATH, nil,
      MaxComponentLength, FileSystemFlags, nil, MAX_PATH);
   GetVolumeLabel := VolumeName;
end;

// Вызывать:
writeln (GetVolumeLabel ('С'));

Проверить не могу, по причине отсутствия Windows, тестируй, если что не так - говори...