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

[Билли Боб]

На 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]

GetVolumeInformation под ДОСом будет работать?

Нет, конечно. Если нужно и там и там (и Win32 и DOS) - то можно воспользоваться условной компиляцией (если программа будет перекомпилироваться на целевой платформе, разумеется) :

{$IF Defined(WIN32)}
   // тут блок кода с использованием GetVolumeInformation
{$ELSEIF Defined(GO32V2)}   
   // тут - досовский вариант, с использованием faVolumeID
{$ELSE}
   // тут можно добавить поддержку других ОСей
{$ENDIF}