Reading a CDROM Label

[NuWood]

Hi

I feel a bit dumb asking this one but how can I read the label from a CDROM (or any disk drive for that matter).

It seems quite simple but the answer has eluded me so far.

 

[NuWood]

Found the answer

procedure Tform1.ToolButton1Click(Sender: TObject);
var
VolumeName, FileSystemName: array [0..MAX_PATH - 1] of Char;
VolumeSerialNo: DWord;
MaxComponentLength, FileSystemFlags: Cardinal;
begin
GetVolumeInformation('F:\', VolumeName, MAX_PATH, @VolumeSerialNo, MaxComponentLength,
FileSystemFlags, FileSystemName, MAX_PATH);
Memo1.Lines.Add( 'VName = ' + 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;

VNAME gives the label....

Found this on the DELPHI POOL

http://www.lmc-mediaagentur.de/dpool.htm

a great site full of tips. It is not a forum as such just a load of how tos? a nice compliment to tek-tips