[Alegun]

GetVolumeInformation вам в помощь

Добавлено позже:

а вот как ей пользоваться, бросьте только на форму поле ввода (Edit1)

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 id, a, b: DWORD;
 Buffer: array [0..255] of char;
begin
 GetVolumeInformation('c:/', Buffer, sizeof(Buffer), @id, a, b, nil, 0);
 edit1.text:= IntToStr(id);
end;