пример:

procedure TForm1.Button1Click(Sender: TObject);
var
VolumeName,
FileSystemName : array [0..MAX_PATH-1] of Char;
VolumeSerialNo : DWord;
MaxComponentLength,
FileSystemFlags : Integer;
begin
GetVolumeInformation('C:\',VolumeName,MAX_PATH,@Vo lumeSerialNo, MaxComponentLength,FileSystemFlags,
FileSystemName,MAX_PATH);
end;

и колдуешь с @VolumeSerialNo
тут по номеру тома...

а про серийник самого винта:
Вот тебе полезная ссылочка
Http://www.delphiworld.narod.ru/base\get_hdd_serial.html