[AND_REY]

На HDD работает, на флешках не проверял.

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
 SerialNum, MaxFNameLength, FileSysFlags: DWORD;
 VolName, FSName: Array [0..255] Of Char;
begin
 GetVolumeInformation('C:\', VolName, SizeOf(VolName), @SerialNum,
              MaxFNameLength, FileSysFlags, FSName, SizeOf(FSName));
 Label1.Caption:= VolName;
end;