Мир Delphi
	Все самое интерресное что найдено в интернете о Delphi: компоненты, исходники программ, новые алгоритмы и решения.

Алгоритмы и решения / Файловая система / Серийный номер файловой системы.

procedure TForm1.Button1Click(Sender: TObject);
  var SerialNum: Pdword;
  a,b: Dword;
  buffer: array [0..255] of char;
begin
  new(SerialNum);
  if getVolumeInformation('c:\',buffer,sizeof(buffer),SerialNum,a,b,nil,0) then
  Label1.Caption:=IntToStr(SerialNum^);
  Dispose(SerialNum);
end;